Changeset 12397 for trunk/gsdl/perllib/plugins/ArcPlug.pm

Timestamp:

2006-08-04T09:34:45+12:00 (18 years ago)

Author:

kjdon

Message:

in the read function. moved the line setting self->archive_info_filename inside teh test to see if the archives file exists. If, during building, GAPlug fails to process a file, eg cos not well formed XML, then it gets passed to ArcPLug, and the way it was, it was setting archive info filename to be something like archives/HASHxxxx/doc.xml/archives.inf, which of course, crapped out when you tried to save the archives file

File:

• trunk/gsdl/perllib/plugins/ArcPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -116 +116 @@
     # see if this has a archives information file within it
     my $archive_info_filename = &util::filename_cat($base_dir,$file,"archives.inf");
-    $self->{'archive_info_filename'} = $archive_info_filename;
 
     if (-e $archive_info_filename) {
@@ -126 +125 @@
     my $archive_info = new arcinfo ();
     $self->{'archive_info'} = $archive_info;
+    $self->{'archive_info_filename'} = $archive_info_filename;
 
     $archive_info->load_info ($archive_info_filename);