| 3 |
# $Id$ |
# $Id$ |
| 4 |
# |
# |
| 5 |
# $Log$ |
# $Log$ |
| 6 |
|
# Revision 1.43 2003/07/02 11:07:12 jonen |
| 7 |
|
# re-activate filtering of results *after* results are fetched from tangram |
| 8 |
|
# (needed for e.g. UserManagment) |
| 9 |
|
# |
| 10 |
# Revision 1.42 2003/07/01 23:24:17 joko |
# Revision 1.42 2003/07/01 23:24:17 joko |
| 11 |
# now using package before using function |
# now using package before using function |
| 12 |
# |
# |
| 623 |
#@results = eval($evalstring); |
#@results = eval($evalstring); |
| 624 |
#die $@ if $@; |
#die $@ if $@; |
| 625 |
|
|
| 626 |
=pod |
# filter results - NEEDED for e.g. UserManagment !! |
| 627 |
# filter results |
if ($in->{filters}->[0]->{op} && ($in->{filters}->[0]->{op} eq "ref")) { |
|
if ($filters->[0]->{op} && ($filters->[0]->{op} eq "ref")) { |
|
| 628 |
#print "Filter->op eq 'ref'.\n"; |
#print "Filter->op eq 'ref'.\n"; |
| 629 |
my $att_name = $filters->[0]->{key}; |
my $att_name = $in->{filters}->[0]->{key}; |
| 630 |
my $att_val = $filters->[0]->{val}; |
my $att_val = $in->{filters}->[0]->{val}; |
| 631 |
my @filtered; |
my @filtered; |
| 632 |
foreach(@results) { |
foreach(@results) { |
| 633 |
if(ref($_->{$att_name}) eq $att_val) { |
if(ref($_->{$att_name}) eq $att_val) { |
| 636 |
} |
} |
| 637 |
@results = @filtered; |
@results = @filtered; |
| 638 |
} |
} |
|
=cut |
|
| 639 |
|
|
| 640 |
#print "results: " . Dumper(\@results); |
#print "results: " . Dumper(\@results); |
| 641 |
|
|
Parent Directory
| 
Revision Log
| 
Patch
