Changeset 19775
- Timestamp:
- 2009-06-09T14:37:13+12:00 (15 years ago)
- Location:
- gsdl/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/import.pl
r19760 r19775 696 696 $archive_info->save_info($arcinfo_doc_filename); 697 697 } 698 else { 699 $archive_info->save_revinfo_gdbm($arcinfo_src_filename); 700 } 701 698 702 699 703 ## } -
gsdl/trunk/perllib/plugouts/BasePlugout.pm
r19516 r19775 518 518 519 519 my $working_dir = $self->get_output_dir(); 520 my $working_info = $self->{ output_info};520 my $working_info = $self->{'output_info'}; 521 521 return if (!defined $working_info); 522 522 … … 722 722 'index-status' => $index_status, 723 723 'src-file' => $source_filename, 724 'assoc-file s' => [],725 'meta-file s' => [] };724 'assoc-file' => [], 725 'meta-file' => [] }; 726 726 727 727 my $reverse_lookups = { $source_filename => "1" }; 728 728 729 729 730 $self->archiveinf_files_to_field($doc_obj->get_assoc_files(),"assoc-file s",730 $self->archiveinf_files_to_field($doc_obj->get_assoc_files(),"assoc-file", 731 731 $collect_dir,$oid_files,$reverse_lookups); 732 732 … … 749 749 # $reverse_lookups->{$real_filename} = 1; 750 750 # 751 # push(@{$oid_files->{'assoc-file s'}},$full_afile);751 # push(@{$oid_files->{'assoc-file'}},$full_afile); 752 752 # } 753 753 # else { … … 756 756 # } 757 757 758 $self->archiveinf_files_to_field($doc_obj->get_meta_files(),"meta-file s",758 $self->archiveinf_files_to_field($doc_obj->get_meta_files(),"meta-file", 759 759 $collect_dir,$oid_files,$reverse_lookups); 760 760 … … 768 768 my $src_db = &util::filename_cat($output_dir,"archiveinf-src.gdb"); 769 769 770 my $doc_db_text = "";771 $doc_db_text .= "<doc-file>$oid_files->{'doc-file'}\n";772 $doc_db_text .= "<index-status>$oid_files->{'index-status'}\n";773 $doc_db_text .= "<src-file>$oid_files->{'src-file'}\n";774 775 foreach my $af (@{$oid_files->{'assoc-files'}}) {776 $doc_db_text .= "<assoc-file>$af\n";777 }778 779 foreach my $mf (@{$oid_files->{'meta-files'}}) {780 $doc_db_text .= "<meta-file>$mf\n";781 }782 783 chomp($doc_db_text); # remove trailing \n770 # my $doc_db_text = ""; 771 # $doc_db_text .= "<doc-file>$oid_files->{'doc-file'}\n"; 772 # $doc_db_text .= "<index-status>$oid_files->{'index-status'}\n"; 773 # $doc_db_text .= "<src-file>$oid_files->{'src-file'}\n"; 774 775 # foreach my $af (@{$oid_files->{'assoc-file'}}) { 776 # $doc_db_text .= "<assoc-file>$af\n"; 777 # } 778 779 # foreach my $mf (@{$oid_files->{'meta-file'}}) { 780 # $doc_db_text .= "<meta-file>$mf\n"; 781 # } 782 783 # chomp($doc_db_text); # remove trailing \n 784 784 785 785 ##print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n"; 786 &GDBMUtils::gdbmDatabaseSet($doc_db,$oid,$doc_db_text); 786 787 ### &GDBMUtils::gdbmDatabaseSet($doc_db,$oid,$doc_db_text); 788 789 # switch to using GDBMUtils 790 791 $oid_files->{'doc-file'} = [ $oid_files->{'doc-file'} ]; 792 $oid_files->{'index-status'} = [ $oid_files->{'index-status'} ]; 793 $oid_files->{'src-file'} = [ $oid_files->{'src-file'} ]; 794 795 my $infodb_file_handle 796 = &dbutil::open_infodb_write_handle_gdbm($doc_db,"append"); 797 &dbutil::write_infodb_entry_gdbm($infodb_file_handle,$oid,$oid_files); 798 &dbutil::close_infodb_write_handle_gdbm($infodb_file_handle); 799 800 787 801 788 802 foreach my $rl (keys %$reverse_lookups) { 789 &GDBMUtils::gdbmDatabaseAppend($src_db,$rl,"<oid>$oid\n");790 } 791 803 ## &GDBMUtils::gdbmDatabaseAppend($src_db,$rl,"<oid>$oid\n"); 804 $working_info->add_reverseinfo($rl,$oid); 805 } 792 806 } 793 807
Note:
See TracChangeset
for help on using the changeset viewer.