Lines 719-729
elsif ($phase eq 'Run this report'){
Link Here
|
719 |
my @authval_errors; |
719 |
my @authval_errors; |
720 |
my %uniq_params; |
720 |
my %uniq_params; |
721 |
for(my $i=0;$i<($#split/2);$i++) { |
721 |
for(my $i=0;$i<($#split/2);$i++) { |
722 |
my ($text,$authorised_value) = split /\|/,$split[$i*2+1]; |
722 |
my ($text,$authorised_value_all) = split /\|/,$split[$i*2+1]; |
723 |
my $sep = $authorised_value ? "|" : ""; |
723 |
my $sep = $authorised_value_all ? "|" : ""; |
724 |
if( defined $uniq_params{$text.$sep.$authorised_value} ){ |
724 |
if( defined $uniq_params{$text.$sep.$authorised_value_all} ){ |
725 |
next; |
725 |
next; |
726 |
} else { $uniq_params{$text.$sep.$authorised_value} = "$i"; } |
726 |
} else { $uniq_params{$text.$sep.$authorised_value_all} = "$i"; } |
|
|
727 |
my ($authorised_value, $all) = split /:/, $authorised_value_all; |
727 |
my $input; |
728 |
my $input; |
728 |
my $labelid; |
729 |
my $labelid; |
729 |
if ( not defined $authorised_value ) { |
730 |
if ( not defined $authorised_value ) { |
Lines 815-821
elsif ($phase eq 'Run this report'){
Link Here
|
815 |
}; |
816 |
}; |
816 |
} |
817 |
} |
817 |
|
818 |
|
818 |
push @tmpl_parameters, {'entry' => $text, 'input' => $input, 'labelid' => $labelid, 'name' => $text.$sep.$authorised_value }; |
819 |
push @tmpl_parameters, {'entry' => $text, 'input' => $input, 'labelid' => $labelid, 'name' => $text.$sep.$authorised_value_all, 'include_all' => $all }; |
819 |
} |
820 |
} |
820 |
$template->param('sql' => $sql, |
821 |
$template->param('sql' => $sql, |
821 |
'name' => $name, |
822 |
'name' => $name, |