|
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('HelpSystem'); |
|
|
55 |
warn "VMVMVM"; |
| 56 |
warn $helpsys; |
| 57 |
|
| 58 |
my %hs = split( /|/, $helpsys ); |
| 59 |
|
| 60 |
warn "VBVBVB"; |
| 61 |
warn %hs; |
| 62 |
|
| 63 |
|
| 64 |
#Template for 'classic' Koha help text (filebased) if needed, otherwise no text |
| 65 |
|
| 53 |
# checking that the help file exist, otherwise, display nohelp.tt page |
66 |
# checking that the help file exist, otherwise, display nohelp.tt page |
| 54 |
# |
|
|
| 55 |
my ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
67 |
my ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
|
|
68 |
|
| 56 |
unless ( -e "$htdocs/$theme/$lang/modules/$from" ) { |
69 |
unless ( -e "$htdocs/$theme/$lang/modules/$from" ) { |
| 57 |
$from = "help/nohelp.tt"; |
70 |
$from = "help/nohelp.tt"; |
| 58 |
( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
71 |
( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
| 59 |
} |
72 |
} |
| 60 |
|
73 |
|
| 61 |
my $template = C4::Templates::gettemplate($from, 'intranet', $query); |
74 |
# Classic Koha help text not used |
|
|
75 |
if ( $helpsys eq 'newsbased' ) { |
| 76 |
#Template without classic Koha help text |
| 77 |
$from = "help/nohelptext.tt"; |
| 78 |
( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
| 79 |
} |
| 80 |
|
| 81 |
#my $template = C4::Templates::gettemplate($from, 'intranet', $query); |
| 82 |
|
| 83 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
| 84 |
{ |
| 85 |
template_name => $from, |
| 86 |
query => $query, |
| 87 |
type => "intranet", |
| 88 |
authnotrequired => 0, |
| 89 |
} |
| 90 |
); |
| 91 |
|
| 92 |
|
| 93 |
|
| 94 |
|
| 62 |
$template->param( |
95 |
$template->param( |
| 63 |
referer => $refer, |
96 |
referer => $refer, |
|
|
97 |
helpkey => $helpkey, |
| 64 |
intranetstylesheet => C4::Context->preference("intranetstylesheet"), |
98 |
intranetstylesheet => C4::Context->preference("intranetstylesheet"), |
| 65 |
intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), |
99 |
intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), |
| 66 |
); |
100 |
); |
| 67 |
|
101 |
|
|
|
102 |
$template->param( helpsystem => $helpsys ); |
| 103 |
$template->param( hs => %hs ); |
| 104 |
|
| 105 |
if ( ($helpsys eq 'newsbased') || ($helpsys eq 'filebased') ) { |
| 106 |
|
| 107 |
my $homebranch; |
| 108 |
if (C4::Context->userenv) { |
| 109 |
$homebranch = C4::Context->userenv->{'branch'}; |
| 110 |
} |
| 111 |
my $help_from_news = &GetNewsToDisplay('staffhelp', $homebranch); |
| 112 |
my $help_from_news_count = scalar @$help_from_news; |
| 113 |
$template->param( |
| 114 |
help_from_news => $help_from_news, |
| 115 |
help_from_news_count => $help_from_news_count, |
| 116 |
homebranch => $homebranch |
| 117 |
); |
| 118 |
} |
| 119 |
|
| 68 |
my $help_version = C4::Context->preference("Version"); |
120 |
my $help_version = C4::Context->preference("Version"); |
| 69 |
if ( $help_version =~ m|^(\d+)\.(\d{2}).*$| ) { |
121 |
if ( $help_version =~ m|^(\d+)\.(\d{2}).*$| ) { |
| 70 |
my $version = $1; |
122 |
my $version = $1; |