=cut
-use strict;
-use warnings;
+use Modern::Perl;
use Carp;
use C4::Auth;
$total = $total + ( $order->{ecost_tax_excluded} * $order->{quantity} );
}
}
- $total .= " " . ($bookseller->invoiceprice // 0);
return $total;
}
}
}
- $ord->{itemtype} = ( $ord->{itemtype} and $biblioitem->itemtype ) ? Koha::ItemTypes->find( $biblioitem->itemtype )->description : undef;
+ my $itemtype = ( $ord->{itemtype} and $biblioitem->itemtype )
+ ? Koha::ItemTypes->find( $biblioitem->itemtype )
+ : undef;
+ $ord->{itemtype} = $itemtype ? $itemtype->description : undef;
+
$ord->{en} = $en ? $en : undef;
$ord->{edition} = $edition ? $edition : undef;
my $baskets = GetBasketsByBasketgroup($basketgroupid);
my $ean = get_edifact_ean();
- for my $basket ( @{$baskets} ) {
- create_edi_order( { ean => $ean, basketno => $basket->{basketno}, } );
+ if($ean) {
+ for my $basket ( @{$baskets} ) {
+ create_edi_order( { ean => $ean, basketno => $basket->{basketno}, } );
+ }
+ } else {
+ my $booksellerid = $input->param('booksellerid') || 0;
+ print $input->redirect('/cgi-bin/koha/acqui/basketgroup.pl?booksellerid=' .
+ $booksellerid .
+ '&message=No%20EDIFACT%20Setup');
}
return;
}
# - display : display the list of all basketgroups for a vendor
my $booksellerid = $input->param('booksellerid');
$template->param(booksellerid => $booksellerid);
+my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
+
+my $schema = Koha::Database->new()->schema();
+my $rs = $schema->resultset('VendorEdiAccount')->search(
+ { vendor_id => $booksellerid, } );
+$template->param( ediaccount => ($rs->count > 0));
if ( $op eq "add" ) {
#
} elsif ( $op eq 'ediprint') {
my $basketgroupid = $input->param('basketgroupid');
- generate_edifact_orders( $basketgroupid );
- exit;
+ if ($template->param( 'ediaccount' )) {
+ generate_edifact_orders( $basketgroupid );
+ exit;
+ } else {
+ $template->param('NoEDIMessage' => 1);
+ my $basketgroups = &GetBasketgroups($booksellerid);
+ my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
+ my $baskets = &GetBasketsByBookseller($booksellerid);
+
+ displaybasketgroups($basketgroups, $bookseller, $baskets);
+ }
}else{
# no param : display the list of all basketgroups for a given vendor
my $basketgroups = &GetBasketgroups($booksellerid);