Changeset 1416 for trunk/LATMOS-Accounts
- Timestamp:
- 10/07/15 16:48:36 (9 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm
r1413 r1416 11 11 use LATMOS::Accounts::Acls; 12 12 13 our $VERSION = '5.0. 0';13 our $VERSION = '5.0.2'; 14 14 15 15 =head1 NAME -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm
r1415 r1416 203 203 if ($self->{checkinputformat}) { 204 204 if (!$self->{checkinputformat}->($value)) { 205 return; 206 } 207 } 208 209 return 1; 210 } 211 212 =head2 checkinput ($value) 213 214 Check input value, return false on error 215 216 =cut 217 218 sub checkinput { 219 my ($self, $values) = @_; 220 221 foreach my $value (ref $values ? @{ $values } : $values) { 222 if (!$self->checkinputformat($value)) { 205 223 $self->base->log(LA_ERR, "Wrong format for %s/%s: %s", 206 224 $self->name, 207 225 $self->{_otype}, 208 226 $value 209 ); 210 return; 211 } 212 } 213 214 return 1; 215 } 216 217 =head2 checkinput ($value) 218 219 Check input value, return false on error 220 221 =cut 222 223 sub checkinput { 224 my ($self, $values) = @_; 225 226 foreach my $value (ref $values ? @{ $values } : $values) { 227 if (!$self->checkinputformat($value)) { 227 ); 228 228 return; 229 229 } -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r1415 r1416 692 692 # Invalid filter due to impossible value: 693 693 $attribute->checkinputformat($val) or do { 694 $base->log(LA_ERR, "Invalid value $val for attribute $attr");694 $base->log(LA_ERR, "Invalid format value $val for attribute $attr"); 695 695 return; 696 696 };
Note: See TracChangeset
for help on using the changeset viewer.