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