moving spurious error message out of the way
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 8 Feb 2006 15:38:01 +0000 (15:38 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 8 Feb 2006 15:38:01 +0000 (15:38 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3000 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm

index 1719823..ec9f234 100644 (file)
@@ -343,8 +343,10 @@ sub update {
 
        if (ref($arg)) {
                $self = $self->modify_from_fieldmapper($arg);
-               $log->debug("Modification of $self seems to have failed....", DEBUG);
-               return undef unless (defined $self);
+               unless (defined $self) {
+                       $log->debug("Modification of $arg seems to have failed....", DEBUG);
+                       return undef;
+               }
        }
 
        $log->debug("Calling Class::DBI->update on modified object $self", DEBUG);