| Lines 21-27
          use strict;
      
      
        Link Here | 
        
          | 21 | use warnings; | 21 | use warnings; | 
        
          | 22 | use C4::Templates; | 22 | use C4::Templates; | 
        
          | 23 | use C4::Output; | 23 | use C4::Output; | 
          
            
              | 24 | # use C4::Auth; | 24 | use C4::NewsChannels; # GetNewsToDisplay | 
            
              |  |  | 25 | use C4::Auth; | 
        
          | 25 | use C4::Context; | 26 | use C4::Context; | 
        
          | 26 | use CGI qw ( -utf8 ); | 27 | use CGI qw ( -utf8 ); | 
        
          | 27 |  | 28 |  | 
  
    | Lines 47-70
          C4::Context->interface('intranet');
      
      
        Link Here | 
        
          | 47 | our $refer = $query->param('url'); | 48 | our $refer = $query->param('url'); | 
        
          | 48 | $refer = $query->referer()  if !$refer || $refer eq 'undefined'; | 49 | $refer = $query->referer()  if !$refer || $refer eq 'undefined'; | 
        
          | 49 | my $from = _help_template_file_of_url($refer); | 50 | my $from = _help_template_file_of_url($refer); | 
            
              |  |  | 51 | my $helpkey = substr( $from, 0, rindex( $from, q{.} ) ); | 
        
          | 50 | my $htdocs = C4::Context->config('intrahtdocs'); | 52 | my $htdocs = C4::Context->config('intrahtdocs'); | 
        
          | 51 |  | 53 |  | 
          
            
              | 52 | # | 54 | my $helpsys = C4::Context->preference('CustomOnlineHelpStaff'); | 
            
              |  |  | 55 |  | 
            
              | 56 | #Template for 'classic' Koha help text (filebased) if needed, otherwise no text | 
            
              | 57 |  | 
        
          | 53 | # checking that the help file exist, otherwise, display nohelp.tt page | 58 | # checking that the help file exist, otherwise, display nohelp.tt page | 
            
              | 54 | # |  |  | 
        
          | 55 | my ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); | 59 | my ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); | 
            
              |  |  | 60 |  | 
        
          | 56 | unless ( -e "$htdocs/$theme/$lang/modules/$from" ) { | 61 | unless ( -e "$htdocs/$theme/$lang/modules/$from" ) { | 
        
          | 57 |     $from = "help/nohelp.tt"; | 62 |     $from = "help/nohelp.tt"; | 
        
          | 58 |     ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); | 63 |     ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); | 
        
          | 59 | } | 64 | } | 
        
          | 60 |  | 65 |  | 
          
            
              | 61 | my $template = C4::Templates::gettemplate($from, 'intranet', $query); | 66 | # Classic Koha help text not used | 
            
              |  |  | 67 | if ( $helpsys eq 'newsbased' ) { | 
            
              | 68 |     #Template without classic Koha help text | 
            
              | 69 |     $from = "help/nohelptext.tt"; | 
            
              | 70 |     ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); | 
            
              | 71 | } | 
            
              | 72 |  | 
            
              | 73 | #my $template = C4::Templates::gettemplate($from, 'intranet', $query); | 
            
              | 74 |  | 
            
              | 75 | my ( $template, $borrowernumber, $cookie ) = get_template_and_user( | 
            
              | 76 |     { | 
            
              | 77 |         template_name   => $from, | 
            
              | 78 |         query           => $query, | 
            
              | 79 |         type            => "intranet", | 
            
              | 80 |         authnotrequired => 0, | 
            
              | 81 |     } | 
            
              | 82 | ); | 
            
              | 83 |  | 
            
              | 84 |  | 
            
              | 85 |  | 
            
              | 86 |  | 
        
          | 62 | $template->param( | 87 | $template->param( | 
        
          | 63 |     referer => $refer, | 88 |     referer => $refer, | 
            
              |  |  | 89 |     helpkey => $helpkey, | 
        
          | 64 |     intranetstylesheet => C4::Context->preference("intranetstylesheet"), | 90 |     intranetstylesheet => C4::Context->preference("intranetstylesheet"), | 
        
          | 65 |     intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), | 91 |     intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), | 
        
          | 66 | ); | 92 | ); | 
        
          | 67 |  | 93 |  | 
            
              |  |  | 94 | $template->param( helpsys => $helpsys ); | 
            
              | 95 |  | 
            
              | 96 | if ( ($helpsys eq 'newsbased') || ($helpsys eq 'newsbased-and-filebased') ) { | 
            
              | 97 |  | 
            
              | 98 |     my $homebranch; | 
            
              | 99 |     if (C4::Context->userenv) { | 
            
              | 100 |         $homebranch = C4::Context->userenv->{'branch'}; | 
            
              | 101 |     } | 
            
              | 102 |     my $help_from_news   = &GetNewsToDisplay('staffhelp', $homebranch); | 
            
              | 103 |     my $help_from_news_count = scalar @$help_from_news; | 
            
              | 104 |     $template->param( | 
            
              | 105 |         help_from_news       => $help_from_news, | 
            
              | 106 |         help_from_news_count => $help_from_news_count, | 
            
              | 107 |         homebranch           => $homebranch | 
            
              | 108 |     ); | 
            
              | 109 | } | 
            
              | 110 |  | 
        
          | 68 | my $help_version = C4::Context->preference("Version"); | 111 | my $help_version = C4::Context->preference("Version"); | 
        
          | 69 | if ( $help_version =~ m|^(\d+)\.(\d{2}).*$| ) { | 112 | if ( $help_version =~ m|^(\d+)\.(\d{2}).*$| ) { | 
        
          | 70 |     my $version = $1; | 113 |     my $version = $1; |