Lines 2712-2735
sub _can_do_on_subscription {
Link Here
|
2712 |
} |
2712 |
} |
2713 |
return 0; |
2713 |
return 0; |
2714 |
} |
2714 |
} |
|
|
2715 |
|
2715 |
=head1 GetSerialItemsInformations |
2716 |
=head1 GetSerialItemsInformations |
|
|
2717 |
|
2718 |
@serialsitemsinformations = GetSerialItemsInformations (@serialid) |
2719 |
|
2720 |
return an array of specifique information of serials and serialitem a given array of serialid |
2721 |
|
2716 |
=cut |
2722 |
=cut |
|
|
2723 |
|
2717 |
sub GetSerialItemsInformations{ |
2724 |
sub GetSerialItemsInformations{ |
2718 |
my (@serialid)=@_; |
2725 |
my (@serialid)=@_; |
2719 |
my $i=0; |
2726 |
my @serialitemsinformation; |
2720 |
my @serialitemsinformation; |
2727 |
my $dbh = C4::Context->dbh; |
2721 |
my $dbh = C4::Context->dbh; |
2728 |
foreach my $sid(@serialid){ |
2722 |
foreach my $sid(@serialid){ |
|
|
2723 |
my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber from items i natural join serialitems s where s.serialid=?"); |
2729 |
my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber from items i natural join serialitems s where s.serialid=?"); |
2724 |
$sth->execute($sid); |
2730 |
$sth->execute($sid); |
2725 |
my $line = $sth->fetchrow_hashref; |
2731 |
my $line = $sth->fetchrow_hashref; |
2726 |
if($line->{'countitems'}){ |
2732 |
if($line->{'countitems'}){ |
2727 |
push @serialitemsinformation,$line; |
2733 |
push @serialitemsinformation,$line; |
2728 |
} |
2734 |
} |
2729 |
} |
2735 |
} |
2730 |
return @serialitemsinformation; |
2736 |
return @serialitemsinformation; |
2731 |
|
|
|
2732 |
} |
2737 |
} |
|
|
2738 |
|
2733 |
=head2 findSerialsByStatus |
2739 |
=head2 findSerialsByStatus |
2734 |
|
2740 |
|
2735 |
@serials = findSerialsByStatus($status, $subscriptionid); |
2741 |
@serials = findSerialsByStatus($status, $subscriptionid); |
2736 |
- |
|
|