--- loncom/lonsql 2006/02/08 21:17:53 1.74 +++ loncom/lonsql 2006/02/10 09:47:36 1.75 @@ -3,7 +3,7 @@ # The LearningOnline Network # lonsql - LON TCP-MySQL-Server Daemon for handling database requests. # -# $Id: lonsql,v 1.74 2006/02/08 21:17:53 www Exp $ +# $Id: lonsql,v 1.75 2006/02/10 09:47:36 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -444,7 +444,13 @@ sub make_new_child { $locresult = &localenroll::fetch_enrollment($dom,\%affiliates,\%replies); } elsif ($query eq 'institutionalphotos') { 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.':'); if ($locresult) { @@ -541,6 +547,7 @@ sub do_sql_query { # if ($query) { #prepare and execute the query + &logthis($query); my $sth = $dbh->prepare($query); unless ($sth->execute()) { &logthis(''.