Add a referer variable so we can have a back button

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

diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl
index f114216..1b3e825 100755 (executable)
--- a/reports/guided_reports.pl
+++ b/reports/guided_reports.pl
@@ -35,6 +35,7 @@ Script to control the guided report creation
 =cut
 
 my $input = new CGI;
+my $referer = $input->referer();
 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
     {
         template_name   => "reports/guided_reports_start.tmpl",
@@ -555,6 +556,9 @@ elsif ($phase eq 'Delete Definition'){
        print $input->redirect("/cgi-bin/koha/reports/guided_reports.pl?phase=View%20Dictionary");
        }
 
+$template->param( 'referer' => $referer );
+
+
 if (!$no_html){
        output_html_with_http_headers $input, $cookie, $template->output;
 }