loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.69, 2005/11/24 20:03:49	version 1.71.2.1, 2006/02/10 09:50:50
Line 423 sub make_new_child {	Line 423 sub make_new_child {
$result='no_such_file';	$result='no_such_file';
}	}
# end of log query	# end of log query
} elsif ($query eq 'fetchenrollment') {	} elsif (($query eq 'fetchenrollment') \|\|
	($query eq 'institutionalphotos')) {
# retrieve institutional class lists	# retrieve institutional class lists
my $dom = &unescape($arg1);	my $dom = &unescape($arg1);
my %affiliates = ();	my %affiliates = ();
Line 435 sub make_new_child {	Line 436 sub make_new_child {
@{$affiliates{$1}} = split/,/,$2;	@{$affiliates{$1}} = split/,/,$2;
}	}
}	}
$locresult = &localenroll::fetch_enrollment($dom,\%affiliates,\%replies);	if ($query eq 'fetchenrollment') {
	$locresult = &localenroll::fetch_enrollment($dom,\%affiliates,\%replies);
	} elsif ($query eq 'institutionalphotos') {
	my $crs = &unescape($arg2);
	eval {
	local($SIG{__DIE__})='DEFAULT';
	$locresult = &localenroll::institutional_photos($dom,$crs,\%affiliates,\%replies,'update');
	};
	if ($@) {
	$locresult = 'error';
	}
	}
$result = &escape($locresult.':');	$result = &escape($locresult.':');
if ($locresult) {	if ($locresult) {
$result .= &escape(join(':',map{$_.'='.$replies{$_}} keys %replies));	$result .= &escape(join(':',map{$_.'='.$replies{$_}} keys %replies));