Changeset 17740
- Timestamp:
- 2008-11-06T14:17:42+13:00 (15 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/GreenstoneXMLPlugin.pm
r17739 r17740 1 1 ########################################################################### 2 2 # 3 # G APlugin.pm3 # GreenstoneXMLPlugin.pm 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 29 29 # to their DTD. 30 30 31 package G APlugin;31 package GreenstoneXMLPlugin; 32 32 33 33 use ReadXMLFile; … … 37 37 38 38 sub BEGIN { 39 @G APlugin::ISA = ('ReadXMLFile');39 @GreenstoneXMLPlugin::ISA = ('ReadXMLFile'); 40 40 } 41 41 … … 54 54 'reqd' => "no" } ]; 55 55 56 my $options = { 'name' => "G APlugin",56 my $options = { 'name' => "GreenstoneXMLPlugin", 57 57 'desc' => "{GAPlugin.desc}", 58 58 'abstract' => "no", … … 106 106 107 107 my $outhandle = $self->{'outhandle'}; 108 print $outhandle "G APlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;109 print STDERR "<Processing n='$self->{'file'}' p='G APlugin'>\n" if $self->{'gli'};108 print $outhandle "GreenstoneXMLPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1; 109 print STDERR "<Processing n='$self->{'file'}' p='GreenstoneXMLPlugin'>\n" if $self->{'gli'}; 110 110 111 111 }
Note:
See TracChangeset
for help on using the changeset viewer.