|
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 |
- |
|
|