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