version 1.13, 2001/03/26 20:17:20
|
version 1.17, 2001/03/26 20:43:04
|
Line 234 sub make_new_child {
|
Line 234 sub make_new_child {
|
else { |
else { |
my $r1=$sth->fetchall_arrayref; |
my $r1=$sth->fetchall_arrayref; |
my @r2; map {my $a=$_; my @b=map {escape($_)} @$a; push @r2,join(",", @b)} (@$r1); |
my @r2; map {my $a=$_; my @b=map {escape($_)} @$a; push @r2,join(",", @b)} (@$r1); |
$result=join("&",@r2) . "\n"; |
$result=join("&",@r2); |
} |
} |
|
|
# do custom metadata searching here and build into result |
# do custom metadata searching here and build into result |
Line 261 sub make_new_child {
|
Line 261 sub make_new_child {
|
$result.=$customresult; |
$result.=$customresult; |
} |
} |
# reply with result |
# reply with result |
$result.="ABCABC"; |
$result.="\n" if $result; |
&reply("queryreply:$queryid:$result",$conserver); |
&reply("queryreply:$queryid:$result",$conserver); |
|
|
} |
} |