Changeset 1313 for trunk

Timestamp:

04/02/15 18:24:59 (9 years ago)

Author:

nanardon

Message:

Fix call to rollback

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

@@ -410 +410 @@
                 my @attrv = grep { $_ } $_->get_attributes($attr);
                 defined $_->set_c_fields($attr => [ @attrv, @value ]) or do {
-                    $_->rollback;
+                    $_->base->rollback;
                     printf $OUT "Cannot set $attr to %s for %s\n", join(', ',
                         @value), $_->id;