Changeset 2234 for trunk/LATMOS-Accounts/lib/LATMOS
- Timestamp:
- 03/08/19 14:31:40 (5 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Files:
-
- 4 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
Note: See TracChangeset
for help on using the changeset viewer.