Changeset 4744 for trunk/gsdl/perllib/plugins/BibTexPlug.pm

Timestamp:

2003-06-20T14:22:34+12:00 (21 years ago)

Author:

mdewsnip

Message:

Tidied up and structures (representing the options of the plugin) in preparation for removing the print_usage() routines.

File:

• trunk/gsdl/perllib/plugins/BibTexPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BibTexPlug.pm

@@ -52 +52 @@
 
 my $arguments = 
-[ {     'name' => "process_exp",
-    'desc' => "A perl regular expression to match against filenames. Matching filenames will be processed by this plugin. Each plugin has its own default process_exp. e.g HTMLPlug defaults to '(?i)\.html?\$' i.e. all documents ending in .htm or .html (case-insensitive).",
+    [ { 'name' => "process_exp",
+    'desc' => "A perl regular expression to match against filenames. Matching filenames will be processed by this plugin. For example, using '(?i).html?\$' matches all documents ending in .htm or .html (case-insensitive).",
     'type' => "string",
     'reqd' => "no" ,
-    'deft' => q^(?i)\.bib$^ }
-];
-
-my $options = 
-{   'name'     => "BibTexPlug",
-    'desc'     => "BibTexPlug reads bibliography files in BibTex format. BibTexPlug creates a document object for every reference in the file. It is a subclass of SplitPlug, so if there are multiple records, all are read.",
-    'inherits' => "Yes",
-    'args'     => $arguments };
+    'deft' => q^(?i)\.bib$^ } ];
+
+my $options = { 'name'     => "BibTexPlug",
+        'desc'     => "BibTexPlug reads bibliography files in BibTex format. BibTexPlug creates a document object for every reference in the file. It is a subclass of SplitPlug, so if there are multiple records, all are read.",
+        'inherits' => "Yes",
+        'args'     => $arguments };
 
 # This plugin processes files with the suffix ".bib"