loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.70, 2006/02/07 05:08:27	version 1.71.2.1, 2006/02/10 09:50:50
Line 424 sub make_new_child {	Line 424 sub make_new_child {
}	}
# end of log query	# end of log query
} elsif (($query eq 'fetchenrollment') \|\|	} elsif (($query eq 'fetchenrollment') \|\|
($query eq 'institutionalphotos')) {	($query eq 'institutionalphotos')) {
# retrieve institutional class lists	# retrieve institutional class lists
my $dom = &unescape($arg1);	my $dom = &unescape($arg1);
my %affiliates = ();	my %affiliates = ();
Line 440 sub make_new_child {	Line 440 sub make_new_child {
$locresult = &localenroll::fetch_enrollment($dom,\%affiliates,\%replies);	$locresult = &localenroll::fetch_enrollment($dom,\%affiliates,\%replies);
} elsif ($query eq 'institutionalphotos') {	} elsif ($query eq 'institutionalphotos') {
my $crs = &unescape($arg2);	my $crs = &unescape($arg2);
$locresult = &localenroll::institutional_photos($dom,$crs,\%affiliates,\%replies,'update');	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) {