|
Lines 104-109
BEGIN {
Link Here
|
| 104 |
&GetReserveFee |
104 |
&GetReserveFee |
| 105 |
&GetReserveInfo |
105 |
&GetReserveInfo |
| 106 |
&GetReserveStatus |
106 |
&GetReserveStatus |
|
|
107 |
&GetReserve |
| 107 |
|
108 |
|
| 108 |
&GetOtherReserves |
109 |
&GetOtherReserves |
| 109 |
|
110 |
|
|
Lines 833-838
sub GetReserveStatus {
Link Here
|
| 833 |
return ''; # empty string here will remove need for checking undef, or less log lines |
834 |
return ''; # empty string here will remove need for checking undef, or less log lines |
| 834 |
} |
835 |
} |
| 835 |
|
836 |
|
|
|
837 |
=head2 GetReserve |
| 838 |
|
| 839 |
my $reserve = C4::Reserves::GetReserve($reserve_id); |
| 840 |
|
| 841 |
Take a reserve_id and returns a hashref containing reserve informations. |
| 842 |
Return undef if reserve_id doesn't exist. |
| 843 |
|
| 844 |
=cut |
| 845 |
|
| 846 |
sub GetReserve { |
| 847 |
my ($reserve_id) = @_; |
| 848 |
|
| 849 |
return unless $reserve_id; |
| 850 |
|
| 851 |
my $dbh = C4::Context->dbh; |
| 852 |
my $query = qq{ |
| 853 |
SELECT * |
| 854 |
FROM reserves |
| 855 |
WHERE reserve_id = ? |
| 856 |
}; |
| 857 |
my $sth = $dbh->prepare($query); |
| 858 |
|
| 859 |
$sth->execute($reserve_id); |
| 860 |
my $reserve = $sth->fetchrow_hashref; |
| 861 |
|
| 862 |
return $reserve; |
| 863 |
} |
| 864 |
|
| 836 |
=head2 CheckReserves |
865 |
=head2 CheckReserves |
| 837 |
|
866 |
|
| 838 |
($status, $reserve, $all_reserves) = &CheckReserves($itemnumber); |
867 |
($status, $reserve, $all_reserves) = &CheckReserves($itemnumber); |
|
Lines 1032-1065
sub CancelReserve {
Link Here
|
| 1032 |
my $dbh = C4::Context->dbh; |
1061 |
my $dbh = C4::Context->dbh; |
| 1033 |
|
1062 |
|
| 1034 |
my $reserve = GetReserve( $reserve_id ); |
1063 |
my $reserve = GetReserve( $reserve_id ); |
|
|
1064 |
if ($reserve) { |
| 1065 |
my $query = " |
| 1066 |
UPDATE reserves |
| 1067 |
SET cancellationdate = now(), |
| 1068 |
found = Null, |
| 1069 |
priority = 0 |
| 1070 |
WHERE reserve_id = ? |
| 1071 |
"; |
| 1072 |
my $sth = $dbh->prepare($query); |
| 1073 |
$sth->execute( $reserve_id ); |
| 1035 |
|
1074 |
|
| 1036 |
my $query = " |
1075 |
$query = " |
| 1037 |
UPDATE reserves |
1076 |
INSERT INTO old_reserves |
| 1038 |
SET cancellationdate = now(), |
1077 |
SELECT * FROM reserves |
| 1039 |
found = Null, |
1078 |
WHERE reserve_id = ? |
| 1040 |
priority = 0 |
1079 |
"; |
| 1041 |
WHERE reserve_id = ? |
1080 |
$sth = $dbh->prepare($query); |
| 1042 |
"; |
1081 |
$sth->execute( $reserve_id ); |
| 1043 |
my $sth = $dbh->prepare($query); |
|
|
| 1044 |
$sth->execute( $reserve_id ); |
| 1045 |
|
1082 |
|
| 1046 |
$query = " |
1083 |
$query = " |
| 1047 |
INSERT INTO old_reserves |
1084 |
DELETE FROM reserves |
| 1048 |
SELECT * FROM reserves |
1085 |
WHERE reserve_id = ? |
| 1049 |
WHERE reserve_id = ? |
1086 |
"; |
| 1050 |
"; |
1087 |
$sth = $dbh->prepare($query); |
| 1051 |
$sth = $dbh->prepare($query); |
1088 |
$sth->execute( $reserve_id ); |
| 1052 |
$sth->execute( $reserve_id ); |
|
|
| 1053 |
|
1089 |
|
| 1054 |
$query = " |
1090 |
# now fix the priority on the others.... |
| 1055 |
DELETE FROM reserves |
1091 |
_FixPriority({ biblionumber => $reserve->{biblionumber} }); |
| 1056 |
WHERE reserve_id = ? |
1092 |
} |
| 1057 |
"; |
|
|
| 1058 |
$sth = $dbh->prepare($query); |
| 1059 |
$sth->execute( $reserve_id ); |
| 1060 |
|
1093 |
|
| 1061 |
# now fix the priority on the others.... |
1094 |
return $reserve; |
| 1062 |
_FixPriority({ biblionumber => $reserve->{biblionumber} }); |
|
|
| 1063 |
} |
1095 |
} |
| 1064 |
|
1096 |
|
| 1065 |
=head2 ModReserve |
1097 |
=head2 ModReserve |