Changeset 11677

Timestamp:

2006-04-21T15:17:33+12:00 (18 years ago)

Author:

kjdon

Message:

added a few more print methods so that pluginfo will work properly

File:

• trunk/gsdl/perllib/plugins/GISBasPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/GISBasPlug.pm

@@ -29 +29 @@
 use locale;
 
+use gsprintf 'gsprintf';
 use strict;
 no strict 'refs'; # allow filehandles to be variables and viceversa
-
+no strict 'subs';
 #field categories in DataBase files
 #$LAT = 3;
@@ -82 +83 @@
 {
    BasPlug::print_txt_usage(@_);
+}
+
+sub determine_description_offset
+{
+    BasPlug::determine_description_offset(@_);
+}
+sub print_plugin_usage
+{
+    my $plugindesc = $options->{'desc'};
+
+    if (defined($plugindesc)) {
+    gsprintf(STDERR, "$plugindesc\n\n");
+    }
+ 
 }