loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.60, 2004/05/11 21:08:20	version 1.62, 2004/06/08 22:09:44
Line 115 use Fcntl;	Line 115 use Fcntl;
use Tie::RefHash;	use Tie::RefHash;
use DBI;	use DBI;
use File::Find;	use File::Find;
	use localenroll;

########################################################	########################################################
########################################################	########################################################
Line 381 sub make_new_child {	Line 382 sub make_new_child {
$queryid .= $run;	$queryid .= $run;
print $client "$queryid\n";	print $client "$queryid\n";
#	#
&logthis("QUERY: $query - $arg1 - $arg2 - $arg3");	# &logthis("QUERY: $query - $arg1 - $arg2 - $arg3");
sleep 1;	sleep 1;
#	#
my $result='';	my $result='';
Line 406 sub make_new_child {	Line 407 sub make_new_child {
$result='no_such_file';	$result='no_such_file';
}	}
# end of log query	# end of log query
	} elsif ($query eq 'fetchenrollment') {
	# retrieve institutional class lists
	my $dom = &unescape($arg1);
	my %affiliates = ();
	my %replies = ();
	my $locresult = '';
	my $querystr = &unescape($arg3);
	foreach (split/%%/,$querystr) {
	if (/^(\w+)=([^=]+)$/) {
	@{$affiliates{$1}} = split/,/,$2;
	}
	}
	$locresult = &localenroll::fetch_enrollment($dom,\%affiliates,\%replies);
	$result = &escape($locresult.':');
	if ($locresult) {
	$result .= &escape(join(':',map{$_.'='.$replies{$_}} keys %replies));
	}
} else {	} else {
# Do an sql query	# Do an sql query
$result = &do_sql_query($query,$arg1,$arg2);	$result = &do_sql_query($query,$arg1,$arg2);