Changeset 20801 for gsdl/trunk/perllib/plugouts/BasePlugout.pm

Timestamp:

2009-10-12T13:06:40+13:00 (15 years ago)

Author:

kjdon

Message:

meta files go into reverse lookups in a different way - store a flag for it to show its a metadata file - if it changes, then the whole folder needs reimporting, so no point storing which ids it belongs to

File:

• gsdl/trunk/perllib/plugouts/BasePlugout.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -688 +688 @@
 #       $real_filename =~ s/^$collect_dir_re_safe//;
 #       }
-
-        $reverse_lookups->{$real_filename} = 1;
-
+        if (defined $reverse_lookups) {
+        $reverse_lookups->{$real_filename} = 1;
+        }
         push(@{$oid_files->{$field}},$full_file);
     }
@@ -739 +739 @@
 
     $self->archiveinf_files_to_field($doc_obj->get_meta_files(),"meta-file",
-                     $collect_dir,$oid_files,$reverse_lookups);
+                     $collect_dir,$oid_files);
 
 
@@ -771 +771 @@
     ## &GDBMUtils::gdbmDatabaseAppend($src_db,$rl,"<oid>$oid\n");   
     $working_info->add_reverseinfo($rl,$oid);
-    }    
+    }  
+
+    # meta files not set in reverese entry, but need to set the metadata flag
+    foreach my $meta_file_rec(@{$doc_obj->get_meta_files()}) {
+    my $full_file = (ref $meta_file_rec eq "ARRAY") ? $meta_file_rec->[0] : $meta_file_rec;
+    $working_info->set_meta_file_flag($full_file);
+    }
 }