Changeset 10431

Timestamp:

2005-08-05T17:47:49+12:00 (19 years ago)

Author:

chi

Message:

In process_assoc_files, for some reasons, there is a "/" in front of full path name of assoicated
image file.

File:

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

trunk/gsdl/perllib/docsave.pm

@@ -497 +497 @@
     my ($dir, $afile) = $assoc_file_rec->[1] =~ /^(.*?)([^\/\\]+)$/;
     $dir = "" unless defined $dir;
-
-
+        
+    
     my $real_filename = $assoc_file_rec->[0];
+    # for some reasons the image associate file has / before the full path
+    $real_filename =~ s/^\\(.*)/$1/i;
     if (-e $real_filename) {