version 1.132, 2003/07/14 13:43:42
|
version 1.133, 2003/08/11 21:15:26
|
Line 1556 sub make_new_child {
|
Line 1556 sub make_new_child {
|
while (($key,$value) = each(%hash)) { |
while (($key,$value) = each(%hash)) { |
my ($descr,$lasttime)=split(/\:/,$value); |
my ($descr,$lasttime)=split(/\:/,$value); |
if ($lasttime<$since) { next; } |
if ($lasttime<$since) { next; } |
if ($regexp eq '.') { |
if ($description eq '.') { |
$qresult.=$key.'='.$descr.'&'; |
$qresult.=$key.'='.$descr.'&'; |
} else { |
} else { |
my $unescapeVal = &unescape($descr); |
my $unescapeVal = &unescape($descr); |