Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Merging Katipo changes

Workaround to deal with bug with IE
  • Loading branch information...
commit ef2ff09c8bb7b23b4cc4dc56b8efc64a2178e19c 1 parent 79befda
authored June 07, 2006

Showing 1 changed file with 24 additions and 0 deletions. Show diff stats Hide diff stats

  1. 24  help.pl
24  help.pl
... ...
@@ -1,4 +1,22 @@
1 1
 #!/usr/bin/perl
  2
+
  3
+# Copyright 2006 Katipo Communications
  4
+#
  5
+# This file is part of Koha.                                                    
  6
+#                                                                               
  7
+# Koha is free software; you can redistribute it and/or modify it under the     
  8
+# terms of the GNU General Public License as published by the Free Software     
  9
+# Foundation; either version 2 of the License, or (at your option) any later    
  10
+# version.                                                                      
  11
+#                                                                               
  12
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY       
  13
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR 
  14
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.   
  15
+#                                                                               
  16
+# You should have received a copy of the GNU General Public License along with  
  17
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,   
  18
+# Suite 330, Boston, MA  02111-1307 USA
  19
+
2 20
 use HTML::Template;
3 21
 use strict;
4 22
 require Exporter;
@@ -13,6 +31,12 @@
13 31
 # find the script that called the online help using the CGI referer()
14 32
 
15 33
 my $refer  = $query->referer();
  34
+# workaround for popup not functioning correctly in IE
  35
+my $referurl = $query->param('url');
  36
+if($referurl){
  37
+    $refer = $query->param('url');
  38
+}
  39
+
16 40
 $refer =~ /.*koha\/(.*)\.pl.*/;
17 41
 my $from = "help/$1.tmpl";
18 42
 

0 notes on commit ef2ff09

Please sign in to comment.
Something went wrong with that request. Please try again.