Diff for /loncom/lonsql between versions 1.74 and 1.75

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">'.

Removed from v.1.74  
changed lines
  Added in v.1.75


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>