[Koha-patches] [PATCH] Bug 1542, fixing filter by area in reports dictionary

[Chris Cormack]

---
 .../prog/en/modules/reports/dictionary.tmpl        |    3 ++-
 reports/dictionary.pl                              |    3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

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 9e21732..80e6712 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tmpl
@@ -24,13 +24,14 @@
 <!-- TMPL_IF NAME="definitions" -->
 <h2>Current Terms</h2>
 <form action="/cgi-bin/koha/reports/dictionary.pl" method="post">
+<input type="hidden" name="phase" value="View Dictionary">
 Filter by area <select name="areas">
 <option value="All">All</option>
 <!-- TMPL_LOOP NAME="areas" -->     
 <option value="<!-- TMPL_VAR NAME="id" -->"><!-- TMPL_VAR NAME="name"--></option>                  
 <!-- /TMPL_LOOP -->                
 </select> 
-<input name="phase" value="Go" type="submit" />
+<input name="submit" value="Go" type="submit" />
 </form>
 <br />
 <table border="1" cellspacing="0" cellpadding="5">
diff --git a/reports/dictionary.pl b/reports/dictionary.pl
index 09104c3..8a57200 100755
--- a/reports/dictionary.pl
+++ b/reports/dictionary.pl
@@ -18,6 +18,7 @@
 # Suite 330, Boston, MA  02111-1307 USA
 use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
 use strict;
+use warnings;
 use C4::Auth;
 use CGI;
 use C4::Output;
@@ -38,7 +39,7 @@ Script to control the guided report creation
 my $input = new CGI;
 my $referer = $input->referer();
 
-my $phase = $input->param('phase');
+my $phase = $input->param('phase') || 'View Dictionary';
 my $no_html = 0; # this will be set if we dont want to print out an html::template
 my 	( $template, $borrowernumber, $cookie ) = get_template_and_user(
     {
-- 
1.5.6.3