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 $subs = &GetSubscription($subscriptionid);
199 ($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;
237 my $choice = ($itemstatusloopcount == 1) ? 1 : 0;
238 foreach my $data (@serialslist){
239 $data->{"itemstatusloop"} = (scalar(@itemstatusloop )) ? \@itemstatusloop : [];
240 $data->{"itemlocationloop"} = (scalar(@itemlocationloop)) ? \@itemlocationloop : [];
241 $data->{"branchloop"} = \@branchloop ;
243 # warn "Choice: $choice";
244 $template->param(choice => $choice);
245 $template->param(serialadditems =>C4::Context->preference("serialsadditems"),
246 branchloop => \@branchloop,
248 $template->param( itemstatus=>1, itemstatusloop=>\@itemstatusloop ) if (scalar(@itemstatusloop ));
249 $template->param(itemlocation=>1,itemlocationloop=>\@itemlocationloop) if (scalar(@itemlocationloop));
251 $template->param(branchloop=>[],itemstatusloop=>[],itemlocationloop=>[]) ;
254 $sth= C4::Serials::GetSubscriptionHistoryFromSubscriptionId();
255 $sth->execute($subscriptionid);
256 $solhistory = $sth->fetchrow_hashref;
260 serialslist => \@serialslist,
262 biblionumber => $subscription->{biblionumber},
263 histstartdate => format_date($solhistory->{'histstartdate'}),
264 enddate => format_date($solhistory->{'enddate'}),
265 recievedlist => $solhistory->{'recievedlist'},
266 missinglist => $solhistory->{'missinglist'},
267 opacnote => $solhistory->{'opacnote'},
268 librariannote => $solhistory->{'librariannote'},
269 subscriptionid => $subscriptionid,
270 bibliotitle => $subs->{bibliotitle},
271 biblionumber => $subs->{biblionumber},
272 hassubscriptionexpired =>$hassubscriptionexpired,
273 abouttoexpire =>$abouttoexpire,
275 missingseq => $manualissue,
276 frommissing => $manualstatus,
277 missingdate => $manualdate,
278 missingid => $manualid,
280 output_html_with_http_headers $query, $cookie, $template->output;