Fix for bug 1541, Show area name rather than number

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Reports.pm b/C4/Reports.pm
index 651e474..4f48c74 100644 (file)
--- a/C4/Reports.pm
+++ b/C4/Reports.pm
@@ -590,10 +590,12 @@ sub get_from_dictionary {
                $sth->execute();
        }
        my @loop;
+       my @reports = ( 'Circulation', 'Catalog', 'Patrons', 'Acquisitions', 'Accounts');
        while (my $data = $sth->fetchrow_hashref()){
+               $data->{'areaname'}=$reports[$data->{'area'}-1];
                push @loop,$data;
                
-               }
+       }
        $sth->finish();
        return (\@loop);
 }

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tmpl
index ef281a9..e471b84 100644 (file)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tmpl
@@ -45,7 +45,7 @@ Filter by area <select name="areas">
 <tr valign="top">
 <td><!-- TMPL_VAR NAME="name" --></td>
 <td><!-- TMPL_VAR NAME="description" --></td>
-<td><!-- TMPL_VAR NAME="area" --></td>
+<td><!-- TMPL_VAR NAME="areaname" --></td>
 <td><!-- TMPL_VAR NAME="saved_sql" --></td>
 <td><form method="post" action="/cgi-bin/koha/reports/dictionary.pl">
 <input type="hidden" name="id" value="<!-- TMPL_VAR NAME="id" -->" />