=cut
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Contract qw/GetContracts/;
use Koha::Acquisition::Booksellers;
+use Koha::Acquisition::Baskets;
+use Koha::AdditionalFields;
my $input = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
my $booksellerid = $input->param('booksellerid');
my $basketno = $input->param('basketno');
my $basket;
-my $op = $input ->param('op');
-my $is_an_edit= $input ->param('is_an_edit');
+my $op = $input->param('op');
+my $is_an_edit = $input->param('is_an_edit');
+
+$template->param( available_additional_fields => [ Koha::AdditionalFields->search( { tablename => 'aqbasket' } ) ] );
if ( $op eq 'add_form' ) {
my @contractloop;
}
}
$template->param( is_an_edit => 1);
+ $template->param(
+ additional_field_values => { map {
+ $_->field->id => $_->value
+ } Koha::Acquisition::Baskets->find($basketno)->additional_field_values->as_list },
+ );
} else {
#new basket
my $basket;
$template->param(contractloop => \@contractloop,
basketcontractnumber => $basket->{'contractnumber'});
}
- my @booksellers = Koha::Acquisition::Booksellers->search;
+ my @booksellers = Koha::Acquisition::Booksellers->search(
+ undef,
+ { order_by => { -asc => 'name' } } );
+
$template->param( add_form => 1,
basketname => $basket->{'basketname'},
basketnote => $basket->{'note'},
if ( $is_an_edit ) {
ModBasketHeader(
$basketno,
- $input->param('basketname'),
- $input->param('basketnote'),
- $input->param('basketbooksellernote'),
- $input->param('basketcontractnumber') || undef,
- $input->param('basketbooksellerid'),
- $input->param('deliveryplace'),
- $input->param('billingplace'),
- $input->param('is_standing') ? 1 : undef,
+ scalar $input->param('basketname'),
+ scalar $input->param('basketnote'),
+ scalar $input->param('basketbooksellernote'),
+ scalar $input->param('basketcontractnumber') || undef,
+ scalar $input->param('basketbooksellerid'),
+ scalar $input->param('deliveryplace'),
+ scalar $input->param('billingplace'),
+ scalar $input->param('is_standing') ? 1 : undef,
+ scalar $input->param('create_items')
);
} else { #New basket
$basketno = NewBasket(
$booksellerid,
$loggedinuser,
- $input->param('basketname'),
- $input->param('basketnote'),
- $input->param('basketbooksellernote'),
- $input->param('basketcontractnumber') || undef,
- $input->param('deliveryplace'),
- $input->param('billingplace'),
- $input->param('is_standing') ? 1 : undef,
+ scalar $input->param('basketname'),
+ scalar $input->param('basketnote'),
+ scalar $input->param('basketbooksellernote'),
+ scalar $input->param('basketcontractnumber') || undef,
+ scalar $input->param('deliveryplace'),
+ scalar $input->param('billingplace'),
+ scalar $input->param('is_standing') ? 1 : undef,
+ scalar $input->param('create_items')
);
}
+
+ my @additional_fields;
+ my $basket_fields = Koha::AdditionalFields->search({ tablename => 'aqbasket' });
+ while ( my $field = $basket_fields->next ) {
+ my $value = $input->param('additional_field_' . $field->id);
+ push @additional_fields, {
+ id => $field->id,
+ value => $value,
+ };
+ }
+ Koha::Acquisition::Baskets->find($basketno)->set_additional_fields(\@additional_fields);
+
print $input->redirect('basket.pl?basketno='.$basketno);
exit 0;
}