version 1.318.2.1, 2006/02/09 20:23:28
|
version 1.318.2.2, 2006/02/09 20:39:25
|
Line 3071 sub store_handler {
|
Line 3071 sub store_handler {
|
my ($key)=split(/=/,$pair); |
my ($key)=split(/=/,$pair); |
$allkeys.=$key.':'; |
$allkeys.=$key.':'; |
} |
} |
$hashref->{"$version:$rid"}=$what; |
$hashref->{"$version:$rid"}=$what."\×tamp=$now"; |
|
|
$hashref->{"$version:$rid:timestamp"}=$now; |
|
$allkeys.='timestamp'; |
$allkeys.='timestamp'; |
$hashref->{"$version:keys:$rid"}=$allkeys; |
$hashref->{"$version:keys:$rid"}=$allkeys; |
if (&untie_user_hash($hashref)) { |
if (&untie_user_hash($hashref)) { |