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