|
Link Here
|
| 69 |
); |
69 |
); |
| 70 |
|
70 |
|
| 71 |
#parameters: |
71 |
#parameters: |
| 72 |
my $booksellerid = $input->param('booksellerid'); |
72 |
my $booksellerid = scalar $input->param('booksellerid'); |
| 73 |
my $basketno = $input->param('basketno'); |
73 |
my $basketno = scalar $input->param('basketno'); |
| 74 |
my $basket; |
74 |
my $basket; |
| 75 |
my $op = $input ->param('op'); |
75 |
my $op = scalar $input->param('op'); |
| 76 |
my $is_an_edit= $input ->param('is_an_edit'); |
76 |
my $is_an_edit = scalar $input->param('is_an_edit'); |
| 77 |
|
77 |
|
| 78 |
if ( $op eq 'add_form' ) { |
78 |
if ( $op eq 'add_form' ) { |
| 79 |
my @contractloop; |
79 |
my @contractloop; |
|
Link Here
|
| 137 |
if ( $is_an_edit ) { |
137 |
if ( $is_an_edit ) { |
| 138 |
ModBasketHeader( |
138 |
ModBasketHeader( |
| 139 |
$basketno, |
139 |
$basketno, |
| 140 |
$input->param('basketname'), |
140 |
scalar $input->param('basketname'), |
| 141 |
$input->param('basketnote'), |
141 |
scalar $input->param('basketnote'), |
| 142 |
$input->param('basketbooksellernote'), |
142 |
scalar $input->param('basketbooksellernote'), |
| 143 |
$input->param('basketcontractnumber') || undef, |
143 |
scalar $input->param('basketcontractnumber') || undef, |
| 144 |
$input->param('basketbooksellerid'), |
144 |
scalar $input->param('basketbooksellerid'), |
| 145 |
$input->param('deliveryplace'), |
145 |
scalar $input->param('deliveryplace'), |
| 146 |
$input->param('billingplace'), |
146 |
scalar $input->param('billingplace'), |
| 147 |
$input->param('is_standing') ? 1 : undef, |
147 |
scalar $input->param('is_standing') ? 1 : undef, |
| 148 |
); |
148 |
); |
| 149 |
} else { #New basket |
149 |
} else { #New basket |
| 150 |
$basketno = NewBasket( |
150 |
$basketno = NewBasket( |
| 151 |
$booksellerid, |
151 |
$booksellerid, |
| 152 |
$loggedinuser, |
152 |
$loggedinuser, |
| 153 |
$input->param('basketname'), |
153 |
scalar $input->param('basketname'), |
| 154 |
$input->param('basketnote'), |
154 |
scalar $input->param('basketnote'), |
| 155 |
$input->param('basketbooksellernote'), |
155 |
scalar $input->param('basketbooksellernote'), |
| 156 |
$input->param('basketcontractnumber') || undef, |
156 |
scalar $input->param('basketcontractnumber') || undef, |
| 157 |
$input->param('deliveryplace'), |
157 |
scalar $input->param('deliveryplace'), |
| 158 |
$input->param('billingplace'), |
158 |
scalar $input->param('billingplace'), |
| 159 |
$input->param('is_standing') ? 1 : undef, |
159 |
scalar $input->param('is_standing') ? 1 : undef, |
| 160 |
); |
160 |
); |
| 161 |
} |
161 |
} |
| 162 |
print $input->redirect('basket.pl?basketno='.$basketno); |
162 |
print $input->redirect('basket.pl?basketno='.$basketno); |
| 163 |
- |
|
|