|
version 1.201, 2004/06/21 14:08:20
|
version 1.202, 2004/06/29 14:56:32
|
|
Line 2836 sub make_new_child {
|
Line 2836 sub make_new_child {
|
| my %hash; |
my %hash; |
| if (tie(%hash,'GDBM_File',"$proname.db",&GDBM_WRCREAT(),0640)) { |
if (tie(%hash,'GDBM_File',"$proname.db",&GDBM_WRCREAT(),0640)) { |
| foreach my $pair (@pairs) { |
foreach my $pair (@pairs) { |
| my ($key,$value)=split(/=/,$pair); |
my ($key,$descr,$inst_code)=split(/=/,$pair); |
| $hash{$key}=$value.':'.$now; |
$hash{$key}=$descr.':'.$inst_code.':'.$now; |
| } |
} |
| if (untie(%hash)) { |
if (untie(%hash)) { |
| print $client "ok\n"; |
print $client "ok\n"; |
|
Line 2872 sub make_new_child {
|
Line 2872 sub make_new_child {
|
| my %hash; |
my %hash; |
| if (tie(%hash,'GDBM_File',"$proname.db",&GDBM_READER(),0640)) { |
if (tie(%hash,'GDBM_File',"$proname.db",&GDBM_READER(),0640)) { |
| while (my ($key,$value) = each(%hash)) { |
while (my ($key,$value) = each(%hash)) { |
| my ($descr,$lasttime)=split(/\:/,$value); |
my ($descr,$lasttime,$inst_code); |
| |
if ($value =~ m/^([^\:]*):([^\:]*):(\d+)$/) { |
| |
($descr,$inst_code,$lasttime)=($1,$2,$3); |
| |
} else { |
| |
($descr,$lasttime) = split(/\:/,$value); |
| |
} |
| if ($lasttime<$since) { next; } |
if ($lasttime<$since) { next; } |
| if ($description eq '.') { |
if ($description eq '.') { |
| $qresult.=$key.'='.$descr.'&'; |
$qresult.=$key.'='.$descr.':'.$inst_code.'&'; |
| } else { |
} else { |
| my $unescapeVal = &unescape($descr); |
my $unescapeVal = &unescape($descr); |
| if (eval('$unescapeVal=~/\Q$description\E/i')) { |
if (eval('$unescapeVal=~/\Q$description\E/i')) { |
| $qresult.="$key=$descr&"; |
$qresult.=$key.'='.$descr.':'.$inst_code.'&'; |
| } |
} |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom