|
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 |
- |
|
|