Changeset 27320
- Timestamp:
- 2013-05-09T13:39:24+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/baseaction.pm
r27319 r27320 35 35 use POSIX; 36 36 37 our $authentication_enabled = 1; # debugging flag (can debug without authentication when set to 0)37 our $authentication_enabled = 0; # debugging flag (can debug without authentication when set to 0) 38 38 our $mail_enabled = 0; 39 39 … … 333 333 my $key_rec = &dbutil::read_infodb_entry("gdbm", $key_db_file_path, $user_key); 334 334 $key_rec->{"time"}->[0] = $current_time; 335 my $status = &dbutil::set_infodb_entry( $infodbtype, $key_db_file_path, $user_key, $key_rec);335 my $status = &dbutil::set_infodb_entry("gdbm", $key_db_file_path, $user_key, $key_rec); 336 336 337 337 if ($status != 0) {
Note:
See TracChangeset
for help on using the changeset viewer.