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
32 * modsubscriptionhistory :to modify the subscription history
33 * serialchangestatus :to modify the status of this subscription
73 use C4::Interface::CGI::Output;
79 my $op = $query->param('op');
80 my $dbh = C4::Context->dbh;
81 my $subscriptionid = $query->param('subscriptionid');
82 # my $auser = $query->param('user');
83 my $histstartdate = format_date_in_iso($query->param('histstartdate'));
84 my $enddate = format_date_in_iso($query->param('enddate'));
85 my $recievedlist = $query->param('recievedlist');
86 my $missinglist = $query->param('missinglist');
87 my $opacnote = $query->param('opacnote');
88 my $librariannote = $query->param('librariannote');
89 my @serialids = $query->param('serialid');
90 my @serialseqs = $query->param('serialseq');
91 my @planneddates = $query->param('planneddate');
92 my @status = $query->param('status');
93 my @notes = $query->param('notes');
94 my @barcodes = $query->param('barcode');
95 my @itemcallnumbers = $query->param('itemcallnumber');
96 my @locations = $query->param('location');
97 my @itemstatus = $query->param('itemstatus');
98 my @homebranches = $query->param('branch');
99 my $hassubscriptionexpired = HasSubscriptionExpired($subscriptionid);
100 my $abouttoexpire = abouttoexpire($subscriptionid);
102 my $subscription=GetSubscription($subscriptionid);
105 my $auser = $subscription->{'librarian'}; # bob
106 my $routing = check_routing($subscriptionid); # to see if routing list exists
112 $manualdate = $query->param('planneddate');
113 $manualissue = $query->param('missingissue');
115 my $sth = $dbh->prepare("select serialid from serial where subscriptionid = ? AND serialseq = ? AND planneddate = ?");
116 $sth->execute($subscriptionid,$manualissue,format_date_in_iso($manualdate));
117 $manualid = $sth->fetchrow;
119 if ($op eq 'modsubscriptionhistory') {
120 ModSubscriptionHistory($subscriptionid,$histstartdate,$enddate,$recievedlist,$missinglist,$opacnote,$librariannote);
123 # change status except, if subscription has expired, for the "waited" issue.
124 if ($op eq 'serialchangestatus') {
125 my $sth = $dbh->prepare("select status from serial where serialid=?");
126 for (my $i=0;$i<=$#serialids;$i++) {
127 $sth->execute($serialids[$i]);
129 my ($oldstatus) = $sth->fetchrow;
130 if ($serialids[$i]) {
131 ModSerialStatus($serialids[$i],$serialseqs[$i],format_date_in_iso($planneddates[$i]),$status[$i],$notes[$i]) unless ($hassubscriptionexpired && $oldstatus == 1);
132 if (($status[$i]==2) && C4::Context->preference("serialsadditems")){
134 $info{branch}=$homebranches[$i];
135 $info{barcode}=$barcodes[$i];
136 $info{itemcallnumber}=$itemcallnumbers[$i];
137 $info{location}=$locations[$i];
138 $info{status}=$itemstatus[$i];
139 $info{notes}=$serialseqs[$i]." (".$planneddates[$i].")";
140 my ($status2, @errors)= ItemizeSerials($serialids[$i],\%info);
141 my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
142 $sth2->execute($homebranches[$i],$subscriptionid);
144 # remove from missing list if item being checked in is on it
146 removeMissingIssue($serialseqs[$i],$subscriptionid);
150 # add a special issue
151 if ($serialseqs[$i]) {
152 NewIssue($serialseqs[$i],$subscriptionid,$subscription->{biblionumber},$status[$i], format_date_in_iso($planneddates[$i]));
154 if (($status[$i]==2) && C4::Context->preference("serialsadditems") && !hassubscriptionexpired($subscriptionid)){
156 $info{branch}=$homebranches[$i];
157 $info{barcode}=$barcodes[$i];
158 $info{itemcallnumber}=$itemcallnumbers[$i];
159 $info{location}=$locations[$i];
160 $info{status}=$itemstatus[$i];
161 $info{notes}=$serialseqs[$i]." (".$planneddates[$i].")";
162 my ($status2, @errors)= ItemizeSerials($serialids[$i],\%info);
163 my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
164 $sth2->execute($homebranches[$i],$subscriptionid);
166 # remove from missing list if item being checked in is on it
168 removeMissingIssue($serialseqs[$i],$subscriptionid);
175 my ($template, $loggedinuser, $cookie)
176 = get_template_and_user({template_name => "serials/statecollection.tmpl",
179 authnotrequired => 0,
180 flagsrequired => {catalogue => 1},
184 my $subs = &GetSubscription($subscriptionid);
185 my ($totalissues,@serialslist) = GetSerials($subscriptionid);
186 my $count = @serialslist;
187 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 # warn Dumper(@serialslist);
195 my $sth= C4::Serials::GetSubscriptionHistoryFromSubscriptionId();
197 $sth->execute($subscriptionid);
198 my $solhistory = $sth->fetchrow_hashref;
200 my $subs = &GetSubscription($subscriptionid);
201 my ($totalissues,@serialslist) = GetSerials($subscriptionid);
203 if (C4::Context->preference("serialsadditems")){
204 my $bibid=MARCfind_MARCbibid_from_oldbiblionumber($dbh,$subscription->{biblionumber});
205 my $fwk=MARCfind_frameworkcode($dbh,$bibid);
207 my $branches = GetBranches;
209 foreach my $thisbranch (keys %$branches) {
211 if($thisbranch eq $solhistory->{'lastbranch'}){
214 my %row =(value => $thisbranch,
215 branchname => $branches->{$thisbranch}->{'branchname'},
216 selected => $selected,
218 push @branchloop, \%row;
221 my $itemstatushash = getitemstatus($fwk);
223 my $itemstatusloopcount=0;
224 foreach my $thisitemstatus (keys %$itemstatushash) {
225 my %row =(itemval => $thisitemstatus,
226 itemlib => $itemstatushash->{$thisitemstatus},
228 # warn "".$row{'itemval'}.", ". $row{"itemlib"};
229 $itemstatusloopcount++;
230 push @itemstatusloop, \%row;
233 my $itemlocationhash = getitemlocation($fwk);
234 my @itemlocationloop;
235 foreach my $thisitemlocation (keys %$itemlocationhash) {
236 my %row =(value => $thisitemlocation,
237 itemlocationname => $itemlocationhash->{$thisitemlocation},
239 push @itemlocationloop, \%row;
243 if($itemstatusloopcount == 1){ $choice = 1;}
244 foreach my $data (@serialslist){
245 if (scalar(@itemstatusloop)){$data->{"itemstatusloop"}=\@itemstatusloop;}
246 else { $data->{"itemstatusloop"}=[];}
247 if (scalar(@itemlocationloop)){$data->{"itemlocationloop"}=\@itemlocationloop;}
248 else {$data->{"itemlocationloop"}=[];}
249 $data->{"branchloop"}=\@branchloop ;
251 # warn "Choice: $choice";
252 $template->param(choice => $choice);
253 $template->param(serialadditems =>C4::Context->preference("serialsadditems"),
254 branchloop => \@branchloop,
256 $template->param(itemstatus=>1,itemstatusloop=>\@itemstatusloop) if (scalar(@itemstatusloop));
257 $template->param(itemlocation=>1,itemlocationloop=>\@itemlocationloop) if (scalar(@itemlocationloop));
259 $template->param(branchloop=>[],itemstatusloop=>[],itemlocationloop=>[]) ;
262 my $sth= C4::Serials::GetSubscriptionHistoryFromSubscriptionId();
263 $sth->execute($subscriptionid);
264 my $solhistory = $sth->fetchrow_hashref;
269 serialslist => \@serialslist,
271 biblionumber => $subscription->{biblionumber},
272 histstartdate => format_date($solhistory->{'histstartdate'}),
273 enddate => format_date($solhistory->{'enddate'}),
274 recievedlist => $solhistory->{'recievedlist'},
275 missinglist => $solhistory->{'missinglist'},
276 opacnote => $solhistory->{'opacnote'},
277 librariannote => $solhistory->{'librariannote'},
278 subscriptionid => $subscriptionid,
279 bibliotitle => $subs->{bibliotitle},
280 biblionumber => $subs->{biblionumber},
281 hassubscriptionexpired =>$hassubscriptionexpired,
282 abouttoexpire =>$abouttoexpire,
283 intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
284 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
285 IntranetNav => C4::Context->preference("IntranetNav"),
287 missingseq => $manualissue,
288 frommissing => $manualstatus,
289 missingdate => $manualdate,
290 missingid => $manualid,
292 output_html_with_http_headers $query, $cookie, $template->output;