Lines 29-34
use C4::Koha;
Link Here
|
29 |
use C4::Branch; # GetBranches |
29 |
use C4::Branch; # GetBranches |
30 |
use C4::VirtualShelves; |
30 |
use C4::VirtualShelves; |
31 |
|
31 |
|
|
|
32 |
#use Smart::Comments '####'; |
33 |
|
32 |
# use utf8; |
34 |
# use utf8; |
33 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap); |
35 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap); |
34 |
|
36 |
|
Lines 308-313
sub get_template_and_user {
Link Here
|
308 |
} elsif($mylibraryfirst){ |
310 |
} elsif($mylibraryfirst){ |
309 |
$opac_name = C4::Branch::GetBranchName($mylibraryfirst); |
311 |
$opac_name = C4::Branch::GetBranchName($mylibraryfirst); |
310 |
} |
312 |
} |
|
|
313 |
|
314 |
|
311 |
$template->param( |
315 |
$template->param( |
312 |
OPACAmazonContent => "" . C4::Context->preference("OPACAmazonContent"), |
316 |
OPACAmazonContent => "" . C4::Context->preference("OPACAmazonContent"), |
313 |
OPACAmazonCoverImages => "" . C4::Context->preference("OPACAmazonCoverImages"), |
317 |
OPACAmazonCoverImages => "" . C4::Context->preference("OPACAmazonCoverImages"), |
Lines 361-366
sub get_template_and_user {
Link Here
|
361 |
suggestion => "" . C4::Context->preference("suggestion"), |
365 |
suggestion => "" . C4::Context->preference("suggestion"), |
362 |
virtualshelves => "" . C4::Context->preference("virtualshelves"), |
366 |
virtualshelves => "" . C4::Context->preference("virtualshelves"), |
363 |
); |
367 |
); |
|
|
368 |
|
369 |
$template->param( OpacNotPublic => C4::Context->preference("OpacNotPublic") ) |
370 |
unless ( $template->param( 'loggedinusername' ) ); |
371 |
|
364 |
} |
372 |
} |
365 |
return ( $template, $borrowernumber, $cookie, $flags); |
373 |
return ( $template, $borrowernumber, $cookie, $flags); |
366 |
} |
374 |
} |
Lines 493-498
sub _session_log {
Link Here
|
493 |
close L; |
501 |
close L; |
494 |
} |
502 |
} |
495 |
|
503 |
|
|
|
504 |
|
505 |
|
496 |
sub checkauth { |
506 |
sub checkauth { |
497 |
my $query = shift; |
507 |
my $query = shift; |
498 |
$debug and warn "Checking Auth"; |
508 |
$debug and warn "Checking Auth"; |
Lines 821-828
sub checkauth {
Link Here
|
821 |
OpacAuthorities => C4::Context->preference("OpacAuthorities"), |
831 |
OpacAuthorities => C4::Context->preference("OpacAuthorities"), |
822 |
OpacBrowser => C4::Context->preference("OpacBrowser"), |
832 |
OpacBrowser => C4::Context->preference("OpacBrowser"), |
823 |
opacheader => C4::Context->preference("opacheader"), |
833 |
opacheader => C4::Context->preference("opacheader"), |
824 |
TagsEnabled => C4::Context->preference("TagsEnabled"), |
834 |
OpacNotPublic => C4::Context->preference("OpacNotPublic"), |
825 |
OPACUserCSS => C4::Context->preference("OPACUserCSS"), |
835 |
OPACUserCSS => C4::Context->preference("OPACUserCSS"), |
826 |
intranetcolorstylesheet => |
836 |
intranetcolorstylesheet => |
827 |
C4::Context->preference("intranetcolorstylesheet"), |
837 |
C4::Context->preference("intranetcolorstylesheet"), |
828 |
intranetstylesheet => C4::Context->preference("intranetstylesheet"), |
838 |
intranetstylesheet => C4::Context->preference("intranetstylesheet"), |