Changeset 4844

Timestamp:

2003-07-01T15:06:12+12:00 (21 years ago)

Author:

jrm21

Message:

database plugin doesn't take the "title_sub" option.

File:

• trunk/gsdl/perllib/plugins/DBPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/DBPlug.pm

@@ -49 +49 @@
     'type' => "string",
     'deft' => &get_default_process_exp(),
-    'reqd' => "no" } ,
-      { 'name' => "title_sub",
-    'desc' => "Substitution expression to modify string stored as Title. Used by, for example, PSPlug to remove \"Page 1\" etc from text used as the title.",
-    'type' => "string",
-    'deft' => "",
     'reqd' => "no" }];
 
@@ -61 +56 @@
         'args'     => $arguments };
 
-#  sub print_usage {
-#      print STDERR "\n  usage: plugin DBPlug [options]\n\n";
-#      print STDERR "  options:\n";
-#      print STDERR "\n";
-#  }
-
 sub new {
     my ($class) = @_;
@@ -74 +63 @@
     push( @{$option_list}, $options );
 
-    if (!parsargv::parse(\@_, 
-             q^title_sub/.*/^, \$self->{'title_sub'},
-             "allow_extra_options")) {
-    print STDERR "\nIncorrect options passed to DBPlug, check your collect.cfg configuration file\n";
-    $self->print_txt_usage();
-        die "\n";
-    }
+    # no plugin-specific options
+#    if (!parsargv::parse(\@_, "allow_extra_options")) {
+#   $self->print_txt_usage();
+#   die "\n";
+#    }