Lines 2595-2618
sub _can_do_on_subscription {
Link Here
|
2595 |
} |
2595 |
} |
2596 |
return 0; |
2596 |
return 0; |
2597 |
} |
2597 |
} |
|
|
2598 |
|
2598 |
=head1 GetSerialItemsInformations |
2599 |
=head1 GetSerialItemsInformations |
|
|
2600 |
|
2601 |
@serialsitemsinformations = GetSerialItemsInformations (@serialid) |
2602 |
|
2603 |
return an array of specifique information of serials and serialitem a given array of serialid |
2604 |
|
2599 |
=cut |
2605 |
=cut |
|
|
2606 |
|
2600 |
sub GetSerialItemsInformations{ |
2607 |
sub GetSerialItemsInformations{ |
2601 |
my (@serialid)=@_; |
2608 |
my (@serialid)=@_; |
2602 |
my $i=0; |
2609 |
my @serialitemsinformation; |
2603 |
my @serialitemsinformation; |
2610 |
my $dbh = C4::Context->dbh; |
2604 |
my $dbh = C4::Context->dbh; |
2611 |
foreach my $sid(@serialid){ |
2605 |
foreach my $sid(@serialid){ |
|
|
2606 |
my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber from items i natural join serialitems s where s.serialid=?"); |
2612 |
my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber from items i natural join serialitems s where s.serialid=?"); |
2607 |
$sth->execute($sid); |
2613 |
$sth->execute($sid); |
2608 |
my $line = $sth->fetchrow_hashref; |
2614 |
my $line = $sth->fetchrow_hashref; |
2609 |
if($line->{'countitems'}){ |
2615 |
if($line->{'countitems'}){ |
2610 |
push @serialitemsinformation,$line; |
2616 |
push @serialitemsinformation,$line; |
2611 |
} |
2617 |
} |
2612 |
} |
2618 |
} |
2613 |
return @serialitemsinformation; |
2619 |
return @serialitemsinformation; |
2614 |
|
|
|
2615 |
} |
2620 |
} |
|
|
2621 |
|
2616 |
=head2 findSerialsByStatus |
2622 |
=head2 findSerialsByStatus |
2617 |
|
2623 |
|
2618 |
@serials = findSerialsByStatus($status, $subscriptionid); |
2624 |
@serials = findSerialsByStatus($status, $subscriptionid); |
2619 |
- |
|
|