Changeset 16961 for gsdl/trunk/perllib/plugins/UnknownPlugin.pm

Timestamp:

2008-08-21T18:27:17+12:00 (16 years ago)

Author:

ak19

Message:

Fixed a bug introduced in last commit

File:

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

gsdl/trunk/perllib/plugins/UnknownPlugin.pm

@@ -139 +139 @@
 
     # The assocfilename is the url-encoded version of the utf8 filename
-    my $assoc_file = $doc_object->get_assocfile_from_sourcefile();
+    my $assoc_file = $self->{'doc_object'}->get_assocfile_from_sourcefile();
 
     $doc_obj->associate_file($filename_full_path, $assoc_file, $mime_type, $section);