|
Lines 82-87
my $settransit;
Link Here
|
| 82 |
my $request = $query->param('request') || ''; |
82 |
my $request = $query->param('request') || ''; |
| 83 |
my $borrowernumber = $query->param('borrowernumber') || 0; |
83 |
my $borrowernumber = $query->param('borrowernumber') || 0; |
| 84 |
my $tobranchcd = $query->param('tobranchcd') || ''; |
84 |
my $tobranchcd = $query->param('tobranchcd') || ''; |
|
|
85 |
my $trigger = 'Manual'; |
| 85 |
|
86 |
|
| 86 |
my $ignoreRs = 0; |
87 |
my $ignoreRs = 0; |
| 87 |
############ |
88 |
############ |
|
Lines 105-110
elsif ( $request eq "SetTransit" ) {
Link Here
|
| 105 |
$ignoreRs = 1; |
106 |
$ignoreRs = 1; |
| 106 |
$settransit = 1; |
107 |
$settransit = 1; |
| 107 |
$reqmessage = 1; |
108 |
$reqmessage = 1; |
|
|
109 |
$trigger = 'Reserve'; |
| 108 |
} |
110 |
} |
| 109 |
elsif ( $request eq 'KillReserved' ) { |
111 |
elsif ( $request eq 'KillReserved' ) { |
| 110 |
my $biblionumber = $query->param('biblionumber'); |
112 |
my $biblionumber = $query->param('biblionumber'); |
|
Lines 132-138
if ($barcode) {
Link Here
|
| 132 |
to_branch => $tobranchcd, |
134 |
to_branch => $tobranchcd, |
| 133 |
barcode => $barcode, |
135 |
barcode => $barcode, |
| 134 |
ignore_reserves => $ignoreRs, |
136 |
ignore_reserves => $ignoreRs, |
| 135 |
trigger => 'Manual' |
137 |
trigger => $trigger |
| 136 |
}); |
138 |
}); |
| 137 |
my $item = Koha::Items->find({ barcode => $barcode }); |
139 |
my $item = Koha::Items->find({ barcode => $barcode }); |
| 138 |
$found = $messages->{'ResFound'} unless $settransit; |
140 |
$found = $messages->{'ResFound'} unless $settransit; |
| 139 |
- |
|
|