Changeset 396 for LATMOS-Accounts
- Timestamp:
- 08/26/09 17:27:51 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Group.pm
r395 r396 95 95 my ($self, %data) = @_; 96 96 my %fdata; 97 my $res = 0; 97 98 foreach my $attr (keys %data) { 98 99 $attr =~ /^memberUID|member$/ and do { … … 113 114 ); 114 115 $sth->execute($_, 'memberUID', $self->_get_ikey); 116 $res++; 115 117 } elsif ($member{$_}{c}) { 116 118 my $sth = $self->db->prepare_cached( … … 118 120 ); 119 121 $sth->execute($_, 'memberUID', $self->_get_ikey); 122 $res++; 120 123 } # else {} # can't happend 121 124 } … … 125 128 } 126 129 if (keys %fdata) { 127 $self->SUPER::set_fields(%fdata); 130 return $res + $self->SUPER::set_fields(%fdata); 131 } else { 132 $res 128 133 } 129 134 }
Note: See TracChangeset
for help on using the changeset viewer.