use C4::Items;
use C4::Output;
use Koha::Acquisition::Currencies;
+use Koha::Acquisition::Orders;
+use C4::Barcodes;
### "-------------------- addorder.pl ----------"
);
# get CGI parameters
-my $orderinfo = $input->Vars;
+my $orderinfo = $input->Vars;
$orderinfo->{'list_price'} ||= 0;
$orderinfo->{'uncertainprice'} ||= 0;
$orderinfo->{subscriptionid} ||= undef;
my $basket = GetBasket($basketno);
my $user = $input->remote_user;
+my $basketno=$$orderinfo{basketno};
+my $basket = Koha::Acquisition::Baskets->find( $basketno );
# create, modify or delete biblio
# create if $quantity>0 and $existing='no'
$orderinfo->{unitprice} = $orderinfo->{ecost} if not defined $orderinfo->{unitprice} or $orderinfo->{unitprice} eq '';
+ $orderinfo = C4::Acquisition::populate_order_with_prices(
+ {
+ order => $orderinfo,
+ booksellerid => $orderinfo->{booksellerid},
+ ordering => 1,
+ }
+ );
+
# if we already have $ordernumber, then it's an ordermodif
my $order = Koha::Acquisition::Order->new($orderinfo);
if ( $orderinfo->{ordernumber} ) {
ModOrderUsers( $orderinfo->{ordernumber}, @order_users );
}
else { # else, it's a new line
- $order->insert;
+ $order->store;
}
# now, add items if applicable
- if (C4::Context->preference('AcqCreateItem') eq 'ordering') {
+ if ($basket->effective_create_items eq 'ordering') {
my @tags = $input->multi_param('tag');
my @subfields = $input->multi_param('subfield');
push @{$itemhash{$itemid[$i]}->{'indicator'}},$indicator[$i];
}
foreach my $item (keys %itemhash){
-
my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
$itemhash{$item}->{'subfields'},
$itemhash{$item}->{'field_values'},
$itemhash{$item}->{'ind_tag'},
'ITEM');
my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
+ my ($barcodefield,$barcodesubfield) = GetMarcFromKohaField('items.barcode');
+ next unless ( defined $barcodefield && defined $barcodesubfield );
+ my $barcode = $record->subfield($barcodefield,$barcodesubfield) || '';
+ my $aBpref = C4::Context->preference('autoBarcode');
+ if( $barcode eq '' && $aBpref ne 'OFF'){
+ my $barcodeobj;
+ if ( $aBpref eq 'hbyymmincr'){
+ my ($homebranchfield,$homebranchsubfield) = GetMarcFromKohaField('items.homebranch');
+ my $homebranch = $record->subfield($homebranchfield,$homebranchsubfield);
+ $barcodeobj = C4::Barcodes->new($aBpref, $homebranch);
+ } else {
+ $barcodeobj = C4::Barcodes->new($aBpref);
+ }
+ $barcode = $barcodeobj->value();
+ $record->field($barcodefield)->delete_subfield( code => $barcodesubfield);
+ $record->field($barcodefield)->add_subfields($barcodesubfield => $barcode);
+ }
my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$$orderinfo{biblionumber});
$order->add_item($itemnumber);
}