Changeset 21619 for main/trunk
- Timestamp:
- 2010-01-25T17:17:12+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/inexport.pm
r21566 r21619 33 33 use util; 34 34 35 36 sub src_db_file {37 my ($archivedir) = @_;38 return &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $archivedir);39 }40 41 sub doc_db_file {42 my ($archivedir) = @_;43 return &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir);44 }45 35 46 36 sub oid_count_file { … … 98 88 99 89 # in this method, we want to know if metadata files are modified or not. 100 my $arcinfo_doc_filename = &d oc_db_file($archivedir);90 my $arcinfo_doc_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir); 101 91 102 92 my $archiveinf_timestamp = -M $arcinfo_doc_filename; … … 296 286 $mode_text = "reindexed"; 297 287 } 298 my $arcinfo_doc_filename = &d oc_db_file($archivedir);299 my $arcinfo_src_filename = & src_db_file($archivedir);288 my $arcinfo_doc_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-doc", $archivedir); 289 my $arcinfo_src_filename = &dbutil::get_infodb_file_path("gdbm", "archiveinf-src", $archivedir); 300 290 my $doc_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_doc_filename, "append"); 301 291 my $src_infodb_file_handle = &dbutil::open_infodb_write_handle("gdbm", $arcinfo_src_filename, "append");
Note:
See TracChangeset
for help on using the changeset viewer.