[Koha-cvs] koha help.pl

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Chris Cormack <rangi>	06/06/07 02:02:01

Modified files:
	.              : help.pl 

Log message:
	Merging Katipo changes
	
	Workaround to deal with bug with IE

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/help.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: help.pl
===================================================================
RCS file: /sources/koha/koha/help.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- help.pl	20 Jun 2005 14:37:51 -0000	1.2
+++ help.pl	7 Jun 2006 02:02:00 -0000	1.3
@@ -1,4 +1,22 @@
 #!/usr/bin/perl
+
+# Copyright 2006 Katipo Communications
+#
+# This file is part of Koha.                                                    
+#                                                                               
+# Koha is free software; you can redistribute it and/or modify it under the     
+# terms of the GNU General Public License as published by the Free Software     
+# Foundation; either version 2 of the License, or (at your option) any later    
+# version.                                                                      
+#                                                                               
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY       
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR 
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.   
+#                                                                               
+# You should have received a copy of the GNU General Public License along with  
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,   
+# Suite 330, Boston, MA  02111-1307 USA
+
 use HTML::Template;
 use strict;
 require Exporter;
@@ -13,6 +31,12 @@
 # find the script that called the online help using the CGI referer()
 
 my $refer  = $query->referer();
+# workaround for popup not functioning correctly in IE
+my $referurl = $query->param('url');
+if($referurl){
+    $refer = $query->param('url');
+}
+
 $refer =~ /.*koha\/(.*)\.pl.*/;
 my $from = "help/$1.tmpl";