Changeset 27319 for main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

Timestamp:

2013-05-09T13:31:55+12:00 (11 years ago)

Author:

ak19

Message:

key DB is gdbm and has no way of changing the DB type. Can't use infodbtype to work out its DB type, especially as infodbtype can be different on a per collection basis.

File:

• main/trunk/greenstone2/perllib/cgiactions/baseaction.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/cgiactions/baseaction.pm

@@ -330 +330 @@
             my $current_time = strftime("%Y/%m/%d %H:%M:%S\n", localtime($current_timestamp)); # POSIX
             
-            my $infodbtype = $self->{'infodbtype'};
-            my $key_rec = &dbutil::read_infodb_entry($infodbtype, $key_db_file_path, $user_key);
+            # infodbtype can be different for different collections, but the key DB is gdbm
+            my $key_rec = &dbutil::read_infodb_entry("gdbm", $key_db_file_path, $user_key);
             $key_rec->{"time"}->[0] = $current_time;
             my $status = &dbutil::set_infodb_entry($infodbtype, $key_db_file_path, $user_key, $key_rec);