From 728fc49f8d45f851536a28c9645a662149399c05 Mon Sep 17 00:00:00 2001
From: Chris Cormack <crc@liblime.com>
Date: Mon, 14 Jan 2008 17:00:29 -0600
Subject: [PATCH] Fix for bug 1541, Show area name rather than number

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Reports.pm                                                 | 4 +++-
 .../intranet-tmpl/prog/en/modules/reports/dictionary.tmpl     | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/C4/Reports.pm b/C4/Reports.pm
index 651e4742e6..4f48c747e0 100644
--- 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 ef281a9c54..e471b8440d 100644
--- 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" -->" />
-- 
2.39.5