Changeset 3665 for trunk/gsdl/perllib
- Timestamp:
- 2003-01-12T21:38:58+13:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgbuildproc.pm
r3148 r3665 314 314 $value =~ s/\n/\\n/g; 315 315 $value =~ s/\r/\\r/g; 316 if ($value =~ /-{70,}/) { 317 # if value contains 70 or more hyphens in a row we need 318 # to escape them to prevent txt2db from treating them 319 # as a separator 320 $value =~ s/-/&\#045;/gi; 321 } 316 322 317 323 # special case for URL metadata
Note:
See TracChangeset
for help on using the changeset viewer.