|
Lines 83-88
my $tobranchcd = $query->param('tobranchcd') || '';
Link Here
|
| 83 |
my $trigger = 'Manual'; |
83 |
my $trigger = 'Manual'; |
| 84 |
|
84 |
|
| 85 |
my $ignoreRs = 0; |
85 |
my $ignoreRs = 0; |
|
|
86 |
my $transferred; |
| 87 |
my $barcode = $query->param('barcode'); |
| 88 |
my @trsfitemloop; |
| 86 |
############ |
89 |
############ |
| 87 |
# Deal with the requests.... |
90 |
# Deal with the requests.... |
| 88 |
if ( $op eq "cud-KillWaiting" ) { |
91 |
if ( $op eq "cud-KillWaiting" ) { |
|
Lines 106-111
if ( $op eq "cud-KillWaiting" ) {
Link Here
|
| 106 |
$settransit = 1; |
109 |
$settransit = 1; |
| 107 |
$reqmessage = 1; |
110 |
$reqmessage = 1; |
| 108 |
$trigger = 'Reserve'; |
111 |
$trigger = 'Reserve'; |
|
|
112 |
|
| 113 |
$barcode = barcodedecode($barcode) if $barcode; |
| 114 |
($transferred, $messages) = transferbook( |
| 115 |
{ |
| 116 |
from_branch => C4::Context->userenv->{'branch'}, |
| 117 |
to_branch => $tobranchcd, |
| 118 |
barcode => $barcode, |
| 119 |
ignore_reserves => $ignoreRs, |
| 120 |
trigger => $trigger |
| 121 |
} |
| 122 |
); |
| 123 |
if ($transferred) { |
| 124 |
$item = Koha::Items->find( { barcode => $barcode } ); |
| 125 |
my %trsfitem; |
| 126 |
my $frbranchcd = C4::Context->userenv->{'branch'}; |
| 127 |
$trsfitem{item} = $item; |
| 128 |
$trsfitem{counter} = 0; |
| 129 |
$trsfitem{frombrcd} = $frbranchcd; |
| 130 |
$trsfitem{tobrcd} = $tobranchcd; |
| 131 |
push( @trsfitemloop, \%trsfitem ); |
| 132 |
} |
| 109 |
} elsif ( $op eq 'cud-KillReserved' ) { |
133 |
} elsif ( $op eq 'cud-KillReserved' ) { |
| 110 |
my $biblionumber = $query->param('biblionumber'); |
134 |
my $biblionumber = $query->param('biblionumber'); |
| 111 |
my $reserve_id = $query->param('reserve_id'); |
135 |
my $reserve_id = $query->param('reserve_id'); |
|
Lines 118-127
if ( $op eq "cud-KillWaiting" ) {
Link Here
|
| 118 |
} |
142 |
} |
| 119 |
|
143 |
|
| 120 |
# collect the stack of books already transferred so they can printed... |
144 |
# collect the stack of books already transferred so they can printed... |
| 121 |
my @trsfitemloop; |
|
|
| 122 |
my $transferred; |
| 123 |
my $barcode = $query->param('barcode'); |
| 124 |
|
| 125 |
# remove leading/trailing whitespace |
145 |
# remove leading/trailing whitespace |
| 126 |
$barcode = barcodedecode($barcode) if $barcode; |
146 |
$barcode = barcodedecode($barcode) if $barcode; |
| 127 |
if ( $op eq 'cud-transfer' && $barcode ) { |
147 |
if ( $op eq 'cud-transfer' && $barcode ) { |