Changeset 9462 for trunk/gsdl/perllib/plugins
- Timestamp:
- 2005-03-18T11:57:51+13:00 (19 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BNContentePlug.pm
r8764 r9462 316 316 # things down significantly in some cases. 317 317 sub Char { 318 use bytes; # Necessary to prevent encoding issues with XML::Parser 2.31+ 318 319 $_[0]->{'Text'} .= $_[1]; 319 320 if ((defined $self->{'subfield'} && ($self->{'subfield'} ne ""))) { -
trunk/gsdl/perllib/plugins/DSpacePlug.pm
r9168 r9462 411 411 # things down significantly in some cases. 412 412 sub Char { 413 $_[0]->{'Text'} .= $_[1]; 414 return undef; 413 use bytes; # Necessary to prevent encoding issues with XML::Parser 2.31+ 414 $_[0]->{'Text'} .= $_[1]; 415 return undef; 415 416 } 416 417 -
trunk/gsdl/perllib/plugins/RecPlug.pm
r9376 r9462 548 548 # things down significantly in some cases. 549 549 sub Char { 550 $_[0]->{'Text'} .= $_[1]; 551 return undef; 550 use bytes; # Necessary to prevent encoding issues with XML::Parser 2.31+ 551 $_[0]->{'Text'} .= $_[1]; 552 return undef; 552 553 } 553 554 -
trunk/gsdl/perllib/plugins/XMLPlug.pm
r8716 r9462 149 149 # things down significantly in some cases. 150 150 sub Char { 151 $_[0]->{'Text'} .= $_[1]; 152 return undef; 151 use bytes; # Necessary to prevent encoding issues with XML::Parser 2.31+ 152 $_[0]->{'Text'} .= $_[1]; 153 return undef; 153 154 } 154 155
Note:
See TracChangeset
for help on using the changeset viewer.