|
Lines 46-52
BEGIN {
Link Here
|
| 46 |
|
46 |
|
| 47 |
&SearchCourses |
47 |
&SearchCourses |
| 48 |
|
48 |
|
| 49 |
&GetItemReservesInfo |
49 |
&GetItemCourseReservesInfo |
| 50 |
); |
50 |
); |
| 51 |
%EXPORT_TAGS = ( 'all' => \@EXPORT_OK ); |
51 |
%EXPORT_TAGS = ( 'all' => \@EXPORT_OK ); |
| 52 |
|
52 |
|
|
Lines 934-947
sub DelCourseReserve {
Link Here
|
| 934 |
|
934 |
|
| 935 |
=head2 GetReservesInfo |
935 |
=head2 GetReservesInfo |
| 936 |
|
936 |
|
| 937 |
my $arrayref = GetItemReservesInfo( itemnumber => $itemnumber ); |
937 |
my $arrayref = GetItemCourseReservesInfo( itemnumber => $itemnumber ); |
| 938 |
|
938 |
|
| 939 |
For a given item, returns an arrayref of reserves hashrefs, |
939 |
For a given item, returns an arrayref of reserves hashrefs, |
| 940 |
with a course hashref under the key 'course' |
940 |
with a course hashref under the key 'course' |
| 941 |
|
941 |
|
| 942 |
=cut |
942 |
=cut |
| 943 |
|
943 |
|
| 944 |
sub GetItemReservesInfo { |
944 |
sub GetItemCourseReservesInfo { |
| 945 |
my (%params) = @_; |
945 |
my (%params) = @_; |
| 946 |
warn identify_myself(%params) if $DEBUG; |
946 |
warn identify_myself(%params) if $DEBUG; |
| 947 |
|
947 |
|