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