Changeset 23401
- Timestamp:
- 2010-12-07T16:58:51+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/baseaction.pm
r21715 r23401 27 27 package baseaction; 28 28 29 30 29 use strict; 30 31 use inexport; 31 32 32 33 our $authenication_enabled = 0; … … 57 58 'iis6_mode' => $iis6_mode, 58 59 'gsdlhome' => $ENV{'GSDLHOME'} }; 59 60 60 61 61 # Retrieve the (required) command CGI argument … … 146 146 my $comp_args = $action_table->{$action}->{'compulsory-args'}; 147 147 foreach my $ca (@$comp_args) { 148 if (!defined $gsdl_cgi-> {$ca}) {148 if (!defined $gsdl_cgi->param($ca)) { 149 149 $gsdl_cgi->generate_error("Compulsory argument '$ca' missing"); 150 150 } … … 158 158 my $opt_args = $action_table->{$action}->{'optional-args'}; 159 159 foreach my $oa (@$opt_args) { 160 if (defined $gsdl_cgi-> {$oa}) {160 if (defined $gsdl_cgi->param($oa)) { 161 161 162 162 $self->{$oa} = $gsdl_cgi->clean_param($oa); … … 166 166 167 167 168 # Retrieve infodb-type 169 if (defined $collect) { 170 my $inexport = newCGI inexport("metadata-server",$collect); 171 my ($config_filename,$collect_cfg) = $inexport->read_collection_cfg($collect); 172 $self->{'infodbtype'} = $collect_cfg->{'infodbtype'}; 173 } 174 168 175 return bless $self, $class; 169 176 }
Note:
See TracChangeset
for help on using the changeset viewer.