Changeset 27277 for main/trunk/greenstone2/perllib/cgiactions/baseaction.pm
- Timestamp:
- 2013-04-29T20:25:28+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/baseaction.pm
r27261 r27277 31 31 use inexport; 32 32 33 our $authen ication_enabled = 0;33 our $authentication_enabled = 0; 34 34 our $mail_enabled = 0; 35 35 … … 71 71 $err_mess .= " Compulsory args: "; 72 72 my @comp_args = ("c"); 73 push(@comp_args,"un") if ($authen ication_enabled);73 push(@comp_args,"un") if ($authentication_enabled); 74 74 push(@comp_args,@{$action_table->{$a}->{'compulsory-args'}}); 75 75 $err_mess .= join(", ", @comp_args); … … 78 78 79 79 my @opt_args = (); 80 push(@opt_args,"un") if (!$authen ication_enabled);80 push(@opt_args,"un") if (!$authentication_enabled); 81 81 push(@opt_args,@{$action_table->{$a}->{'optional-args'}}); 82 82
Note:
See TracChangeset
for help on using the changeset viewer.