Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
=cut
sub get_report_areas {
+ my $area = shift;
my $dbh = C4::Context->dbh();
# FIXME these should be in the database
my %hashrep;
$hashrep{id} = $i + 1;
$hashrep{name} = $reports[$i];
+ $hashrep{selected} = 1 if $hashrep{id} == $area;
push @reports2, \%hashrep;
}
return ( \@reports2 );
Filter by area <select name="areas">
<option value="">All</option>
<!-- TMPL_LOOP NAME="areas" -->
-<option value="<!-- TMPL_VAR NAME="id" -->"><!-- TMPL_VAR NAME="name"--></option>
-<!-- /TMPL_LOOP -->
+ <!-- TMPL_IF NAME="selected">
+ <option value="<!-- TMPL_VAR NAME="id" -->" selected="selected" ><!-- TMPL_VAR NAME="name"--></option>
+ <!-- TMPL_ELSE -->
+ <option value="<!-- TMPL_VAR NAME="id" -->"><!-- TMPL_VAR NAME="name"--></option>
+ <!-- /TMPL_IF -->
+<!-- /TMPL_LOOP -->
</select>
<input name="submit" value="Go" type="submit" />
</form>
if ($phase eq 'View Dictionary'){
# view the dictionary we use to set up abstract variables such as all borrowers over fifty who live in a certain town
- my $areas = get_report_areas();
+ my $areas = get_report_areas($area);
my $definitions = get_from_dictionary($area);
$template->param( 'areas' => $areas ,
'start_dictionary' => 1,