Lines 754-760
sub GetLatestSerials {
Link Here
|
754 |
my $dbh = C4::Context->dbh; |
754 |
my $dbh = C4::Context->dbh; |
755 |
|
755 |
|
756 |
# status = 2 is "arrived" |
756 |
# status = 2 is "arrived" |
757 |
my $strsth = "SELECT serialid,serialseq, status, planneddate, notes |
757 |
my $strsth = "SELECT serialid,serialseq, status, planneddate, notes, publisheddate |
758 |
FROM serial |
758 |
FROM serial |
759 |
WHERE subscriptionid = ? |
759 |
WHERE subscriptionid = ? |
760 |
AND (status =2 or status=4) |
760 |
AND (status =2 or status=4) |
Lines 766-771
sub GetLatestSerials {
Link Here
|
766 |
while ( my $line = $sth->fetchrow_hashref ) { |
766 |
while ( my $line = $sth->fetchrow_hashref ) { |
767 |
$line->{ "status" . $line->{status} } = 1; # fills a "statusX" value, used for template status select list |
767 |
$line->{ "status" . $line->{status} } = 1; # fills a "statusX" value, used for template status select list |
768 |
$line->{"planneddate"} = format_date( $line->{"planneddate"} ); |
768 |
$line->{"planneddate"} = format_date( $line->{"planneddate"} ); |
|
|
769 |
$line->{"publisheddate"} = format_date( $line->{"publisheddate"} ); |
769 |
push @serials, $line; |
770 |
push @serials, $line; |
770 |
} |
771 |
} |
771 |
|
772 |
|