Changeset 32122 for main/trunk
- Timestamp:
- 2018-02-08T14:14:43+13:00 (6 years ago)
- Location:
- main/trunk/greenstone2/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/BibTexPlugin.pm
r31780 r32122 313 313 } else { # First von Last 314 314 my @words = split(/ /, $a); 315 while (scalar(@words) > 1 && $words[0] !~ /^[a-z]{2 ..}/) {315 while (scalar(@words) > 1 && $words[0] !~ /^[a-z]{2,}/) { 316 316 $first .= " " . shift (@words); 317 317 } -
main/trunk/greenstone2/perllib/plugins/LaTeXPlugin.pm
r31780 r32122 218 218 } else { # First von Last 219 219 my @words = split(/ /, $author); 220 while (scalar(@words) > 1 && $words[0] !~ /^[a-z]{2 ..}/) {220 while (scalar(@words) > 1 && $words[0] !~ /^[a-z]{2,}/) { 221 221 $first .= " " . shift (@words); 222 222 }
Note:
See TracChangeset
for help on using the changeset viewer.