Changeset 15872 for gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
- Timestamp:
- 2008-06-05T09:29:32+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
r15865 r15872 1 1 ########################################################################### 2 2 # 3 # MARCXMLPlug .pm3 # MARCXMLPlugin.pm 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 28 28 # well-formedness). 29 29 30 package MARCXMLPlug ;31 32 use XMLPlug;30 package MARCXMLPlugin; 31 32 use ReadXMLFile; 33 33 34 34 use strict; … … 36 36 37 37 sub BEGIN { 38 @MARCXMLPlug ::ISA = ('XMLPlug');38 @MARCXMLPlugin::ISA = ('ReadXMLFile'); 39 39 } 40 40 41 41 my $arguments = [{'name' => "metadata_mapping_file", 42 'desc' => "{MARCXMLPlug .metadata_mapping_file}",42 'desc' => "{MARCXMLPlugin.metadata_mapping_file}", 43 43 'type' => "string", 44 44 'deft' => "marctodc.txt", 45 45 'reqd' => "no" }]; 46 46 47 my $options = { 'name' => "MARCXMLPlug ",48 'desc' => "{MARCXMLPlug .desc}",47 my $options = { 'name' => "MARCXMLPlugin", 48 'desc' => "{MARCXMLPlugin.desc}", 49 49 'abstract' => "no", 50 50 'inherits' => "yes", … … 57 57 push(@$pluginlist, $class); 58 58 59 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}60 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};61 62 my $self = new XMLPlug($pluginlist, $inputargs, $hashArgOptLists);59 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 60 push(@{$hashArgOptLists->{"OptList"}},$options); 61 62 my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists); 63 63 64 64 $self->{'content'} = ""; … … 222 222 if (scalar(@$mm_files)==0) 223 223 { 224 my $msg = "MARCXMLPlug ERROR: Can't locate mapping file \"" .224 my $msg = "MARCXMLPlugin ERROR: Can't locate mapping file \"" . 225 225 $self->{'metadata_mapping_file'} . "\".\n " . 226 226 " No marc files can be processed.\n"; … … 269 269 $self->{'indent'} = 0; 270 270 my $outhandle = $self->{'outhandle'}; 271 print $outhandle "MARCXMLPlug : processing $self->{'file'}\n" if $self->{'verbosity'} > 1;272 print STDERR "<Processing n='$self->{'file'}' p='MARCXMLPlug '>\n" if $self->{'gli'};271 print $outhandle "MARCXMLPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1; 272 print STDERR "<Processing n='$self->{'file'}' p='MARCXMLPlugin'>\n" if $self->{'gli'}; 273 273 274 274 } … … 310 310 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding); 311 311 my ($filemeta) = $file =~ /([^\\\/]+)$/; 312 $ doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));312 $self->set_Source_metadata($doc_obj, $filemeta, $encoding); 313 313 $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "SourceSegment", "$self->{'record_count'}"); 314 314 if ($self->{'cover_image'}) { … … 319 319 320 320 my $outhandle = $self->{'outhandle'}; 321 print $outhandle "Record $self->{'record_count'} - MARCXMLPlug : processing $self->{'file'}\n" if $self->{'verbosity'} > 1;321 print $outhandle "Record $self->{'record_count'} - MARCXMLPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1; 322 322 323 323 $self->{'record_count'}++;
Note:
See TracChangeset
for help on using the changeset viewer.