Changeset 2483

Timestamp:

06/02/08 18:18:29 (17 months ago)

Author:

bchoate

Message:

Return DBI error raised during save. BugId:79972

Files:

• branches/release-39/lib/MT/Object.pm (modified) (1 diff)

branches/release-39/lib/MT/Object.pm

@@ -710 +710 @@
 sub remove_all     { shift->_proxy('remove_all',     @_) }
 
+sub save {
+    my $obj = shift;
+    my $res = eval {
+        my $dbh = $obj->driver->rw_handle;
+        local $dbh->{RaiseError} = 1;
+        $obj->SUPER::save(@_);
+    };
+    if (my $err = $@) {
+        return $obj->error($err);
+    }
+    return $res;
+}
+
 sub remove {
     my $obj = shift;