Changeset 396

Timestamp:

08/26/09 17:27:51 (15 years ago)

Author:

nanardon

Message:

• fix change detection in sql group

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Group.pm (modified) (4 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Group.pm

@@ -95 +95 @@
     my ($self, %data) = @_;
     my %fdata;
+    my $res = 0;
     foreach my $attr (keys %data) {
         $attr =~ /^memberUID|member$/ and do {
@@ -113 +114 @@
                     );
                     $sth->execute($_, 'memberUID', $self->_get_ikey);
+                    $res++;
                 } elsif ($member{$_}{c}) {
                     my $sth = $self->db->prepare_cached(
@@ -118 +120 @@
                     );
                     $sth->execute($_, 'memberUID', $self->_get_ikey);
+                    $res++;
                 } # else {} # can't happend
             }
@@ -125 +128 @@
     }
     if (keys %fdata) {
-        $self->SUPER::set_fields(%fdata);
+        return $res + $self->SUPER::set_fields(%fdata);
+    } else {
+        $res
     }
 }