Changeset 2492

Timestamp:

2001-06-05T13:57:10+12:00 (23 years ago)

Author:

paynter

Message:

Fixed trivial bug in the new set_OID function.

File:

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

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -208 +208 @@
     my ($doc_obj, $id, $segment_number) = @_;
     
-    $doc_obj->set_OID($id . "s" . $segment);
-
+    $doc_obj->set_OID($id . "s" . $segment_number);
 }