Merge remote branch 'kc/new/bug_6058' into kcmaster

This commit is contained in:
Chris Cormack 2011-04-06 15:35:28 +12:00
commit 5bdfefc7e1
2 changed files with 5 additions and 0 deletions

View file

@ -961,6 +961,10 @@ sub ModOrder {
my $dbh = C4::Context->dbh;
my @params;
# update uncertainprice to an integer, just in case (under FF, checked boxes have the value "ON" by default)
$orderinfo->{uncertainprice}=1 if $orderinfo->{uncertainprice};
# delete($orderinfo->{'branchcode'});
# the hash contains a lot of entries not in aqorders, so get the columns ...
my $sth = $dbh->prepare("SELECT * FROM aqorders LIMIT 1;");

View file

@ -152,6 +152,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
# get CGI parameters
my $orderinfo = $input->Vars;
$orderinfo->{'list_price'} ||= 0;
$orderinfo->{'uncertainprice'} ||= 0;
#my $ordernumber = $input->param('ordernumber');
#my $basketno = $input->param('basketno');
#my $booksellerid = $input->param('booksellerid');