Changeset 32122 for main/trunk/greenstone2/perllib/plugins/LaTeXPlugin.pm
- Timestamp:
- 2018-02-08T14:14:43+13:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.