- Timestamp:
- 03/08/19 14:31:40 (5 years ago)
- Location:
- trunk/LATMOS-Accounts
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm
r2233 r2234 1251 1251 1252 1252 sub QFunc { 1253 my ($self, $sub, @args) = @_; 1253 my ($self, $sub, $args) = @_; 1254 1255 $args ||= ''; 1256 my @args = split(',', $args); 1254 1257 1255 1258 for ($sub) { -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm
r2227 r2234 320 320 my $res = ''; 321 321 322 if (!$op) { 322 if ($op) { 323 if ($op eq '?') { 324 $res = $val ? $3 : ''; 325 } elsif ($op eq '?!') { 326 $res = $val ? '' : $3; 327 } 328 if ($res =~ /^(\w+)\((.*)\)$/) { 329 $res = $self->base->QFunc($1, $2); 330 } 331 } else { 323 332 for ($modifier) { 324 333 /upper/ and do { … … 332 341 $res = sprintf('%' . ($3 || 's'), ref $val ? join(',', @$val) : (defined($val) ? $val : '')) 333 342 } 334 } elsif ($op eq '?') {335 $res = $val ? $3 : '';336 } elsif ($op eq '?!') {337 $res = $val ? '' : $3;338 343 } 339 344 $res -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm
r2233 r2234 1184 1184 } 1185 1185 1186 sub QFunc {1187 my ($self, $sub, @args) = @_;1188 1189 $self->SUPER::QFunc($sub, @args);1190 }1191 1192 1193 1186 1; 1194 1187 -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r2233 r2234 1013 1013 1014 1014 if (my ($func, $args) = $val =~ /^(\w+)\((.*)\)$/) { 1015 $args ||= ''; 1016 my @args = split(',', $args); 1017 1018 $val = $base->QFunc( $func, @args ); 1015 $val = $base->QFunc( $func, $args ); 1019 1016 } 1020 1017 -
trunk/LATMOS-Accounts/t/10_bases.t
r2232 r2234 18 18 ok(eq_set( 19 19 [ $dummyb->list_canonical_fields('user') ], 20 [qw( username homeDirectory) ],20 [qw( username homeDirectory shell gecos uidNumber gidNumber ) ], 21 21 ), "Can get canonicals fields"); 22 22 is( $dummyb->attribute('user', 'homeDirectory')->iname, "home", "can call get_fields_name");
Note: See TracChangeset
for help on using the changeset viewer.