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

Timestamp:

2009-09-21T13:35:55+12:00 (15 years ago)

Author:

davidb

Message:

Updated to support incremental exporting

File:

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

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -722 +722 @@
     my $working_info = $self->{'output_info'}; 
     my $doc_info = $working_info->get_info($oid);
+
     my ($doc_file,$index_status) = @$doc_info;
 
@@ -736 +737 @@
                      $collect_dir,$oid_files,$reverse_lookups);
 
-# ******* 
-#    foreach my $assoc_file_rec (@{$doc_obj->get_assoc_files()}) {
-#   my $real_filename = $assoc_file_rec->[0];
-#   my $full_afile = $assoc_file_rec->[1];
-#
-#   # for some reasons the image associate file has / before the full path
-#   $real_filename =~ s/^\\(.*)/$1/i;
-#   if (-e $real_filename) {
-#
-#       if (defined $collect_dir) {
-#       my $collect_dir_re_safe = $collect_dir;
-#       $collect_dir_re_safe =~ s/\\/\\\\/g;
-#       $collect_dir_re_safe =~ s/\./\\./g;
-#
-#       $real_filename =~ s/^$collect_dir_re_safe//;
-#       }
-#
-#       $reverse_lookups->{$real_filename} = 1;
-#
-#       push(@{$oid_files->{'assoc-file'}},$full_afile);
-#   }
-#   else {
-#       print STDERR "Warning: archiveinf_gdbm()\n  $real_filename does not appear to be on the file system\n";
-#   }
-#    }
 
     $self->archiveinf_files_to_field($doc_obj->get_meta_files(),"meta-file",
@@ -773 +749 @@
     my $doc_db = &util::filename_cat($output_dir,"archiveinf-doc.gdb");
     my $src_db = &util::filename_cat($output_dir,"archiveinf-src.gdb");
-
-#    my $doc_db_text = "";
-#    $doc_db_text .= "<doc-file>$oid_files->{'doc-file'}\n";
-#    $doc_db_text .= "<index-status>$oid_files->{'index-status'}\n";
-#    $doc_db_text .= "<src-file>$oid_files->{'src-file'}\n";
-
-#    foreach my $af (@{$oid_files->{'assoc-file'}}) {
-#   $doc_db_text .= "<assoc-file>$af\n";
-#    }
-
-#    foreach my $mf (@{$oid_files->{'meta-file'}}) {
-#   $doc_db_text .= "<meta-file>$mf\n";
-#    }
-
-#    chomp($doc_db_text); # remove trailing \n
 
     ##print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n";