|
Lines 124-137
if($op eq 'delete_confirm'){
Link Here
|
| 124 |
foreach my $serialid (@serialsid){ |
124 |
foreach my $serialid (@serialsid){ |
| 125 |
my @itemnumbers = Koha::Serial::Items->search({serialid => $serialid})->get_column('itemnumber'); |
125 |
my @itemnumbers = Koha::Serial::Items->search({serialid => $serialid})->get_column('itemnumber'); |
| 126 |
foreach my $itemnumber (@itemnumbers){ |
126 |
foreach my $itemnumber (@itemnumbers){ |
| 127 |
C4::Items::DelItem({'biblionumber' => $biblionumber, 'itemnumber' => $itemnumber}); |
127 |
my $delcheck = C4::Items::DelItemCheck($biblionumber, $itemnumber); |
|
|
128 |
$template->param(error_delitem => 1) if $delcheck != 1; |
| 128 |
} |
129 |
} |
| 129 |
} |
130 |
} |
| 130 |
} |
131 |
} |
| 131 |
for my $serialid (@serialsid){ |
132 |
for my $serialid (@serialsid){ |
| 132 |
ModSerialStatus($serialid,"","","","",6); |
133 |
my $serial = Koha::Serials->find($serialid); |
|
|
134 |
ModSerialStatus($serialid, $serial->serialseq, $serial->planneddate, $serial->publisheddate, $serial->publisheddatetext, 6, ""); |
| 133 |
} |
135 |
} |
| 134 |
print $query->redirect('/cgi-bin/koha/serials/serials-collection.pl?subscriptionid='.$subscriptionid); |
|
|
| 135 |
} |
136 |
} |
| 136 |
|
137 |
|
| 137 |
my $subscriptioncount; |
138 |
my $subscriptioncount; |
| 138 |
- |
|
|