Lines 83-90
my @planneddates = $query->param('planneddate');
Link Here
|
83 |
my @publisheddates = $query->param('publisheddate'); |
83 |
my @publisheddates = $query->param('publisheddate'); |
84 |
my @status = $query->param('status'); |
84 |
my @status = $query->param('status'); |
85 |
my @notes = $query->param('notes'); |
85 |
my @notes = $query->param('notes'); |
86 |
my @subscriptionids = $query->param('subscriptionid'); |
|
|
87 |
my $op = $query->param('op'); |
86 |
my $op = $query->param('op'); |
|
|
87 |
my @subscriptionids ; |
88 |
|
89 |
#if it is bulk receive |
90 |
if($op eq 'all') |
91 |
{ |
92 |
my $sth = $dbh->prepare('select subscriptionid from subscription'); |
93 |
$sth->execute; |
94 |
my $row; |
95 |
while ($row = $sth->fetchrow_array()) { |
96 |
push (@subscriptionids,$row); |
97 |
} |
98 |
}else { |
99 |
@subscriptionids = $query->param('subscriptionid'); |
100 |
} |
88 |
if ( scalar(@subscriptionids) == 1 && index( $subscriptionids[0], q|,| ) > 0 ) { |
101 |
if ( scalar(@subscriptionids) == 1 && index( $subscriptionids[0], q|,| ) > 0 ) { |
89 |
@subscriptionids = split( /,/, $subscriptionids[0] ); |
102 |
@subscriptionids = split( /,/, $subscriptionids[0] ); |
90 |
} |
103 |
} |
Lines 125-130
my @serialdatalist;
Link Here
|
125 |
my %processedserialid; |
138 |
my %processedserialid; |
126 |
|
139 |
|
127 |
my $today = C4::Dates->new(); |
140 |
my $today = C4::Dates->new(); |
|
|
141 |
my $subid; |
128 |
foreach my $serialid (@serialids) { |
142 |
foreach my $serialid (@serialids) { |
129 |
|
143 |
|
130 |
#filtering serialid for duplication |
144 |
#filtering serialid for duplication |
Lines 151-156
foreach my $serialid (@serialids) {
Link Here
|
151 |
) |
165 |
) |
152 |
|| $serinfo->{'cannotedit'} |
166 |
|| $serinfo->{'cannotedit'} |
153 |
); |
167 |
); |
|
|
168 |
my $mydata; |
169 |
$mydata = GetSubscription($serinfo->{subscriptionid}); |
170 |
$serinfo->{'issn'} = $mydata->{'biblionumber'}; |
171 |
$serinfo->{'title'} = $mydata->{'bibliotitle'}; |
172 |
$serinfo->{'branchname'} = $mydata->{'branchcode'}; |
154 |
push @serialdatalist, $serinfo; |
173 |
push @serialdatalist, $serinfo; |
155 |
$processedserialid{$serialid} = 1; |
174 |
$processedserialid{$serialid} = 1; |
156 |
} |
175 |
} |
Lines 183-189
foreach my $subscriptionid (@subscriptionids) {
Link Here
|
183 |
$cell->{'issuesatonce'} = 1; |
202 |
$cell->{'issuesatonce'} = 1; |
184 |
$cell->{arriveddate}=$today->output('syspref'); |
203 |
$cell->{arriveddate}=$today->output('syspref'); |
185 |
|
204 |
|
|
|
205 |
unless($op eq 'all') |
206 |
{ |
186 |
push @newserialloop, $cell; |
207 |
push @newserialloop, $cell; |
|
|
208 |
} |
187 |
push @subscriptionloop, |
209 |
push @subscriptionloop, |
188 |
{ |
210 |
{ |
189 |
'subscriptionid' => $subscriptionid, |
211 |
'subscriptionid' => $subscriptionid, |
190 |
- |
|
|