|
Lines 1796-1859
this function selects missing issues on database - where serial.status = MISSING
Link Here
|
| 1796 |
|
1796 |
|
| 1797 |
return : |
1797 |
return : |
| 1798 |
the issuelist as an array of hash refs. Each element of this array contains |
1798 |
the issuelist as an array of hash refs. Each element of this array contains |
| 1799 |
name,title,planneddate,serialseq,serial.subscriptionid from tables : subscription, serial & biblio |
1799 |
name,title,issn,planneddate,serialseq,serial.subscriptionid from tables : subscription, serial & biblio |
| 1800 |
|
1800 |
|
| 1801 |
=cut |
1801 |
=cut |
| 1802 |
|
1802 |
|
| 1803 |
sub GetLateOrMissingIssues { |
1803 |
sub GetLateOrMissingIssues { |
| 1804 |
my ( $supplierid, $serialid, $order ) = @_; |
1804 |
my ( $supplierid, $serialid ) = @_; |
| 1805 |
|
1805 |
|
| 1806 |
return unless ( $supplierid or $serialid ); |
1806 |
return unless ( $supplierid or $serialid ); |
| 1807 |
|
1807 |
|
| 1808 |
my $dbh = C4::Context->dbh; |
1808 |
my $dbh = C4::Context->dbh; |
| 1809 |
|
1809 |
|
| 1810 |
my $sth; |
|
|
| 1811 |
my $byserial = ''; |
| 1812 |
if ($serialid) { |
| 1813 |
$byserial = "and serialid = " . $serialid; |
| 1814 |
} |
| 1815 |
if ($order) { |
| 1816 |
$order .= ", title"; |
| 1817 |
} else { |
| 1818 |
$order = "title"; |
| 1819 |
} |
| 1820 |
my $missing_statuses_string = join ',', (MISSING_STATUSES); |
1810 |
my $missing_statuses_string = join ',', (MISSING_STATUSES); |
|
|
1811 |
my @params = (EXPECTED, LATE, CLAIMED); |
| 1812 |
|
| 1813 |
my $query = qq{ |
| 1814 |
SELECT |
| 1815 |
serial.serialid, |
| 1816 |
serial.planneddate, |
| 1817 |
serial.serialseq, |
| 1818 |
serial.status, |
| 1819 |
serial.subscriptionid, |
| 1820 |
serial.claimdate, |
| 1821 |
serial.claims_count, |
| 1822 |
subscription.branchcode, |
| 1823 |
subscription.aqbooksellerid, |
| 1824 |
biblio.title, |
| 1825 |
biblioitems.issn, |
| 1826 |
aqbooksellers.name |
| 1827 |
FROM serial |
| 1828 |
LEFT JOIN subscription ON serial.subscriptionid = subscription.subscriptionid |
| 1829 |
LEFT JOIN biblio ON subscription.biblionumber = biblio.biblionumber |
| 1830 |
LEFT JOIN biblioitems ON subscription.biblionumber = biblioitems.biblionumber |
| 1831 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id |
| 1832 |
WHERE subscription.subscriptionid = serial.subscriptionid |
| 1833 |
AND ( |
| 1834 |
serial.STATUS IN ($missing_statuses_string) |
| 1835 |
OR ((serial.planneddate < now() AND serial.STATUS = ?) OR serial.STATUS = ? OR serial.STATUS = ?) |
| 1836 |
) |
| 1837 |
}; |
| 1821 |
if ($supplierid) { |
1838 |
if ($supplierid) { |
| 1822 |
$sth = $dbh->prepare( |
1839 |
$query .= qq{ |
| 1823 |
"SELECT |
1840 |
AND subscription.aqbooksellerid = ? |
| 1824 |
serialid, aqbooksellerid, name, |
1841 |
}; |
| 1825 |
biblio.title, biblioitems.issn, planneddate, serialseq, |
1842 |
push @params, $supplierid; |
| 1826 |
serial.status, serial.subscriptionid, claimdate, claims_count, |
1843 |
} |
| 1827 |
subscription.branchcode |
1844 |
if ($serialid) { |
| 1828 |
FROM serial |
1845 |
$query .= qq{ |
| 1829 |
LEFT JOIN subscription ON serial.subscriptionid=subscription.subscriptionid |
1846 |
AND serial.serialid = ? |
| 1830 |
LEFT JOIN biblio ON subscription.biblionumber=biblio.biblionumber |
1847 |
}; |
| 1831 |
LEFT JOIN biblioitems ON subscription.biblionumber=biblioitems.biblionumber |
1848 |
push @params, $serialid; |
| 1832 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id |
|
|
| 1833 |
WHERE subscription.subscriptionid = serial.subscriptionid |
| 1834 |
AND (serial.STATUS IN ($missing_statuses_string) OR ((planneddate < now() AND serial.STATUS = ?) OR serial.STATUS = ? OR serial.STATUS = ?)) |
| 1835 |
AND subscription.aqbooksellerid=$supplierid |
| 1836 |
$byserial |
| 1837 |
ORDER BY $order" |
| 1838 |
); |
| 1839 |
} else { |
| 1840 |
$sth = $dbh->prepare( |
| 1841 |
"SELECT |
| 1842 |
serialid, aqbooksellerid, name, |
| 1843 |
biblio.title, planneddate, serialseq, |
| 1844 |
serial.status, serial.subscriptionid, claimdate, claims_count, |
| 1845 |
subscription.branchcode |
| 1846 |
FROM serial |
| 1847 |
LEFT JOIN subscription ON serial.subscriptionid=subscription.subscriptionid |
| 1848 |
LEFT JOIN biblio ON subscription.biblionumber=biblio.biblionumber |
| 1849 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id |
| 1850 |
WHERE subscription.subscriptionid = serial.subscriptionid |
| 1851 |
AND (serial.STATUS IN ($missing_statuses_string) OR ((planneddate < now() AND serial.STATUS = ?) OR serial.STATUS = ? OR serial.STATUS = ?)) |
| 1852 |
$byserial |
| 1853 |
ORDER BY $order" |
| 1854 |
); |
| 1855 |
} |
1849 |
} |
| 1856 |
$sth->execute( EXPECTED, LATE, CLAIMED ); |
1850 |
$query .= q{ |
|
|
1851 |
ORDER BY biblio.title |
| 1852 |
}; |
| 1853 |
|
| 1854 |
my $sth = $dbh->prepare($query); |
| 1855 |
$sth->execute(@params); |
| 1856 |
|
| 1857 |
my @issuelist; |
1857 |
my @issuelist; |
| 1858 |
while ( my $line = $sth->fetchrow_hashref ) { |
1858 |
while ( my $line = $sth->fetchrow_hashref ) { |
| 1859 |
|
1859 |
|
| 1860 |
- |
|
|