Lines 30-118
use C4::Output;
Link Here
|
30 |
use C4::Reserves; |
30 |
use C4::Reserves; |
31 |
use C4::Circulation; |
31 |
use C4::Circulation; |
32 |
use C4::Members; |
32 |
use C4::Members; |
33 |
use C4::Auth qw/checkauth/; |
33 |
use C4::Auth |
34 |
|
34 |
|
35 |
use Koha::Items; |
35 |
use Koha::Items; |
36 |
use Koha::Patrons; |
36 |
use Koha::Patrons; |
37 |
|
37 |
|
38 |
my $input = CGI->new(); |
38 |
my $input = CGI->new(); |
39 |
|
39 |
|
40 |
checkauth($input, 0, { reserveforothers => 'place_holds' }, 'intranet'); |
40 |
my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user( |
41 |
|
41 |
{ |
42 |
my @bibitems = $input->multi_param('biblioitem'); |
42 |
template_name => "reserve/placerequest.tt", |
43 |
my @reqbib = $input->multi_param('reqbib'); |
43 |
query => $input, |
44 |
my $biblionumber = $input->param('biblionumber'); |
44 |
type => "intranet", |
45 |
my $borrowernumber = $input->param('borrowernumber'); |
45 |
authnotrequired => 0, |
46 |
my $notes = $input->param('notes'); |
46 |
flagsrequired => { reserveforothers => 'place_holds' }, |
47 |
my $branch = $input->param('pickup'); |
47 |
} |
48 |
my $startdate = $input->param('reserve_date') || ''; |
48 |
); |
49 |
my @rank = $input->multi_param('rank-request'); |
49 |
|
50 |
my $type = $input->param('type'); |
50 |
my $biblionumber=$input->param('biblionumber'); |
51 |
my $title = $input->param('title'); |
51 |
my $borrowernumber=$input->param('borrowernumber'); |
52 |
my $checkitem = $input->param('checkitem'); |
52 |
my $notes=$input->param('notes'); |
|
|
53 |
my $branch=$input->param('pickup'); |
54 |
my $startdate=$input->param('reserve_date') || ''; |
55 |
my @rank=$input->param('rank-request'); |
56 |
my $title=$input->param('title'); |
57 |
my $checkitem=$input->param('checkitem'); |
53 |
my $expirationdate = $input->param('expiration_date'); |
58 |
my $expirationdate = $input->param('expiration_date'); |
54 |
my $itemtype = $input->param('itemtype') || undef; |
59 |
my $itemtype = $input->param('itemtype') || undef; |
55 |
|
60 |
my $confirm = $input->param('confirm'); |
56 |
my $borrower = Koha::Patrons->find( $borrowernumber ); |
61 |
my @confirm_biblionumbers = $input->param('confirm_biblionumbers'); |
57 |
$borrower = $borrower->unblessed if $borrower; |
|
|
58 |
|
62 |
|
59 |
my $multi_hold = $input->param('multi_hold'); |
63 |
my $multi_hold = $input->param('multi_hold'); |
60 |
my $biblionumbers = $multi_hold ? $input->param('biblionumbers') : ($biblionumber . '/'); |
64 |
my $biblionumbers = $multi_hold ? $input->param('biblionumbers') : ($biblionumber . '/'); |
61 |
my $bad_bibs = $input->param('bad_bibs'); |
65 |
my $bad_bibs = $input->param('bad_bibs'); |
62 |
my $holds_to_place_count = $input->param('holds_to_place_count') || 1; |
66 |
my $holds_to_place_count = $input->param('holds_to_place_count') || 1; |
63 |
|
67 |
|
|
|
68 |
my $borrower = Koha::Patrons->find( $borrowernumber ); |
69 |
$borrower = $borrower->unblessed if $borrower; |
70 |
unless ($borrower) { |
71 |
print $input->header(); |
72 |
print "Invalid borrower number please try again"; |
73 |
exit; |
74 |
} |
75 |
|
64 |
my %bibinfos = (); |
76 |
my %bibinfos = (); |
65 |
my @biblionumbers = split '/', $biblionumbers; |
77 |
my @biblionumbers = split '/', $biblionumbers; |
66 |
foreach my $bibnum (@biblionumbers) { |
78 |
foreach my $bibnum (@biblionumbers) { |
67 |
my %bibinfo = (); |
79 |
my %bibinfo; |
68 |
$bibinfo{title} = $input->param("title_$bibnum"); |
80 |
$bibinfo{title} = $input->param("title_$bibnum"); |
|
|
81 |
|
69 |
$bibinfo{rank} = $input->param("rank_$bibnum"); |
82 |
$bibinfo{rank} = $input->param("rank_$bibnum"); |
70 |
$bibinfos{$bibnum} = \%bibinfo; |
83 |
$bibinfos{$bibnum} = \%bibinfo; |
71 |
} |
84 |
} |
72 |
|
85 |
|
73 |
my $found; |
86 |
my $found; |
74 |
|
87 |
|
75 |
if ( $type eq 'str8' && $borrower ) { |
88 |
my $overlap_reserves = {}; |
76 |
|
89 |
foreach my $biblionumber (keys %bibinfos) { |
77 |
foreach my $biblionumber ( keys %bibinfos ) { |
90 |
next if ($confirm && !grep { $_ eq $biblionumber } @confirm_biblionumbers); |
78 |
my $count = @bibitems; |
|
|
79 |
@bibitems = sort @bibitems; |
80 |
my $i2 = 1; |
81 |
my @realbi; |
82 |
$realbi[0] = $bibitems[0]; |
83 |
for ( my $i = 1 ; $i < $count ; $i++ ) { |
84 |
my $i3 = $i2 - 1; |
85 |
if ( $realbi[$i3] ne $bibitems[$i] ) { |
86 |
$realbi[$i2] = $bibitems[$i]; |
87 |
$i2++; |
88 |
} |
89 |
} |
90 |
|
91 |
|
91 |
if ( defined $checkitem && $checkitem ne '' ) { |
92 |
my ($reserve_title, $reserve_rank); |
92 |
my $item = Koha::Items->find($checkitem); |
93 |
if ($multi_hold) { |
93 |
if ( $item->biblionumber ne $biblionumber ) { |
94 |
my $bibinfo = $bibinfos{$biblionumber}; |
94 |
$biblionumber = $item->biblionumber; |
95 |
$reserve_rank = $bibinfo->{rank}; |
95 |
} |
96 |
$reserve_title = $bibinfo->{title}; |
96 |
} |
97 |
} else { |
|
|
98 |
$reserve_rank = $rank[0]; |
99 |
$reserve_title = $title; |
100 |
} |
97 |
|
101 |
|
98 |
if ($multi_hold) { |
102 |
if (defined $checkitem && $checkitem ne '') { |
99 |
my $bibinfo = $bibinfos{$biblionumber}; |
103 |
my $item = Koha::Items->find($checkitem); |
100 |
if ( CanBookBeReserved($borrower->{'borrowernumber'}, $biblionumber)->{status} eq 'OK' ) { |
104 |
if ($item->biblionumber ne $biblionumber) { |
101 |
AddReserve($branch,$borrower->{'borrowernumber'},$biblionumber,[$biblionumber], |
105 |
$biblionumber = $item->biblionumber; |
102 |
$bibinfo->{rank},$startdate,$expirationdate,$notes,$bibinfo->{title},$checkitem,$found); |
|
|
103 |
} |
104 |
} else { |
105 |
# place a request on 1st available |
106 |
for ( my $i = 0 ; $i < $holds_to_place_count ; $i++ ) { |
107 |
if ( CanBookBeReserved($borrower->{'borrowernumber'}, $biblionumber)->{status} eq 'OK' ) { |
108 |
AddReserve( $branch, $borrower->{'borrowernumber'}, |
109 |
$biblionumber, \@realbi, $rank[0], $startdate, $expirationdate, $notes, $title, |
110 |
$checkitem, $found, $itemtype ); |
111 |
} |
112 |
} |
113 |
} |
106 |
} |
114 |
} |
107 |
} |
115 |
|
108 |
|
|
|
109 |
if (!$confirm && |
110 |
ReservesOnSamePeriod($biblionumber, $checkitem, $startdate, $expirationdate) && |
111 |
C4::Context->preference("PreventReservesOnSamePeriod")) { |
112 |
$overlap_reserves->{$biblionumber} = { |
113 |
title => $reserve_title , |
114 |
checkitem => $checkitem, |
115 |
rank => $reserve_rank |
116 |
}; |
117 |
next; |
118 |
} |
119 |
|
120 |
if ( CanBookBeReserved($borrower->{borrowernumber}, $biblionumber)->{status} eq 'OK' ) { |
121 |
AddReserve($branch, $borrower->{'borrowernumber'}, $biblionumber, undef, |
122 |
$reserve_rank, $startdate, $expirationdate, $notes, $reserve_title, |
123 |
$checkitem, $found); |
124 |
} |
125 |
} |
126 |
|
127 |
if (scalar keys %$overlap_reserves) { |
128 |
$template->param( |
129 |
borrowernumber => $borrowernumber, |
130 |
biblionumbers => $biblionumbers, |
131 |
biblionumber => $biblionumber, |
132 |
overlap_reserves => $overlap_reserves, |
133 |
reserve_date => $startdate, |
134 |
expiration_date => $expirationdate, |
135 |
notes => $notes, |
136 |
rank_request => \@rank, |
137 |
pickup => $branch, |
138 |
multi_hold => $multi_hold, |
139 |
); |
140 |
|
141 |
output_html_with_http_headers $input, $cookie, $template->output; |
142 |
} else { |
116 |
if ($multi_hold) { |
143 |
if ($multi_hold) { |
117 |
if ($bad_bibs) { |
144 |
if ($bad_bibs) { |
118 |
$biblionumbers .= $bad_bibs; |
145 |
$biblionumbers .= $bad_bibs; |
Lines 122-133
if ( $type eq 'str8' && $borrower ) {
Link Here
|
122 |
else { |
149 |
else { |
123 |
print $input->redirect("request.pl?biblionumber=$biblionumber"); |
150 |
print $input->redirect("request.pl?biblionumber=$biblionumber"); |
124 |
} |
151 |
} |
125 |
} |
152 |
exit; |
126 |
elsif ( $borrowernumber eq '' ) { |
|
|
127 |
print $input->header(); |
128 |
print "Invalid borrower number please try again"; |
129 |
|
130 |
# Not sure that Dump() does HTML escaping. Use firebug or something to trace |
131 |
# instead. |
132 |
#print $input->Dump; |
133 |
} |
153 |
} |