Changeset 32586 for main/trunk/greenstone2/perllib/plugins/PrintInfo.pm

Timestamp:

2018-11-08T18:54:56+13:00 (5 years ago)

Author:

ak19

Message:

Renaming 'site_name' parameter used by GS SQL Plugout and Plugin to 'site' for consistency with existing uses of site.

File:

• main/trunk/greenstone2/perllib/plugins/PrintInfo.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/PrintInfo.pm

@@ -53 +53 @@
       'reqd' => "no",
       'hiddengli' => "yes" },
-    { 'name' => "site_name",
-      'desc' => "{PrintInfo.site_name}",
+    { 'name' => "site",
+      'desc' => "{PrintInfo.site}",
       'type' => "string",
       'reqd' => "no",
@@ -86 +86 @@
     # the args, just return the object. 
     # gsdlinfo must come before gs_version. both are set by plugin.pm
-    # The optional -site_name <site> (present only for GS3 and when not doing gsdlinfo),
+    # The optional -site <site-name> (present only for GS3 and when not doing gsdlinfo),
     # if it is there, also appears before gs_version and is also set by plugin.pm
     my $v=0;
     foreach my $strArg (@{$args})
     {
-    if($v eq "-site_name") {
-        $self->{'site_name'} = $strArg;
+    if($v eq "-site") {
+        $self->{'site'} = $strArg;
     }
     elsif($v eq "-gs_version") {
@@ -103 +103 @@
         #return bless $self, $class;
     }
-    elsif ($strArg eq "-gs_version" || $strArg eq "-site_name") {       
+    elsif ($strArg eq "-gs_version" || $strArg eq "-site") {        
         $v = $strArg;
     }