&ordersearch &histsearch
&modorder &getsingleorder &invoice &receiveorder
&updaterecorder &newordernum
+ &getsupplierlistwithlateorders
+ &getlateorders
&bookfunds &curconvert &getcurrencies &bookfundbreakdown
&updatecurrencies &getcurrency
return(scalar(@results),@results);
}
+=item getsupplierlistwithlateorders
+
+ %results = &getsupplierlistwithlateorders;
+
+Searches for suppliers with late orders.
+
+=cut
+#'
+sub getsupplierlistwithlateorders {
+ my $delay=shift;
+ my $dbh = C4::Context->dbh;
+#FIXME NOT quite sure that this operation is valid for DBMs different from Mysql, HOPING so
+#should be tested with other DBMs
+
+ my $strsth;
+ my$dbdriver = C4::Context->config("db_scheme")||"mysql";
+ if ($dbdriver eq "mysql"){
+ $strsth="SELECT DISTINCT aqbasket.booksellerid, aqbooksellers.name
+ FROM aqorders, aqbasket
+ LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
+ WHERE aqorders.basketno = aqbasket.basketno AND
+ (closedate < DATE_SUB(CURDATE( ),INTERVAL $delay DAY) AND (datereceived = '' or datereceived is null))
+ ";
+ }else {
+ $strsth="SELECT DISTINCT aqbasket.booksellerid, aqbooksellers.name
+ FROM aqorders, aqbasket
+ LEFT JOIN aqbooksellers ON aqbasket.aqbooksellerid = aqbooksellers.id
+ WHERE aqorders.basketno = aqbasket.basketno AND
+ (closedate < (CURDATE( )-(INTERVAL $delay DAY))) AND (datereceived = '' or datereceived is null))
+ ";
+ }
+ warn "C4::Acquisition getsupplierlistwithlateorders : ".$strsth;
+ my $sth = $dbh->prepare($strsth);
+ $sth->execute;
+ my %supplierlist;
+ while (my ($id,$name) = $sth->fetchrow) {
+ $supplierlist{$id} = $name;
+ }
+ return %supplierlist;
+}
+
+=item getlateorders
+
+ %results = &getlateorders;
+
+Searches for suppliers with late orders.
+
+=cut
+#'
+sub getlateorders {
+ my $delay=shift;
+ my $supplierid = shift;
+ my $branch = shift;
+
+ my $dbh = C4::Context->dbh;
+#BEWARE, order of parenthesis and LEFT JOIN is important for speed
+ my $strsth ="SELECT DISTINCT aqbasket.basketno,
+ DATE(aqbasket.closedate) as orderdate, aqorders.quantity, aqorders.unitprice,
+ aqbookfund.bookfundname as budget, aqorderbreakdown.branchcode as branch,
+ aqbooksellers.name as supplier,
+ biblio.title, biblio.author, biblioitems.publishercode as publisher,
+ DATEDIFF(DATE_SUB(CURDATE( ),INTERVAL $delay DAY),closedate) AS latesince
+ FROM
+ (
+ (aqorders LEFT JOIN biblio on biblio.biblionumber = aqorders.biblionumber) LEFT JOIN biblioitems on biblioitems.biblionumber=biblio.biblionumber
+ ) LEFT JOIN
+ (aqorderbreakdown LEFT JOIN aqbookfund on aqorderbreakdown.bookfundid = aqbookfund.bookfundid)
+ on aqorders.ordernumber = aqorderbreakdown.ordernumber,
+ aqbasket LEFT JOIN aqbooksellers ON aqbasket.booksellerid = aqbooksellers.id
+ WHERE aqorders.basketno = aqbasket.basketno AND
+ (closedate < DATE_SUB(CURDATE( ),INTERVAL $delay DAY) AND (datereceived = '' or datereceived is null))
+ ";
+ $strsth .= " AND aqbasket.booksellerid = $supplierid " if ($supplierid);
+ $strsth .= " AND aqorderbreakdown.branchcode like \'".$branch."\'" if ($branch);
+ $strsth .= " ORDER BY latesince,basketno,branch, supplier";
+ warn "C4::Acquisition : getlateorders SQL:".$strsth;
+ my $sth = $dbh->prepare($strsth);
+ $sth->execute;
+ my @results;
+ my $hilighted = 1;
+ while (my $data = $sth->fetchrow_hashref) {
+ $data->{hilighted}=$hilighted if ($hilighted>0);
+ push @results, $data;
+ $hilighted= -$hilighted;
+ }
+ $sth->finish;
+ return(scalar(@results),@results);
+}
+
# FIXME - Never used
sub getrecorders {
#gets all orders from a certain supplier, orders them alphabetically
#'
sub branches {
my $dbh = C4::Context->dbh;
- my $sth = $dbh->prepare("Select * from branches order by branchname");
+ my $sth;
+ if (C4::Context->preference("IndependantBranches") && (C4::Context->userenv->{flags}!=1)){
+ my $strsth ="Select * from branches ";
+ $strsth.= " WHERE branchcode = ".$dbh->quote(C4::Context->userenv->{branch});
+ $strsth.= " order by branchname";
+ warn "C4::Acquisition->branches : ".$strsth;
+ $sth=$dbh->prepare($strsth);
+ } else {
+ $sth = $dbh->prepare("Select * from branches order by branchname");
+ }
my @results = ();
$sth->execute();
--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Acquisition;
+use C4::Auth;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use HTML::Template;
+
+my $query = new CGI;
+my ($template, $loggedinuser, $cookie)
+= get_template_and_user({template_name => "acqui/lateorders.tmpl",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {acquisition => 1},
+ debug => 1,
+ });
+# my $title = $query->param('title');
+# my $ISSN = $query->param('ISSN');
+# my @subscriptions = getsubscriptions($title,$ISSN);
+
+my $supplierid = $query->param('supplierid');
+my $delay = $query->param('delay');
+my $branch = $query->param('branch');
+
+$delay =($delay?$delay:30);
+
+my %supplierlist = getsupplierlistwithlateorders($delay,$branch);
+my @select_supplier;
+push @select_supplier,"";
+foreach my $supplierid (keys %supplierlist){
+ push @select_supplier, $supplierid;
+}
+my $CGIsupplier=CGI::scrolling_list( -name => 'supplierid',
+ -values => \@select_supplier,
+ -default => $supplierid,
+ -labels => \%supplierlist,
+ -size => 1,
+ -multiple => 0 );
+
+my @select_branches;
+my %select_branches;
+push @select_branches,"";
+$select_branches{""}="";
+my ($count, @branches) = branches();
+#branches is IndependantBranches aware
+foreach my $branch (@branches){
+ push @select_branches, $branch->{branchcode};
+ $select_branches{$branch->{branchcode}}=$branch->{branchname};
+}
+my $CGIbranch=CGI::scrolling_list( -name => 'branch',
+ -values => \@select_branches,
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+my ($count, @lateorders) = getlateorders($delay,$supplierid,$branch);
+
+$template->param(delay=>$delay) if ($delay);
+$template->param(
+ CGIbranch => $CGIbranch,
+ CGIsupplier => $CGIsupplier,
+ lateorders => \@lateorders
+ );
+output_html_with_http_headers $query, $cookie, $template->output;
--- /dev/null
+<!-- TMPL_INCLUDE NAME="acquisitions-top.inc" -->
+<!--------------------------MAIN BODY OF PAGE-------------------------->
+<div id="mainbloc">
+ <h1 class="acquisition">Late issues</h1>
+ <table>
+ <tr>
+ <th class="acquisition">Supplier</th>
+ <th class="acquisition">Budget</th>
+ <th class="acquisition">Title</th>
+ <th class="acquisition">Author</th>
+ <th class="acquisition">Publisher</th>
+ <th class="acquisition">Branch</th>
+ <th class="acquisition">Order Date</th>
+ <th class="acquisition">Including Basket</th>
+ <th class="acquisition">Quantity</th>
+ <th class="acquisition">Unit Price</th>
+ <th class="acquisition">Late since</th>
+ <th class="acquisition"> </th>
+ </tr>
+ <tr>
+ <form action="lateorders.pl" method="post">
+ <td>
+ <!-- TMPL_VAR name="CGIsupplier" -->
+ </td>
+ <td colspan="4">
+
+ </td>
+ <td>
+ <!-- TMPL_VAR name="CGIbranch" -->
+ </td>
+ <td colspan="4">
+
+ </td>
+ <td>
+ <input type="text" name="delay" value="<!--TMPL_VAR Name="delay" -->"> days
+ </td>
+
+ <td>
+ <input type="submit" value="filter" class="button acquisition">
+ </td>
+ </form>
+ </tr>
+ <!-- TMPL_LOOP name="lateorders" -->
+ <!--TMPL_IF Name="hilighted" --> <tr class="hilighted"> <!--TMPL_ELSE--> <tr> <!-- /TMPL_IF -->
+ <td>
+ <!-- TMPL_VAR name="supplier" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="budget" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="title" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="author" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="publisher" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="branch" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="orderdate" -->
+ </td>
+ <td align="center">
+ <!-- TMPL_VAR name="basketno" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="quantity" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="unitprice" -->
+ </td>
+ <td>
+ <!-- TMPL_VAR name="latesince" -->
+ </td>
+ <td>
+
+ </td>
+ </tr>
+ <!-- /TMPL_LOOP -->
+ </table>
+</div>
+<!-- TMPL_INCLUDE NAME="acquisitions-bottom.inc" -->
+
projects / koha_gimpoz / commitdiff