Changeset 814

Timestamp:

02/28/10 16:09:06 (14 years ago)

Author:

nanardon

Message:

• avoid undef warning

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (1 diff)

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

@@ -291 +291 @@
                 $member{$_}{c} && $member{$_}{n} and next; # no change !
                 my $group = $self->base->get_object('group', $_) or next;
-                $group->_get_c_field('sutype') =~ /^(jobtype|contrattype)$/ and next;
+                ($group->_get_c_field('sutype') || '') =~ /^(jobtype|contrattype)$/ and next;
                 if ($member{$_}{n}) {
                     my $sth = $self->db->prepare_cached(