Bug 6525: hold filled emails not going out

[koha_gimpoz] / circ / view_holdsqueue.pl

diff --git a/circ/view_holdsqueue.pl b/circ/view_holdsqueue.pl
index 668bdd1..3023cdf 100755 (executable)
--- a/circ/view_holdsqueue.pl
+++ b/circ/view_holdsqueue.pl
@@ -96,7 +96,13 @@ sub GetHoldsQueueItems {
        $sth->execute(@bind_params);
        my $items = [];
     while ( my $row = $sth->fetchrow_hashref ){
-               $row->{reservedate} = format_date($row->{reservedate});
+       $row->{reservedate} = format_date($row->{reservedate});
+       my $record = GetMarcBiblio($row->{biblionumber});
+    if ($record){
+        $row->{subtitle} = GetRecordValue('subtitle',$record,'')->[0]->{subfield};
+           $row->{parts} = GetRecordValue('parts',$record,'')->[0]->{subfield};
+           $row->{numbers} = GetRecordValue('numbers',$record,'')->[0]->{subfield};
+       }
         push @$items, $row;
     }
     return $items;