3 # Copyright 2000-2002 Katipo Communications
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
31 * modsubscriptionhistory :to modify the subscription history
32 * serialchangestatus :to modify the status of this subscription
74 use C4::Branch; # GetBranches
77 my $op = $query->param('op');
78 my $dbh = C4::Context->dbh;
79 my $subscriptionid = $query->param('subscriptionid');
80 # my $auser = $query->param('user');
81 my $histstartdate = format_date_in_iso($query->param('histstartdate'));
82 my $enddate = format_date_in_iso($query->param('enddate'));
83 my $recievedlist = $query->param('recievedlist');
84 my $missinglist = $query->param('missinglist');
85 my $opacnote = $query->param('opacnote');
86 my $librariannote = $query->param('librariannote');
87 my @serialids = $query->param('serialid');
88 my @serialseqs = $query->param('serialseq');
89 my @planneddates = $query->param('planneddate');
90 my @publisheddates = $query->param('publisheddate');
91 my @status = $query->param('status');
92 my @notes = $query->param('notes');
93 my @barcodes = $query->param('barcode');
94 my @itemcallnumbers = $query->param('itemcallnumber');
95 my @locations = $query->param('location');
96 my @itemstatus = $query->param('itemstatus');
97 my @homebranches = $query->param('branch');
98 my $hassubscriptionexpired = HasSubscriptionExpired($subscriptionid);
99 my $abouttoexpire = abouttoexpire($subscriptionid);
101 my $subscription=GetSubscription($subscriptionid);
104 my $auser = $subscription->{'librarian'}; # bob
105 my $routing = check_routing($subscriptionid); # to see if routing list exists
111 $manualdate = $query->param('planneddate');
112 $manualissue = $query->param('missingissue');
114 my $sth = $dbh->prepare("select serialid from serial where subscriptionid = ? AND serialseq = ? AND planneddate = ?");
115 $sth->execute($subscriptionid,$manualissue,format_date_in_iso($manualdate));
116 $manualid = $sth->fetchrow;
118 if ($op eq 'modsubscriptionhistory') {
119 ModSubscriptionHistory($subscriptionid,$histstartdate,$enddate,$recievedlist,$missinglist,$opacnote,$librariannote);
122 # change status except, if subscription has expired, for the "waited" issue.
123 if ($op eq 'serialchangestatus') {
124 my $sth = $dbh->prepare("select status from serial where serialid=?");
125 for (my $i=0;$i<=$#serialids;$i++) {
126 $sth->execute($serialids[$i]);
128 my ($oldstatus) = $sth->fetchrow;
129 if ($serialids[$i]) {
130 ModSerialStatus($serialids[$i],$serialseqs[$i],format_date_in_iso($planneddates[$i]),format_date_in_iso($publisheddates[$i]),$status[$i],$notes[$i]) unless ($hassubscriptionexpired && $oldstatus == 1);
131 if (($status[$i]==2) && C4::Context->preference("serialsadditems")){
133 $info{branch}=$homebranches[$i];
134 $info{barcode}=$barcodes[$i];
135 $info{itemcallnumber}=$itemcallnumbers[$i];
136 $info{location}=$locations[$i];
137 $info{status}=$itemstatus[$i];
138 $info{notes}=$serialseqs[$i]." (".$planneddates[$i].")";
139 my ($status2, @errors)= ItemizeSerials($serialids[$i],\%info);
140 my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
141 $sth2->execute($homebranches[$i],$subscriptionid);
143 # remove from missing list if item being checked in is on it
145 removeMissingIssue($serialseqs[$i],$subscriptionid);
149 # add a special issue
150 if ($serialseqs[$i]) {
151 NewIssue($serialseqs[$i],$subscriptionid,$subscription->{biblionumber},$status[$i] ,format_date_in_iso($publisheddates[$i]),format_date_in_iso($planneddates[$i]));
153 if (($status[$i]==2) && C4::Context->preference("serialsadditems") && !hassubscriptionexpired($subscriptionid)){
155 $info{branch}=$homebranches[$i];
156 $info{barcode}=$barcodes[$i];
157 $info{itemcallnumber}=$itemcallnumbers[$i];
158 $info{location}=$locations[$i];
159 $info{status}=$itemstatus[$i];
160 $info{notes}=$serialseqs[$i]." (".$planneddates[$i].")";
161 my ($status2, @errors)= ItemizeSerials($serialids[$i],\%info);
162 my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
163 $sth2->execute($homebranches[$i],$subscriptionid);
165 # remove from missing list if item being checked in is on it
167 removeMissingIssue($serialseqs[$i],$subscriptionid);
174 my ($template, $loggedinuser, $cookie)
175 = get_template_and_user({template_name => "serials/serials-recieve.tmpl",
178 authnotrequired => 0,
179 flagsrequired => {serials => 1},
183 my $subs = &GetSubscription($subscriptionid);
184 my ($totalissues,@serialslist) = GetSerials($subscriptionid);
185 my $count = @serialslist;
186 for(my $i=0;$i<$count;$i++){
188 $serialslist[$i]->{'callnumber'} = $subscription->{'callnumber'};
189 my $temp = rand(10000000);
190 $serialslist[$i]->{'barcode'} = "TEMP" . sprintf("%.0f",$temp);
193 my $sth= C4::Serials::GetSubscriptionHistoryFromSubscriptionId();
195 $sth->execute($subscriptionid);
196 my $solhistory = $sth->fetchrow_hashref;
198 my $subs = &GetSubscription($subscriptionid);
199 my ($totalissues,@serialslist) = GetSerials($subscriptionid);
201 if (C4::Context->preference("serialsadditems")){
202 my $fwk=GetFrameworkCode($subscription->{biblionumber});
204 my $branches = GetBranches;
206 foreach my $thisbranch (keys %$branches) {
208 if($thisbranch eq $solhistory->{'lastbranch'}){
211 my %row =(value => $thisbranch,
212 branchname => $branches->{$thisbranch}->{'branchname'},
213 selected => $selected,
215 push @branchloop, \%row;
217 my $itemstatushash = GetItemStatus($fwk);
219 my $itemstatusloopcount=0;
220 foreach my $thisitemstatus (keys %$itemstatushash) {
221 my %row =(itemval => $thisitemstatus,
222 itemlib => $itemstatushash->{$thisitemstatus},
224 # warn "".$row{'itemval'}.", ". $row{"itemlib"};
225 $itemstatusloopcount++;
226 push @itemstatusloop, \%row;
228 my $itemlocationhash = GetItemLocation($fwk);
229 my @itemlocationloop;
230 foreach my $thisitemlocation (keys %$itemlocationhash) {
231 my %row =(value => $thisitemlocation,
232 itemlocationname => $itemlocationhash->{$thisitemlocation},
234 push @itemlocationloop, \%row;
238 if($itemstatusloopcount == 1){ $choice = 1;}
239 foreach my $data (@serialslist){
240 if (scalar(@itemstatusloop)){$data->{"itemstatusloop"}=\@itemstatusloop;}
241 else { $data->{"itemstatusloop"}=[];}
242 if (scalar(@itemlocationloop)){$data->{"itemlocationloop"}=\@itemlocationloop;}
243 else {$data->{"itemlocationloop"}=[];}
244 $data->{"branchloop"}=\@branchloop ;
246 # warn "Choice: $choice";
247 $template->param(choice => $choice);
248 $template->param(serialadditems =>C4::Context->preference("serialsadditems"),
249 branchloop => \@branchloop,
251 $template->param(itemstatus=>1,itemstatusloop=>\@itemstatusloop) if (scalar(@itemstatusloop));
252 $template->param(itemlocation=>1,itemlocationloop=>\@itemlocationloop) if (scalar(@itemlocationloop));
254 $template->param(branchloop=>[],itemstatusloop=>[],itemlocationloop=>[]) ;
257 my $sth= C4::Serials::GetSubscriptionHistoryFromSubscriptionId();
258 $sth->execute($subscriptionid);
259 my $solhistory = $sth->fetchrow_hashref;
263 serialslist => \@serialslist,
265 biblionumber => $subscription->{biblionumber},
266 histstartdate => format_date($solhistory->{'histstartdate'}),
267 enddate => format_date($solhistory->{'enddate'}),
268 recievedlist => $solhistory->{'recievedlist'},
269 missinglist => $solhistory->{'missinglist'},
270 opacnote => $solhistory->{'opacnote'},
271 librariannote => $solhistory->{'librariannote'},
272 subscriptionid => $subscriptionid,
273 bibliotitle => $subs->{bibliotitle},
274 biblionumber => $subs->{biblionumber},
275 hassubscriptionexpired =>$hassubscriptionexpired,
276 abouttoexpire =>$abouttoexpire,
278 missingseq => $manualissue,
279 frommissing => $manualstatus,
280 missingdate => $manualdate,
281 missingid => $manualid,
283 output_html_with_http_headers $query, $cookie, $template->output;