Changeset 16521

Timestamp:

2008-07-24T09:26:22+12:00 (16 years ago)

Author:

kjdon

Message:

pass in the file extension to get_tmp_filename otherwise it doesn't work properly

Location:

gsdl/trunk/perllib/plugins

Files:

• ImageConverter.pm (modified) (1 diff)
• MARCXMLPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/ImageConverter.pm

@@ -319 +319 @@
 
     # Determine the full name and path of the output file
-    my $filehead = &util::get_tmp_filename();
-    my $target_file_path = $filehead . "." . $target_file_type;
+    my $target_file_path = &util::get_tmp_filename($target_file_type);
     push(@{$self->{'tmp_file_paths'}}, $target_file_path);
 

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -390 +390 @@
     my $top_section = $doc_obj->get_top_section();
 
-    my $tmp_marcxml_filename = &util::get_tmp_filename().".xml";
+    my $tmp_marcxml_filename = &util::get_tmp_filename("xml");
     if (open (XMLOUT,">$tmp_marcxml_filename")) {