Lines 508-513
elsif ($phase eq 'Run this report'){
Link Here
|
508 |
for(my $i=0;$i<($#split/2);$i++) { |
508 |
for(my $i=0;$i<($#split/2);$i++) { |
509 |
my ($text,$authorised_value) = split /\|/,$split[$i*2+1]; |
509 |
my ($text,$authorised_value) = split /\|/,$split[$i*2+1]; |
510 |
my $input; |
510 |
my $input; |
|
|
511 |
my $labelid; |
511 |
if ($authorised_value eq "date") { |
512 |
if ($authorised_value eq "date") { |
512 |
$input = 'date'; |
513 |
$input = 'date'; |
513 |
} |
514 |
} |
Lines 563-570
elsif ($phase eq 'Run this report'){
Link Here
|
563 |
$authorised_lib{$value} = $lib; |
564 |
$authorised_lib{$value} = $lib; |
564 |
} |
565 |
} |
565 |
} |
566 |
} |
|
|
567 |
$labelid = $text; |
568 |
$labelid =~ s/\W//g; |
566 |
$input =CGI::scrolling_list( # FIXME: factor out scrolling_list |
569 |
$input =CGI::scrolling_list( # FIXME: factor out scrolling_list |
567 |
-name => "sql_params", |
570 |
-name => "sql_params", |
|
|
571 |
-id => "sql_params_".$labelid, |
568 |
-values => \@authorised_values, |
572 |
-values => \@authorised_values, |
569 |
# -default => $value, |
573 |
# -default => $value, |
570 |
-labels => \%authorised_lib, |
574 |
-labels => \%authorised_lib, |
Lines 575-583
elsif ($phase eq 'Run this report'){
Link Here
|
575 |
); |
579 |
); |
576 |
|
580 |
|
577 |
} else { |
581 |
} else { |
578 |
$input = "<input type='text' name='sql_params'/>"; |
582 |
$input = "text"; |
579 |
} |
583 |
} |
580 |
push @tmpl_parameters, {'entry' => $text, 'input' => $input }; |
584 |
push @tmpl_parameters, {'entry' => $text, 'input' => $input, 'labelid' => $labelid }; |
581 |
} |
585 |
} |
582 |
$template->param('sql' => $sql, |
586 |
$template->param('sql' => $sql, |
583 |
'name' => $name, |
587 |
'name' => $name, |
584 |
- |
|
|