Changeset 32539 for main/trunk/greenstone2/perllib/plugins/PrintInfo.pm
- Timestamp:
- 2018-10-25T18:12:59+13:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/PrintInfo.pm
r32281 r32539 50 50 { 'name' => "gs_version", 51 51 'desc' => "{PrintInfo.gs_version}", 52 'type' => "string", 53 'reqd' => "no", 54 'hiddengli' => "yes" }, 55 { 'name' => "site_name", 56 'desc' => "{PrintInfo.site_name}", 52 57 'type' => "string", 53 58 'reqd' => "no", … … 81 86 # the args, just return the object. 82 87 # gsdlinfo must come before gs_version. both are set by plugin.pm 88 # The optional -site_name <site> (present only for GS3 and when not doing gsdlinfo), 89 # if it is there, also appears before gs_version and is also set by plugin.pm 83 90 my $v=0; 84 91 foreach my $strArg (@{$args}) 85 92 { 86 if ($v) { 93 if($v eq "-site_name") { 94 $self->{'site_name'} = $strArg; 95 } 96 elsif($v eq "-gs_version") { 87 97 $self->{'gs_version'} = $strArg; 88 98 last; … … 93 103 #return bless $self, $class; 94 104 } 95 elsif ($strArg eq "-gs_version" ) {96 $v = 1;105 elsif ($strArg eq "-gs_version" || $strArg eq "-site_name") { 106 $v = $strArg; 97 107 } 98 108 }
Note:
See TracChangeset
for help on using the changeset viewer.