loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.44, 2001/03/27 13:35:35	version 1.46, 2001/04/02 14:43:17
Line 972 sub make_new_child {	Line 972 sub make_new_child {
my ($cmd,$query,	my ($cmd,$query,
$custom,$customshow)=split(/:/,$userinput);	$custom,$customshow)=split(/:/,$userinput);
$query=~s/\n*$//g;	$query=~s/\n*$//g;
unless ($custom \|\| $customshow) {	unless ($custom or $customshow) {
print $client "".	print $client "".
sqlreply("$hostid{$clientip}\&$query")."\n";	sqlreply("$hostid{$clientip}\&$query")."\n";
}	}
Line 990 sub make_new_child {	Line 990 sub make_new_child {
$reply=~s/\&/\n/g;	$reply=~s/\&/\n/g;
print $store $reply;	print $store $reply;
close $store;	close $store;
	my $store2=IO::File->new(">$execdir/tmp/$id.end");
	print $store2 "done\n";
	close $store2;
print $client "ok\n";	print $client "ok\n";
}	}
else {	else {