Changeset 17289 for gsdl/trunk
- Timestamp:
- 2008-09-15T15:25:14+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ReadXMLFile.pm
r17026 r17289 213 213 $self->{'filename'} = $filename_full_path; 214 214 $self->{'processor'} = $processor; 215 # this contains metadata passed in from running metadata_read with other plugins (eg from MetadataXMLPlugin) 216 # we are also using it to store up any metadata found during parsing the XML, so that it can be added to the doc obj. 215 217 $self->{'metadata'} = $metadata; 216 218 219 if ($self->parsefile($filename_full_path)) { 220 return 1; # processed the file 221 } 222 return -1; 223 } 224 225 226 sub parse_file { 227 my $self = shift (@_); 228 my ($filename_full_path, $file, $gli) = @_; 217 229 eval { 218 230 my $xslt = $self->{'xslt'}; … … 252 264 return -1; # error during processing 253 265 } 254 255 256 return 1; # processed the file 257 } 258 266 return 1; # parsing was successful 267 } 259 268 260 269 sub get_default_process_exp {
Note:
See TracChangeset
for help on using the changeset viewer.