Lines 934-950
sub checkauth {
Link Here
|
934 |
my $value = $query->param($name); |
934 |
my $value = $query->param($name); |
935 |
push @inputs, { name => $name, value => $value }; |
935 |
push @inputs, { name => $name, value => $value }; |
936 |
} |
936 |
} |
937 |
# get the branchloop, which we need for authentication |
|
|
938 |
my $branches = GetBranches(); |
939 |
my @branch_loop; |
940 |
for my $branch_hash (sort keys %$branches) { |
941 |
push @branch_loop, {branchcode => "$branch_hash", branchname => $branches->{$branch_hash}->{'branchname'}, }; |
942 |
} |
943 |
|
937 |
|
944 |
my $template_name = ( $type eq 'opac' ) ? 'opac-auth.tmpl' : 'auth.tmpl'; |
938 |
my $template_name = ( $type eq 'opac' ) ? 'opac-auth.tmpl' : 'auth.tmpl'; |
945 |
my $template = C4::Templates::gettemplate($template_name, $type, $query ); |
939 |
my $template = C4::Templates::gettemplate($template_name, $type, $query ); |
946 |
$template->param( |
940 |
$template->param( |
947 |
branchloop => \@branch_loop, |
941 |
branchloop => GetBranchesLoop(), |
948 |
opaccolorstylesheet => C4::Context->preference("opaccolorstylesheet"), |
942 |
opaccolorstylesheet => C4::Context->preference("opaccolorstylesheet"), |
949 |
opaclayoutstylesheet => C4::Context->preference("opaclayoutstylesheet"), |
943 |
opaclayoutstylesheet => C4::Context->preference("opaclayoutstylesheet"), |
950 |
login => 1, |
944 |
login => 1, |