Changeset 5866
- Timestamp:
- 2003-11-18T09:42:05+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/MARCPlug.pm
r5680 r5866 35 35 sub BEGIN { 36 36 @ISA = ('SplitPlug'); 37 unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");38 37 } 39 38 … … 50 49 'args' => $arguments }; 51 50 52 use MARC::Record;53 use MARC::Batch;51 require MARC::Record; 52 require MARC::Batch; 54 53 55 54 # sub print_usage { … … 69 68 70 69 if (!parsargv::parse(\@_, 71 q^metadata_map /.*/marctodc.txt^, \$metadata_mapping,70 q^metadata_mapping/.*/marctodc.txt^, \$metadata_mapping, 72 71 "allow_extra_options")) { 73 72
Note:
See TracChangeset
for help on using the changeset viewer.