Lines 190-195
my $user = $input->remote_user;
Link Here
|
190 |
# create if $quantity>=0 and $existing='no' |
190 |
# create if $quantity>=0 and $existing='no' |
191 |
# modify if $quantity>=0 and $existing='yes' |
191 |
# modify if $quantity>=0 and $existing='yes' |
192 |
# delete if $quantity has been set to 0 by the librarian |
192 |
# delete if $quantity has been set to 0 by the librarian |
|
|
193 |
# delete biblio if delbiblio has been set to 1 by the librarian |
193 |
my $bibitemnum; |
194 |
my $bibitemnum; |
194 |
if ( $orderinfo->{quantity} ne '0' ) { |
195 |
if ( $orderinfo->{quantity} ne '0' ) { |
195 |
#TODO:check to see if biblio exists |
196 |
#TODO:check to see if biblio exists |
Lines 270-275
if ( $orderinfo->{quantity} ne '0' ) {
Link Here
|
270 |
else { # qty=0, delete the line |
271 |
else { # qty=0, delete the line |
271 |
my $biblionumber = $input->param('biblionumber'); |
272 |
my $biblionumber = $input->param('biblionumber'); |
272 |
DelOrder( $biblionumber, $$orderinfo{ordernumber} ); |
273 |
DelOrder( $biblionumber, $$orderinfo{ordernumber} ); |
|
|
274 |
if ($orderinfo->{delbiblio} == 1){ |
275 |
DelBiblio($biblionumber) if (C4::Items::GetItemsCount($biblionumber) == 0 && CountBiblioInOrders($biblionumber) <= 1); |
276 |
} |
273 |
} |
277 |
} |
274 |
my $basketno=$$orderinfo{basketno}; |
278 |
my $basketno=$$orderinfo{basketno}; |
275 |
my $booksellerid=$$orderinfo{booksellerid}; |
279 |
my $booksellerid=$$orderinfo{booksellerid}; |