table serialitems was not used when getting serialinformation.
---
C4/Serials.pm | 17 +++++++++--------
1 files changed, 9 insertions(+), 8 deletions(-)
diff --git a/C4/Serials.pm b/C4/Serials.pm
index 4bb4716..870fc07 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -256,17 +256,18 @@ sub GetSerialInformation {
my $data = $rq->fetchrow_hashref;
# create item information if we have serialsadditems for this subscription
if ( $data->{'serialsadditems'} ) {
- if ( $data->{'itemnumber'} ) {
- my @itemnumbers = split /,/, $data->{'itemnumber'};
- foreach my $itemnum (@itemnumbers) {
-
+ my $queryitem=$dbh->prepare("SELECT itemnumber from serialitems where
serialid=?");
+ $queryitem->execute($serialid);
+ my $itemnumbers=$queryitem->fetchall_arrayref([0]);
+ if (scalar(@$itemnumbers)>0){
+ foreach my $itemnum (@$itemnumbers) {
#It is ASSUMED that GetMarcItem ALWAYS WORK...
#Maybe GetMarcItem should return values on failure
- $debug and warn "itemnumber :$itemnum, bibnum
:".$data->{'biblionumber'};
+ $debug and warn "itemnumber :$itemnum->[0], bibnum
:".$data->{'biblionumber'};
my $itemprocessed =
- PrepareItemrecordDisplay( $data->{'biblionumber'}, $itemnum
);
- $itemprocessed->{'itemnumber'} = $itemnum;
- $itemprocessed->{'itemid'} = $itemnum;
+ PrepareItemrecordDisplay( $data->{'biblionumber'},
$itemnum->[0] );
+ $itemprocessed->{'itemnumber'} = $itemnum->[0];
+ $itemprocessed->{'itemid'} = $itemnum->[0];
$itemprocessed->{'serialid'} = $serialid;
$itemprocessed->{'biblionumber'} = $data->{'biblionumber'};
push @{ $data->{'items'} }, $itemprocessed;
--
1.5.4.3
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
