Changeset 9493
- Timestamp:
- 2005-03-23T15:46:13+12:00 (19 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/MARCPlug.pm
r9118 r9493 191 191 $self->{'readfile_encoding'} = $encoding; 192 192 193 @marc_entries = ();193 my @marc_entries = (); 194 194 195 195 if (!-r $filename) … … 208 208 } 209 209 210 $self->{'marc_entries'} = \@marc_entries;210 $self->{'marc_entries'}->{$filename} = \@marc_entries; 211 211 } 212 212 … … 235 235 $doc_obj->add_metadata($cursection, "FileFormat", "MARC"); 236 236 237 my $marc_entries = $self->{'marc_entries'}; 237 my $filename = &util::filename_cat($base_dir, $file); 238 my $marc_entries = $self->{'marc_entries'}->{$filename}; 238 239 my $marc = shift(@$marc_entries); 239 240 -
trunk/gsdl/perllib/plugins/SplitPlug.pm
r9357 r9493 169 169 if $self->{'verbosity'}; 170 170 171 $self->{'split_segments'} = \@segments;171 $self->{'split_segments'}->{$file} = \@segments; 172 172 $split_matched = scalar(@segments); 173 173 } … … 208 208 $self->{'textcat_store'}->{$file} = undef; 209 209 210 my $segments = $self->{'split_segments'}; 211 212 $self->{'split_segments'} = undef; 210 my $segments = $self->{'split_segments'}->{$file}; 211 $self->{'split_segments'}->{$file} = undef; 213 212 214 213 # Process each segment in turn
Note:
See TracChangeset
for help on using the changeset viewer.