X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=help.pl;h=1369a06b546cf98211c195c5a38a10d43832c980;hb=2d07a4012581c26cf8debe082c89d940d3879807;hp=f06d7aa0e17c8fb812e028876606e54b9325760a;hpb=b9472e7d3cc353ea74d7aa62dc63473dd94228b3;p=koha_fer

diff --git a/help.pl b/help.pl
index f06d7aa0e1..1369a06b54 100755
--- a/help.pl
+++ b/help.pl
@@ -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 @@ my $query = new CGI;
 # 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";
 
@@ -29,7 +53,7 @@ sub gethelptemplate {
 	my ($theme, $lang) = themelanguage($htdocs, $tmplbase, "intranet");
 	unless (-e "$htdocs/$theme/$lang/$tmplbase") {
 		$tmplbase="help/nohelp.tmpl";
-		my ($theme, $lang) = themelanguage($htdocs, $tmplbase, "intranet");
+		($theme, $lang) = themelanguage($htdocs, $tmplbase, "intranet");
 	}
 	my $template = HTML::Template->new(filename      => "$htdocs/$theme/$lang/$tmplbase",
 				   die_on_bad_params => 0,