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 |