Changeset 13298

Timestamp:

2006-11-17T15:21:07+13:00 (17 years ago)

Author:

mdewsnip

Message:

Changed from using substr to unicode::substr, for non-ASCII CDS/ISIS databases.

File:

• trunk/gsdl/perllib/plugins/ISISPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -357 +357 @@
 
     if ($amongstdefinitions) {
-        my $fieldname      = substr($fdtfileline,  0, 30);
-        my $fieldsubfields = substr($fdtfileline, 30, 20);
-        my $fieldspecs     = substr($fdtfileline, 50);
+        my $fieldname      = &unicode::substr($fdtfileline,  0, 30);
+        my $fieldsubfields = &unicode::substr($fdtfileline, 30, 20);
+        my $fieldspecs     = &unicode::substr($fdtfileline, 50, 50);
 
         # Remove extra spaces