Changeset 32122 for main/trunk/greenstone2/perllib/plugins/BibTexPlugin.pm
- Timestamp:
- 2018-02-08T14:14:43+13:00 (6 years ago)
- File:
-
- 1 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 }
Note:
See TracChangeset
for help on using the changeset viewer.