Changeset 12397 for trunk/gsdl/perllib/plugins/ArcPlug.pm
- Timestamp:
- 2006-08-04T09:34:45+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ArcPlug.pm
r12169 r12397 116 116 # see if this has a archives information file within it 117 117 my $archive_info_filename = &util::filename_cat($base_dir,$file,"archives.inf"); 118 $self->{'archive_info_filename'} = $archive_info_filename;119 118 120 119 if (-e $archive_info_filename) { … … 126 125 my $archive_info = new arcinfo (); 127 126 $self->{'archive_info'} = $archive_info; 127 $self->{'archive_info_filename'} = $archive_info_filename; 128 128 129 129 $archive_info->load_info ($archive_info_filename);
Note:
See TracChangeset
for help on using the changeset viewer.