Parent Directory | Revision Log | Patch
revision 1.1 by dpavlin, Mon Dec 11 10:18:14 2000 UTC | revision 1.2 by dpavlin, Fri Jan 25 14:47:43 2002 UTC | |
---|---|---|
# | Line 38 sub initcap { | Line 38 sub initcap { |
38 | my $cu=substr($upper,$i,1); | my $cu=substr($upper,$i,1); |
39 | if ($i==0) { | if ($i==0) { |
40 | $new.=$cu; | $new.=$cu; |
41 | } elsif ($cl =~ / .-/) { | } elsif ($cl =~ / \.-/) { |
42 | $i++; | $i++; |
43 | $new.=$cl.substr($upper,$i,1); | $new.=$cl.substr($upper,$i,1); |
44 | } else { | } else { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |