Changeset 16954 for gsdl/trunk/perllib

Timestamp:

2008-08-21T16:32:58+12:00 (16 years ago)

Author:

ak19

Message:

Minor edit since a subroutine has been renamed

File:

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

gsdl/trunk/perllib/plugins/ConvertBinaryFile.pm

@@ -483 +483 @@
     # this should be the same filename that was used for the Source and SourceFile metadata, 
     # as we will use [SourceFile] in the srclink
-    $assocfilename = $doc_obj->assocfile_from_sourcefile(); #($assocfilename) = $file =~ /([^\\\/]+)$/;
+    $assocfilename = $doc_obj->get_assocfile_from_sourcefile();
     }
     $doc_obj->associate_file($filename, $assocfilename, undef, $cursection);