|
Lines 175-182
sub AddReserve {
Link Here
|
| 175 |
$title, $checkitem, $found, $itemtype |
175 |
$title, $checkitem, $found, $itemtype |
| 176 |
) = @_; |
176 |
) = @_; |
| 177 |
|
177 |
|
| 178 |
my $dbh = C4::Context->dbh; |
|
|
| 179 |
|
| 180 |
$resdate = output_pref( { str => dt_from_string( $resdate ), dateonly => 1, dateformat => 'iso' }) |
178 |
$resdate = output_pref( { str => dt_from_string( $resdate ), dateonly => 1, dateformat => 'iso' }) |
| 181 |
or output_pref({ dt => dt_from_string, dateonly => 1, dateformat => 'iso' }); |
179 |
or output_pref({ dt => dt_from_string, dateonly => 1, dateformat => 'iso' }); |
| 182 |
|
180 |
|
|
Lines 1182-1188
sub ModReserve {
Link Here
|
| 1182 |
return unless ( $reserve_id || ( $borrowernumber && ( $biblionumber || $itemnumber ) ) ); |
1180 |
return unless ( $reserve_id || ( $borrowernumber && ( $biblionumber || $itemnumber ) ) ); |
| 1183 |
$reserve_id = GetReserveId({ biblionumber => $biblionumber, borrowernumber => $borrowernumber, itemnumber => $itemnumber }) unless ( $reserve_id ); |
1181 |
$reserve_id = GetReserveId({ biblionumber => $biblionumber, borrowernumber => $borrowernumber, itemnumber => $itemnumber }) unless ( $reserve_id ); |
| 1184 |
|
1182 |
|
| 1185 |
my $dbh = C4::Context->dbh; |
|
|
| 1186 |
if ( $rank eq "del" ) { |
1183 |
if ( $rank eq "del" ) { |
| 1187 |
CancelReserve({ reserve_id => $reserve_id }); |
1184 |
CancelReserve({ reserve_id => $reserve_id }); |
| 1188 |
} |
1185 |
} |
|
Lines 1232-1239
sub ModReserveFill {
Link Here
|
| 1232 |
my ($res) = @_; |
1229 |
my ($res) = @_; |
| 1233 |
my $reserve_id = $res->{'reserve_id'}; |
1230 |
my $reserve_id = $res->{'reserve_id'}; |
| 1234 |
|
1231 |
|
| 1235 |
my $dbh = C4::Context->dbh; |
|
|
| 1236 |
|
| 1237 |
my $hold = Koha::Holds->find($reserve_id); |
1232 |
my $hold = Koha::Holds->find($reserve_id); |
| 1238 |
|
1233 |
|
| 1239 |
# get the priority on this record.... |
1234 |
# get the priority on this record.... |
|
Lines 1247-1253
sub ModReserveFill {
Link Here
|
| 1247 |
} |
1242 |
} |
| 1248 |
); |
1243 |
); |
| 1249 |
|
1244 |
|
| 1250 |
my $old_hold = Koha::Old::Hold->new( $hold->unblessed() )->store(); |
1245 |
Koha::Old::Hold->new( $hold->unblessed() )->store(); |
| 1251 |
|
1246 |
|
| 1252 |
$hold->delete(); |
1247 |
$hold->delete(); |
| 1253 |
|
1248 |
|
|
Lines 1596-1603
Input: $where is 'up', 'down', 'top' or 'bottom'. Biblionumber, Date reserve was
Link Here
|
| 1596 |
sub AlterPriority { |
1591 |
sub AlterPriority { |
| 1597 |
my ( $where, $reserve_id ) = @_; |
1592 |
my ( $where, $reserve_id ) = @_; |
| 1598 |
|
1593 |
|
| 1599 |
my $dbh = C4::Context->dbh; |
|
|
| 1600 |
|
| 1601 |
my $reserve = GetReserve( $reserve_id ); |
1594 |
my $reserve = GetReserve( $reserve_id ); |
| 1602 |
|
1595 |
|
| 1603 |
if ( $reserve->{cancellationdate} ) { |
1596 |
if ( $reserve->{cancellationdate} ) { |
|
Lines 2176-2182
sub MoveReserve {
Link Here
|
| 2176 |
return unless $res; |
2169 |
return unless $res; |
| 2177 |
|
2170 |
|
| 2178 |
my $biblionumber = $res->{biblionumber}; |
2171 |
my $biblionumber = $res->{biblionumber}; |
| 2179 |
my $biblioitemnumber = $res->{biblioitemnumber}; |
|
|
| 2180 |
|
2172 |
|
| 2181 |
if ($res->{borrowernumber} == $borrowernumber) { |
2173 |
if ($res->{borrowernumber} == $borrowernumber) { |
| 2182 |
ModReserveFill($res); |
2174 |
ModReserveFill($res); |
| 2183 |
- |
|
|