loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.74, 2006/02/08 21:17:53	version 1.75, 2006/02/10 09:47:36
Line 444 sub make_new_child {	Line 444 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) {
Line 541 sub do_sql_query {	Line 547 sub do_sql_query {
#	#
if ($query) {	if ($query) {
#prepare and execute the query	#prepare and execute the query
	&logthis($query);
my $sth = $dbh->prepare($query);	my $sth = $dbh->prepare($query);
unless ($sth->execute()) {	unless ($sth->execute()) {
&logthis('<font color="blue">'.	&logthis('<font color="blue">'.