| Lines 25-43
          use C4::Output;
      
      
        Link Here | 
        
          | 25 | use C4::Context; | 25 | use C4::Context; | 
        
          | 26 | use CGI; | 26 | use CGI; | 
        
          | 27 |  | 27 |  | 
            
              |  |  | 28 | sub _help_template_file_of_url { | 
            
              | 29 |     my $url = shift; | 
            
              | 30 |     my $file; | 
            
              | 31 |     if ($url =~ /koha\/(.*)\.pl/) { | 
            
              | 32 |         $file = $1;  | 
            
              | 33 |     } else { | 
            
              | 34 |         $file = 'mainpage'; | 
            
              | 35 |     } | 
            
              | 36 |     $file =~ s/[^a-zA-Z0-9_\-\/]*//g; | 
            
              | 37 |     return "help/$file.tt"; | 
            
              | 38 | } | 
            
              | 39 |  | 
        
          | 28 | my $query = new CGI; | 40 | my $query = new CGI; | 
        
          | 29 |  | 41 |  | 
        
          | 30 | # find the script that called the online help using the CGI referer() | 42 | # find the script that called the online help using the CGI referer() | 
        
          | 31 | our $refer = $query->param('url'); | 43 | our $refer = $query->param('url'); | 
        
          | 32 | $refer = $query->referer()  if !$refer || $refer eq 'undefined'; | 44 | $refer = $query->referer()  if !$refer || $refer eq 'undefined'; | 
          
            
              | 33 |  | 45 | my $from = _help_template_file_of_url($refer); | 
            
              | 34 | $refer =~ /koha\/(.*)\.pl/; |  |  | 
            
              | 35 | my $file = $1; | 
            
              | 36 | $file =~ s/[^a-zA-Z0-9_\-\/]*//g; | 
            
              | 37 | my $from = "help/$file.tt"; | 
        
          | 38 |  | 46 |  | 
        
          | 39 | my $template = C4::Templates::gettemplate($from, 'intranet', $query); | 47 | my $template = C4::Templates::gettemplate($from, 'intranet', $query); | 
        
          | 40 | $template->param( referer => $refer ); | 48 | $template->param( referer => $refer ); | 
        
          | 41 |  | 49 |  | 
        
          | 42 | output_html_with_http_headers $query, "", $template->output; | 50 | output_html_with_http_headers $query, "", $template->output; | 
            
              | 43 |  |  |  | 
            
              | 44 | -  |