@@ -, +, @@ When receiving this message is displayed instead of the usual add item fields -- "This order is for a serial subscription. Items are added in the serial module." --- acqui/neworderempty.pl | 12 ++++++++---- acqui/orderreceive.pl | 8 +++++++- .../prog/en/modules/acqui/neworderempty.tt | 5 +++++ .../prog/en/modules/acqui/orderreceive.tt | 4 ++++ 4 files changed, 24 insertions(+), 5 deletions(-) --- a/acqui/neworderempty.pl +++ a/acqui/neworderempty.pl @@ -317,10 +317,14 @@ if (C4::Context->preference('AcqCreateItem') eq 'ordering' && !$ordernumber) { unless($marc) { $template->param('NoACQframework' => 1); } - $template->param( - AcqCreateItemOrdering => 1, - UniqueItemFields => C4::Context->preference('UniqueItemFields'), - ); + unless($subscriptionid){ + $template->param( + AcqCreateItemOrdering => 1, + UniqueItemFields => C4::Context->preference('UniqueItemFields'), + ); + } else { + $template->param( subscription => 1,); + } } # Get the item types list, but only if item_level_itype is YES. Otherwise, it will be in the item, no need to display it in the biblio my @itemtypes; --- a/acqui/orderreceive.pl +++ a/acqui/orderreceive.pl @@ -93,6 +93,8 @@ my $datereceived = $input->param('datereceived'); $datereceived = $datereceived ? C4::Dates->new($datereceived, 'iso') : C4::Dates->new(); my $bookseller = GetBookSellerFromId($booksellerid); +my $sub = GetOrder($ordernumber); +my $subscriptionid = $sub->{'subscriptionid'}; my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst')); my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0; my $results = SearchOrder($ordernumber,$search); @@ -121,10 +123,14 @@ if ( $count == 1 ) { my $AcqCreateItem = C4::Context->preference('AcqCreateItem'); if ($AcqCreateItem eq 'receiving') { - $template->param( + unless($subscriptionid){ + $template->param( AcqCreateItemReceiving => 1, UniqueItemFields => C4::Context->preference('UniqueItemFields'), ); + } else { + $template->param( subscription => 1,); + } } elsif ($AcqCreateItem eq 'ordering') { my $fw = ($acq_fw) ? 'ACQ' : ''; my @itemnumbers = GetItemnumbersFromOrder($order->{ordernumber}); --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt @@ -383,6 +383,11 @@ $(document).ready(function() [% END %][%# IF (AcqCreateItemOrdering) %] + [% IF (subscription) %] +

+ This order is for a serial subscription. Items are added in the serial module. +

+ [% END %]
Accounting Details
    --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt @@ -234,6 +234,10 @@ [% END %] + [% ELSIF (subscription) %] +

    + This order is for a serial subscription. Items are added in the serial module. +

    [% END %] --