projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
kohabug 2139 Fixes C4::Aquisition::NewOrder so that it saves the branchcode
[koha_gimpoz]
/
acqui
/
orderreceive.pl
diff --git
a/acqui/orderreceive.pl
b/acqui/orderreceive.pl
index
eaab7ee
..
313a384
100755
(executable)
--- a/
acqui/orderreceive.pl
+++ b/
acqui/orderreceive.pl
@@
-82,6
+82,7
@@
my $gst = $input->param('gst');
my @results = SearchOrder( $search, $supplierid, $biblionumber, $catview );
my $count = scalar @results;
my @results = SearchOrder( $search, $supplierid, $biblionumber, $catview );
my $count = scalar @results;
+my $order = GetOrder($search);
my $bookseller = GetBookSellerFromId( $results[0]->{'booksellerid'} );
my $bookseller = GetBookSellerFromId( $results[0]->{'booksellerid'} );
@@
-144,6
+145,7
@@
if ( $count == 1 ) {
value => $thisbranch,
description => $branches->{$thisbranch}->{'branchname'},
);
value => $thisbranch,
description => $branches->{$thisbranch}->{'branchname'},
);
+ $row{'selected'} = 1 if( $thisbranch eq $order->{branchcode}) ;
push @branchloop, \%row;
}
push @branchloop, \%row;
}