Changeset 18659 for gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm
- Timestamp:
- 2009-03-11T13:13:55+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ArchivesInfPlugin.pm
r18528 r18659 25 25 26 26 # plugin which reads through an archives.inf (or GDBM equivalent, 27 # archiveinf-doc. {ldb,bdb}file (i.e. the file generated in the27 # archiveinf-doc.gdb file (i.e. the file generated in the 28 28 # archives directory when an import is done), processing each file it 29 29 # finds … … 204 204 # see if this has a archives information file within it 205 205 ## my $archive_info_filename = &util::filename_cat($base_dir,$file,"archives.inf"); 206 my $db_ext = &util::is_little_endian() ? ".ldb" : ".bdb"; 207 my $doc_db = "archiveinf-doc $db_ext";206 207 my $doc_db = "archiveinf-doc.gdb"; 208 208 my $archive_info_filename = &util::filename_cat($base_dir,$file,$doc_db); 209 209
Note:
See TracChangeset
for help on using the changeset viewer.