|
Lines 2724-2747
sub _can_do_on_subscription {
Link Here
|
| 2724 |
} |
2724 |
} |
| 2725 |
return 0; |
2725 |
return 0; |
| 2726 |
} |
2726 |
} |
|
|
2727 |
|
| 2727 |
=head1 GetSerialItemsInformations |
2728 |
=head1 GetSerialItemsInformations |
|
|
2729 |
|
| 2730 |
@serialsitemsinformations = GetSerialItemsInformations (@serialid) |
| 2731 |
|
| 2732 |
return an array of specifique information of serials and serialitem a given array of serialid |
| 2733 |
|
| 2728 |
=cut |
2734 |
=cut |
|
|
2735 |
|
| 2729 |
sub GetSerialItemsInformations{ |
2736 |
sub GetSerialItemsInformations{ |
| 2730 |
my (@serialid)=@_; |
2737 |
my (@serialid)=@_; |
| 2731 |
my $i=0; |
2738 |
my @serialitemsinformation; |
| 2732 |
my @serialitemsinformation; |
2739 |
my $dbh = C4::Context->dbh; |
| 2733 |
my $dbh = C4::Context->dbh; |
2740 |
foreach my $sid(@serialid){ |
| 2734 |
foreach my $sid(@serialid){ |
|
|
| 2735 |
my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber from items i natural join serialitems s where s.serialid=?"); |
2741 |
my $sth = $dbh->prepare("select count(i.itemnumber) as countitems,s.itemnumber as itemnumber from items i natural join serialitems s where s.serialid=?"); |
| 2736 |
$sth->execute($sid); |
2742 |
$sth->execute($sid); |
| 2737 |
my $line = $sth->fetchrow_hashref; |
2743 |
my $line = $sth->fetchrow_hashref; |
| 2738 |
if($line->{'countitems'}){ |
2744 |
if($line->{'countitems'}){ |
| 2739 |
push @serialitemsinformation,$line; |
2745 |
push @serialitemsinformation,$line; |
| 2740 |
} |
2746 |
} |
| 2741 |
} |
2747 |
} |
| 2742 |
return @serialitemsinformation; |
2748 |
return @serialitemsinformation; |
| 2743 |
|
|
|
| 2744 |
} |
2749 |
} |
|
|
2750 |
|
| 2745 |
=head2 findSerialsByStatus |
2751 |
=head2 findSerialsByStatus |
| 2746 |
|
2752 |
|
| 2747 |
@serials = findSerialsByStatus($status, $subscriptionid); |
2753 |
@serials = findSerialsByStatus($status, $subscriptionid); |
| 2748 |
- |
|
|