- Timestamp:
- 2009-09-16T14:05:23+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm
r19672 r20609 45 45 'type' => "string", 46 46 'deft' => "marc2dc.txt", 47 'reqd' => "no" }]; 47 'reqd' => "no" }, 48 { 'name' => "process_exp", 49 'desc' => "{BasePlugin.process_exp}", 50 'type' => "regexp", 51 'deft' => &get_default_process_exp(), 52 'reqd' => "no" }]; 48 53 49 54 my $options = { 'name' => "MARCXMLPlugin", … … 53 58 'args' => $arguments 54 59 }; 60 55 61 56 62 sub new { … … 99 105 100 106 107 sub get_default_process_exp { 108 my $self = shift (@_); 109 110 return q^(?i)\.xml$^; 111 } 101 112 102 113 sub get_doctype {
Note:
See TracChangeset
for help on using the changeset viewer.