|
Lines 1466-1474
sub AlterPriority {
Link Here
|
| 1466 |
|
1466 |
|
| 1467 |
my $reserve = GetReserve( $reserve_id ); |
1467 |
my $reserve = GetReserve( $reserve_id ); |
| 1468 |
|
1468 |
|
|
|
1469 |
if ( $reserve->{cancellationdate} ) { |
| 1470 |
warn "I cannot alter the priority for reserve_id $reserve_id, the reserve has been cancelled (".$reserve->{cancellationdate}.')'; |
| 1471 |
return; |
| 1472 |
} |
| 1473 |
|
| 1469 |
if ( $where eq 'up' || $where eq 'down' ) { |
1474 |
if ( $where eq 'up' || $where eq 'down' ) { |
| 1470 |
|
1475 |
|
| 1471 |
my $priority = $reserve->{'priority'}; |
1476 |
my $priority = $reserve->{'priority'}; |
| 1472 |
$priority = $where eq 'up' ? $priority - 1 : $priority + 1; |
1477 |
$priority = $where eq 'up' ? $priority - 1 : $priority + 1; |
| 1473 |
_FixPriority( $reserve_id, $priority ) |
1478 |
_FixPriority( $reserve_id, $priority ) |
| 1474 |
|
1479 |
|
|
Lines 1628-1634
sub _FixPriority {
Link Here
|
| 1628 |
$sth->execute( $reserve_id ); |
1633 |
$sth->execute( $reserve_id ); |
| 1629 |
} |
1634 |
} |
| 1630 |
my @priority; |
1635 |
my @priority; |
| 1631 |
my @reservedates; |
|
|
| 1632 |
|
1636 |
|
| 1633 |
# get whats left |
1637 |
# get whats left |
| 1634 |
my $query = " |
1638 |
my $query = " |
|
Lines 1641-1647
sub _FixPriority {
Link Here
|
| 1641 |
my $sth = $dbh->prepare($query); |
1645 |
my $sth = $dbh->prepare($query); |
| 1642 |
$sth->execute( $res->{'biblionumber'} ); |
1646 |
$sth->execute( $res->{'biblionumber'} ); |
| 1643 |
while ( my $line = $sth->fetchrow_hashref ) { |
1647 |
while ( my $line = $sth->fetchrow_hashref ) { |
| 1644 |
push( @reservedates, $line ); |
|
|
| 1645 |
push( @priority, $line ); |
1648 |
push( @priority, $line ); |
| 1646 |
} |
1649 |
} |
| 1647 |
|
1650 |
|