Lines 21-27
use warnings;
Link Here
|
21 |
use CGI; |
21 |
use CGI; |
22 |
use C4::Auth; # get_template_and_user |
22 |
use C4::Auth; # get_template_and_user |
23 |
use C4::Output; |
23 |
use C4::Output; |
24 |
use C4::Members; # GetMember |
|
|
25 |
use C4::NewsChannels; # get_opac_news |
24 |
use C4::NewsChannels; # get_opac_news |
26 |
use C4::Languages qw(getTranslatedLanguages accept_language); |
25 |
use C4::Languages qw(getTranslatedLanguages accept_language); |
27 |
|
26 |
|
Lines 44-54
$template->param(
Link Here
|
44 |
); |
43 |
); |
45 |
|
44 |
|
46 |
|
45 |
|
47 |
my $borrower = GetMember( borrowernumber=>$borrowernumber ); |
|
|
48 |
$template->param( |
49 |
textmessaging => $borrower->{textmessaging}, |
50 |
) if (ref($borrower) eq "HASH"); |
51 |
|
52 |
# display news |
46 |
# display news |
53 |
# use cookie setting for language, bug default to syspref if it's not set |
47 |
# use cookie setting for language, bug default to syspref if it's not set |
54 |
my ($theme, $news_lang) = C4::Templates::themelanguage(C4::Context->config('opachtdocs'),'opac-main.tt','opac',$input); |
48 |
my ($theme, $news_lang) = C4::Templates::themelanguage(C4::Context->config('opachtdocs'),'opac-main.tt','opac',$input); |