Lines 85-101
sub protected_letters {
Link Here
|
85 |
return { map { $_->[0] => 1 } @{$codes} }; |
85 |
return { map { $_->[0] => 1 } @{$codes} }; |
86 |
} |
86 |
} |
87 |
|
87 |
|
88 |
my $input = new CGI; |
88 |
our $input = new CGI; |
89 |
my $searchfield = $input->param('searchfield'); |
89 |
my $searchfield = $input->param('searchfield'); |
90 |
my $script_name = '/cgi-bin/koha/tools/letter.pl'; |
90 |
my $script_name = '/cgi-bin/koha/tools/letter.pl'; |
91 |
my $branchcode = $input->param('branchcode'); |
91 |
our $branchcode = $input->param('branchcode'); |
92 |
my $code = $input->param('code'); |
92 |
my $code = $input->param('code'); |
93 |
my $module = $input->param('module'); |
93 |
my $module = $input->param('module'); |
94 |
my $content = $input->param('content'); |
94 |
my $content = $input->param('content'); |
95 |
my $op = $input->param('op') || ''; |
95 |
my $op = $input->param('op') || ''; |
96 |
my $dbh = C4::Context->dbh; |
96 |
my $dbh = C4::Context->dbh; |
97 |
|
97 |
|
98 |
my ( $template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user( |
98 |
our ( $template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user( |
99 |
{ |
99 |
{ |
100 |
template_name => 'tools/letter.tmpl', |
100 |
template_name => 'tools/letter.tmpl', |
101 |
query => $input, |
101 |
query => $input, |
Lines 106-112
my ( $template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user(
Link Here
|
106 |
} |
106 |
} |
107 |
); |
107 |
); |
108 |
|
108 |
|
109 |
my $my_branch = C4::Context->preference("IndependantBranches") && !$staffflags->{'superlibrarian'} |
109 |
our $my_branch = C4::Context->preference("IndependantBranches") && !$staffflags->{'superlibrarian'} |
110 |
? C4::Context->userenv()->{'branch'} |
110 |
? C4::Context->userenv()->{'branch'} |
111 |
: undef; |
111 |
: undef; |
112 |
# we show only the TMPL_VAR names $op |
112 |
# we show only the TMPL_VAR names $op |