Lines 58-72
sub protected_letters {
Link Here
|
58 |
return { map { $_->[0] => 1 } @{$codes} }; |
58 |
return { map { $_->[0] => 1 } @{$codes} }; |
59 |
} |
59 |
} |
60 |
|
60 |
|
61 |
our $input = new CGI; |
61 |
our $input = new CGI; |
62 |
my $searchfield = $input->param('searchfield'); |
|
|
63 |
my $script_name = '/cgi-bin/koha/tools/letter.pl'; |
64 |
our $branchcode = $input->param('branchcode'); |
65 |
my $code = $input->param('code'); |
66 |
my $module = $input->param('module') || ''; |
67 |
my $content = $input->param('content'); |
68 |
my $op = $input->param('op') || ''; |
69 |
my $dbh = C4::Context->dbh; |
70 |
|
62 |
|
71 |
our ( $template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user( |
63 |
our ( $template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user( |
72 |
{ |
64 |
{ |
Lines 79-84
our ( $template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user
Link Here
|
79 |
} |
71 |
} |
80 |
); |
72 |
); |
81 |
|
73 |
|
|
|
74 |
my $searchfield = $input->param('searchfield'); |
75 |
my $script_name = '/cgi-bin/koha/tools/letter.pl'; |
76 |
my $code = $input->param('code'); |
77 |
my $module = $input->param('module'); |
78 |
my $content = $input->param('content'); |
79 |
my $op = $input->param('op') || ''; |
80 |
|
81 |
# Default to logged in branch for notice list only |
82 |
our $branchcode = |
83 |
$input->param('branchcode') eq '*' ? undef |
84 |
: $input->param('branchcode') ? $input->param('branchcode') |
85 |
: $op ? $input->param('branchcode') |
86 |
: C4::Branch::mybranch(); |
87 |
|
88 |
my $dbh = C4::Context->dbh; |
89 |
|
82 |
our $my_branch = C4::Context->preference("IndependentBranches") && !$staffflags->{'superlibrarian'} |
90 |
our $my_branch = C4::Context->preference("IndependentBranches") && !$staffflags->{'superlibrarian'} |
83 |
? C4::Context->userenv()->{'branch'} |
91 |
? C4::Context->userenv()->{'branch'} |
84 |
: undef; |
92 |
: undef; |
85 |
- |
|
|