|
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 |