Browse Source

remove commented out code.

remotes/origin/translate_notes
Alexandre Dupas 16 years ago
parent
commit
eed1e48476
  1. 18
      make-index

18
make-index

@ -26,24 +26,6 @@ sub get_first_letter($)
return uppercase $letter; return uppercase $letter;
} }
#sub get_first_letter_wo_article($)
#{
# my $string = shift;
# my $letter;
# if( $string =~ /^(The |L\'|Les |Le |La |Une |Un )/ ) # if there is an article before the name
# {
# $string =~ /$1([\w\d])/;
# $letter = $1;
# }
# else
# {
# $string =~ /([\w\d])/;
# $letter = $1;
# }
# $letter = "0-9" if ( $letter =~ /\d/ ); # group every numer into one category
# return uppercase $letter;
#}
sub usage sub usage
{ {
print "usage: make-index source\n"; print "usage: make-index source\n";

Loading…
Cancel
Save