[Koha-patches] [PATCH] orderreceive cleanup
Joe Atzberger
joe.atzberger at liblime.com
Wed Apr 8 00:37:49 CEST 2009
Convert to GetBranchesLoop, remove unused variables.
Pull out params that are assigned the same value in each loop and just assign them once.
Pull out params that are assigned the same value in each half of the conditional, and just assign them unconditionally.
Remove useless call of $template->param($count).
---
acqui/orderreceive.pl | 100 ++++++++------------
.../prog/en/modules/acqui/orderreceive.tmpl | 4 +-
2 files changed, 40 insertions(+), 64 deletions(-)
diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl
index 313a384..c13eda3 100755
--- a/acqui/orderreceive.pl
+++ b/acqui/orderreceive.pl
@@ -57,6 +57,7 @@ The biblionumber of this order.
=cut
use strict;
+# use warnings; # FIXME
use CGI;
use C4::Context;
use C4::Koha; # GetKohaAuthorisedValues GetItemTypes
@@ -75,7 +76,7 @@ my $dbh = C4::Context->dbh;
my $search = $input->param('receive');
my $invoice = $input->param('invoice');
my $freight = $input->param('freight');
-my $biblionumber = $input->param('biblionumber');
+my $biblionumber = $input->param('biblionumber');
my $datereceived = C4::Dates->new($input->param('datereceived'),'iso') || C4::Dates->new();
my $catview = $input->param('catview');
my $gst = $input->param('gst');
@@ -98,67 +99,50 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
debug => 1,
}
);
-$template->param($count);
if ( $count == 1 ) {
my (@itemtypesloop, at locationloop, at ccodeloop);
my $itemtypes = GetItemTypes;
foreach my $thisitemtype (sort keys %$itemtypes) {
- my %row = (
- value => $thisitemtype,
- description => $itemtypes->{$thisitemtype}->{'description'},
- selected => ($thisitemtype eq $results[0]->{itemtype}), # ifdef itemtype @ bibliolevel, use it as default for item level.
- );
- push @itemtypesloop, \%row;
+ push @itemtypesloop, {
+ value => $thisitemtype,
+ description => $itemtypes->{$thisitemtype}->{'description'},
+ selected => ($thisitemtype eq $results[0]->{itemtype}), # ifdef itemtype @ bibliolevel, use it as default for item level.
+ };
}
-
my $locs = GetKohaAuthorisedValues( 'items.location' );
foreach my $thisloc (sort keys %$locs) {
- my $row = {
- value => $thisloc,
- description => $locs->{$thisloc},
- };
- push @locationloop, $row;
+ push @locationloop, {
+ value => $thisloc,
+ description => $locs->{$thisloc},
+ };
}
- my $ccodes= GetKohaAuthorisedValues( 'items.ccode' );
+ my $ccodes = GetKohaAuthorisedValues( 'items.ccode' );
foreach my $thisccode (sort keys %$ccodes) {
- push @ccodeloop, {
- value => $thisccode,
- description => $ccodes->{$thisccode},
- };
+ push @ccodeloop, {
+ value => $thisccode,
+ description => $ccodes->{$thisccode},
+ };
}
- $template->param(itemtypeloop => \@itemtypesloop ,
- locationloop => \@locationloop,
- ccodeloop => \@ccodeloop,
- itype => C4::Context->preference('item-level_itypes'),
- );
+ $template->param(
+ itemtypeloop => \@itemtypesloop,
+ locationloop => \@locationloop,
+ ccodeloop => \@ccodeloop,
+ branchloop => GetBranchesLoop($order->{branchcode}),
+ itype => C4::Context->preference('item-level_itypes'),
+ );
- my $onlymine=C4::Context->preference('IndependantBranches') &&
- C4::Context->userenv &&
- C4::Context->userenv->{flags} !=1 &&
- C4::Context->userenv->{branch};
- my $branches = GetBranches($onlymine);
- my @branchloop;
- foreach my $thisbranch ( sort keys %$branches ) {
- my %row = (
- value => $thisbranch,
- description => $branches->{$thisbranch}->{'branchname'},
- );
- $row{'selected'} = 1 if( $thisbranch eq $order->{branchcode}) ;
- push @branchloop, \%row;
- }
-
my $barcode;
# See whether barcodes should be automatically allocated.
# FIXME : only incremental is implemented here, and it creates a race condition.
- #
+ # FIXME : Same problems as other autoBarcode: breaks if any unexpected data is encountered (like alphanumerical barcode)
+ # FIXME : Fails when >1 items are added (via js).
if ( C4::Context->preference('autoBarcode') eq 'incremental' ) {
my $sth = $dbh->prepare("Select max(barcode) from items");
$sth->execute;
my $data = $sth->fetchrow_hashref;
$barcode = $results[0]->{'barcode'} + 1;
- $sth->finish;
}
if ( $results[0]->{'quantityreceived'} == 0 ) {
@@ -169,17 +153,12 @@ if ( $count == 1 ) {
}
# $results[0]->{'copyrightdate'} = format_date( $results[0]->{'copyrightdate'} ); # this usu fails.
$template->param(
- branchloop => \@branchloop,
count => 1,
biblionumber => $results[0]->{'biblionumber'},
ordernumber => $results[0]->{'ordernumber'},
biblioitemnumber => $results[0]->{'biblioitemnumber'},
supplierid => $results[0]->{'booksellerid'},
- freight => $freight,
- gst => $gst,
catview => ( $catview ne 'yes' ? 1 : 0 ),
- name => $bookseller->{'name'},
- date => format_date($date),
title => $results[0]->{'title'},
author => $results[0]->{'author'},
copyrightdate => $results[0]->{'copyrightdate'},
@@ -194,33 +173,30 @@ if ( $count == 1 ) {
rrp => $results[0]->{'rrp'},
ecost => $results[0]->{'ecost'},
unitprice => $results[0]->{'unitprice'},
- invoice => $invoice,
- datereceived => $datereceived->output(),
- datereceived_iso => $datereceived->output('iso'),
);
}
else {
my @loop;
for ( my $i = 0 ; $i < $count ; $i++ ) {
my %line = %{ $results[$i] };
-
- $line{invoice} = $invoice;
- $line{datereceived} = $datereceived->output();
- $line{freight} = $freight;
- $line{gst} = $gst;
$line{title} = $results[$i]->{'title'};
$line{author} = $results[$i]->{'author'};
- $line{supplierid} = $supplierid;
push @loop, \%line;
}
$template->param(
- loop => \@loop,
- date => format_date($date),
- datereceived => $datereceived->output(),
- name => $bookseller->{'name'},
- supplierid => $supplierid,
- invoice => $invoice,
+ loop => \@loop,
+ supplierid => $supplierid,
);
-
}
+
+$template->param(
+ date => format_date($date),
+ datereceived => $datereceived->output(),
+ datereceived_iso => $datereceived->output('iso'),
+ invoice => $invoice,
+ name => $bookseller->{'name'},
+ freight => $freight,
+ gst => $gst,
+);
+
output_html_with_http_headers $input, $cookie, $template->output;
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tmpl
index 74a16d5..52b17dc 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tmpl
@@ -52,9 +52,9 @@ fieldset.rows .itemblock fieldset.action { padding:.5em; }
<input type="text" size="20" name="barcode" id="barcode1" value="<!-- TMPL_VAR NAME="barcode" -->" /></li>
<li> <label for="homebranch1">Home library: </label>
<select name="homebranch" id="homebranch1"> <!-- TMPL_LOOP name="branchloop" -->
- <!-- TMPL_IF NAME="selected" --><option value="<!-- TMPL_VAR NAME="value" -->" selected="selected"><!-- TMPL_VAR NAME="description" --></option>
+ <!-- TMPL_IF NAME="selected" --><option value="<!-- TMPL_VAR NAME="value" -->" selected="selected"><!-- TMPL_VAR NAME="branchname" --></option>
<!-- TMPL_ELSE -->
- <option value="<!-- TMPL_VAR NAME="value" -->"><!-- TMPL_VAR NAME="description" --></option>
+ <option value="<!-- TMPL_VAR NAME="value" -->"><!-- TMPL_VAR NAME="branchname" --></option>
<!-- /TMPL_IF -->
<!-- /TMPL_LOOP -->
</select></li>
--
1.5.6.5
More information about the Koha-patches
mailing list