gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adding lateorders view for 2.2 release. 

getting it from HEAD.
ADDING doNotPrint features for columns that shouldnot be printed.
This commit is contained in:
hdl 2005-12-13 10:44:42 +00:00
parent baa8fa21f0
commit 3d1e285d5f
2 changed files with 179 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
acqui/lateorders.pl Executable file
View File

@ -0,0 +1,74 @@
#!/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 );
$template->param(Supplier=>$supplierlist{$supplierid}) if ($supplierid);
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);
my $total;
foreach my $lateorder (@lateorders){
$total+=$lateorder->{subtotal};
}
$template->param(delay=>$delay) if ($delay);
$template->param(
CGIbranch => $CGIbranch,
CGIsupplier => $CGIsupplier,
lateorders => \@lateorders,
total=>$total,
);
output_html_with_http_headers $query, $cookie, $template->output;

105
koha-tmpl/intranet-tmpl/default/en/acqui/lateorders.tmpl Normal file
View File

@ -0,0 +1,105 @@
<!-- TMPL_INCLUDE NAME="acquisitions-top.inc" -->
<!--------------------------MAIN BODY OF PAGE-------------------------->
<div id="mainbloc">
<h1 class="acquisition"><!-- TMPL_IF name="Supplier" --><!-- TMPL_VAR name="Supplier" --> : <!--/TMPL_IF -->Late issues</h1>
<table>
<tr>
<th class="acquisition doNotPrint">Supplier</th>
<th class="acquisition">Order Date</th>
<th class="acquisition">Ordered for</th>
<th class="acquisition doNotPrint">Including Basket</th>
<th class="acquisition">Book information</th>
<th class="acquisition doNotPrint">Branch</th>
<th class="acquisition doNotPrint">Estimated Unit Price</th>
<th class="acquisition">Retailer Catalogue Unit Price</th>
<th class="acquisition">Quantity</th>
<th class="acquisition">Total cost</th>
<th class="acquisition doNotPrint">Budget</th>
<th class="acquisition doNotPrint">&nbsp;</th>
</tr>
<tr class="doNotPrint">
<form action="lateorders.pl" method="post">
<td class="doNotPrint">
<!-- TMPL_VAR name="CGIsupplier" -->
</td>
<td> &nbsp;</td>
<td align="center" class="doNotPrint">
<input align="right" size="4" maxlength="3" type="text" name="delay" value="<!--TMPL_VAR Name="delay" -->" > days
</td>
<td colspan="2">
&nbsp;
</td>
<td class="doNotPrint">
<!-- TMPL_VAR name="CGIbranch" -->
</td>
<td colspan="5">
&nbsp;
</td>
<td class="doNotPrint">
<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 class="doNotPrint">
<!-- TMPL_VAR name="supplier" -->
</td>
<td>
<!-- TMPL_VAR name="orderdate" -->
</td>
<td class="number" align="right">
<!-- TMPL_VAR name="latesince" -->
</td>
<td align="center" class="doNotPrint">
<!-- TMPL_VAR name="basketno" -->
</td>
<td >
<b><!-- TMPL_VAR name="title" --></b>
<!-- TMPL_IF name="author" --><br/><i>Author:</i> <!-- TMPL_VAR NAME="author" --><!-- /TMPL_IF -->
<!-- TMPL_IF name="publisher" --><br/><i>Published by:</i> <!-- TMPL_VAR NAME="publisher" --><!-- TMPL_IF name="publicationyear" --><i> in </i><!-- TMPL_VAR name="publicationyear" --><!-- /TMPL_IF --><!-- /TMPL_IF -->
</td>
<td class="doNotPrint">
<!-- TMPL_VAR name="branch" -->
</td>
<td align="right" class="doNotPrint">
<!-- TMPL_VAR name="unitpricelib" -->
</td>
<td align="right">
<!-- TMPL_VAR name="unitpricesupplier" -->
</td>
<td align="right">
<!-- TMPL_VAR name="quantity" -->
</td>
<td align="right">
<!-- TMPL_VAR name="subtotal" -->
</td>
<td class="doNotPrint">
<!-- TMPL_VAR name="budget" -->
</td>
<td class="doNotPrint">
&nbsp;
</td>
</tr>
<!-- /TMPL_LOOP -->
<tr>
<th class="acquisition">
Total
</th>
<th class="acquisition" colspan="2">
&nbsp;
</th>
<th class="acquisition" class="doNotPrint"> &nbsp;</th>
<th class="acquisition" colspan="5">
&nbsp;
</th>
<th class="acquisition">
<!-- TMPL_VAR name="total" -->
</th>
</tr>
</table>
</div>
<!-- TMPL_INCLUDE NAME="acquisitions-bottom.inc" -->