Lines 841-847
sub GetLatestSerials {
Link Here
|
841 |
my $dbh = C4::Context->dbh; |
841 |
my $dbh = C4::Context->dbh; |
842 |
|
842 |
|
843 |
# status = 2 is "arrived" |
843 |
# status = 2 is "arrived" |
844 |
my $strsth = "SELECT serialid,serialseq, status, planneddate, notes |
844 |
my $strsth = "SELECT serialid,serialseq, status, planneddate, publisheddate, notes |
845 |
FROM serial |
845 |
FROM serial |
846 |
WHERE subscriptionid = ? |
846 |
WHERE subscriptionid = ? |
847 |
AND (status =2 or status=4) |
847 |
AND (status =2 or status=4) |
Lines 853-858
sub GetLatestSerials {
Link Here
|
853 |
while ( my $line = $sth->fetchrow_hashref ) { |
853 |
while ( my $line = $sth->fetchrow_hashref ) { |
854 |
$line->{ "status" . $line->{status} } = 1; # fills a "statusX" value, used for template status select list |
854 |
$line->{ "status" . $line->{status} } = 1; # fills a "statusX" value, used for template status select list |
855 |
$line->{"planneddate"} = format_date( $line->{"planneddate"} ); |
855 |
$line->{"planneddate"} = format_date( $line->{"planneddate"} ); |
|
|
856 |
$line->{"publisheddate"} = format_date( $line->{"publisheddate"} ); |
856 |
push @serials, $line; |
857 |
push @serials, $line; |
857 |
} |
858 |
} |
858 |
|
859 |
|