- my $sth = $dbh->prepare("select status from serial where serialid=?");
- for (my $i=0;$i<=$#serialids;$i++) {
- $sth->execute($serialids[$i]);
-
- my ($oldstatus) = $sth->fetchrow;
- if ($serialids[$i]) {
- ModSerialStatus($serialids[$i],$serialseqs[$i],format_date_in_iso($planneddates[$i]),$status[$i],$notes[$i]) unless ($hassubscriptionexpired && $oldstatus == 1);
- if (($status[$i]==2) && C4::Context->preference("serialsadditems")){
- my %info;
- $info{branch}=$homebranches[$i];
- $info{barcode}=$barcodes[$i];
- $info{itemcallnumber}=$itemcallnumbers[$i];
- $info{location}=$locations[$i];
- $info{status}=$itemstatus[$i];
- $info{notes}=$serialseqs[$i]." (".$planneddates[$i].")";
- my ($status2, @errors)= ItemizeSerials($serialids[$i],\%info);
- my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
- $sth2->execute($homebranches[$i],$subscriptionid);
- $sth2->finish;
- # remove from missing list if item being checked in is on it
- if ($status2 ==1){
- removeMissingIssue($serialseqs[$i],$subscriptionid);
- }
- }
- } else {
- # add a special issue
- if ($serialseqs[$i]) {
- NewIssue($serialseqs[$i],$subscriptionid,$subscription->{biblionumber},$status[$i], format_date_in_iso($planneddates[$i]));
- }
- if (($status[$i]==2) && C4::Context->preference("serialsadditems") && !hassubscriptionexpired($subscriptionid)){
- my %info;
- $info{branch}=$homebranches[$i];
- $info{barcode}=$barcodes[$i];
- $info{itemcallnumber}=$itemcallnumbers[$i];
- $info{location}=$locations[$i];
- $info{status}=$itemstatus[$i];
- $info{notes}=$serialseqs[$i]." (".$planneddates[$i].")";
- my ($status2, @errors)= ItemizeSerials($serialids[$i],\%info);
- my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
- $sth2->execute($homebranches[$i],$subscriptionid);
- $sth2->finish;
- # remove from missing list if item being checked in is on it
- if ($status2 ==1){
- removeMissingIssue($serialseqs[$i],$subscriptionid);
- }
- }
-
- }
- }
+ my $sth = $dbh->prepare("select status from serial where serialid=?");
+ for (my $i=0;$i<=$#serialids;$i++) {
+ $sth->execute($serialids[$i]);
+
+ my ($oldstatus) = $sth->fetchrow;
+ if ($serialids[$i]) {
+ 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);
+ if (($status[$i]==2) && C4::Context->preference("serialsadditems")){
+ my %info;
+ $info{branch}=$homebranches[$i];
+ $info{barcode}=$barcodes[$i];
+ $info{itemcallnumber}=$itemcallnumbers[$i];
+ $info{location}=$locations[$i];
+ $info{status}=$itemstatus[$i];
+ $info{notes}=$serialseqs[$i]." (".$planneddates[$i].")";
+ my ($status2, @errors)= ItemizeSerials($serialids[$i],\%info);
+ my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
+ $sth2->execute($homebranches[$i],$subscriptionid);
+ $sth2->finish;
+ # remove from missing list if item being checked in is on it
+ if ($status2 ==1){
+ removeMissingIssue($serialseqs[$i],$subscriptionid);
+ }
+ }
+ } else {
+ # add a special issue
+ if ($serialseqs[$i]) {
+ NewIssue($serialseqs[$i],$subscriptionid,$subscription->{biblionumber},$status[$i] ,format_date_in_iso($publisheddates[$i]),format_date_in_iso($planneddates[$i]));
+ }
+ if (($status[$i]==2) && C4::Context->preference("serialsadditems") && !hassubscriptionexpired($subscriptionid)){
+ my %info;
+ $info{branch}=$homebranches[$i];
+ $info{barcode}=$barcodes[$i];
+ $info{itemcallnumber}=$itemcallnumbers[$i];
+ $info{location}=$locations[$i];
+ $info{status}=$itemstatus[$i];
+ $info{notes}=$serialseqs[$i]." (".$planneddates[$i].")";
+ my ($status2, @errors)= ItemizeSerials($serialids[$i],\%info);
+ my $sth2 = $dbh->prepare("UPDATE subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
+ $sth2->execute($homebranches[$i],$subscriptionid);
+ $sth2->finish;
+ # remove from missing list if item being checked in is on it
+ if ($status2 ==1){
+ removeMissingIssue($serialseqs[$i],$subscriptionid);
+ }
+ }
+
+ }
+ }