@@ -, +, @@ and new functions when receiving. - Various fixes. - the first received itemtype has been set to the "previous item type" value (set in the subscription). - the first received has been made available. - the last received serial itemtype has been set to the "item type" value (set in the subscription). - 995$l is automatically prefilled. - the domain and/or origin and/or support fields are correctly displaying the authorized values configured in the syspref. --- C4/Items.pm | 4 ++++ C4/Serials.pm | 26 +++++++++++++++++++++- .../prog/en/modules/admin/preferences/serials.pref | 2 +- .../prog/en/modules/serials/subscription-add.tt | 2 +- serials/serials-edit.pl | 8 +------ 5 files changed, 32 insertions(+), 10 deletions(-) --- a/C4/Items.pm +++ a/C4/Items.pm @@ -3001,6 +3001,10 @@ sub PrepareItemrecordDisplay { push @authorised_values, $itemtype->{itemtype}; $authorised_lib{$itemtype->{itemtype}} = $itemtype->{translated_description}; } + if ($defaultvalues && $defaultvalues->{'itemtype'}) { + $defaultvalue = $defaultvalues->{'itemtype'}; + } + #---- class_sources } elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) { push @authorised_values, "" unless ( $tagslib->{$tag}->{$subfield}->{mandatory} ); --- a/C4/Serials.pm +++ a/C4/Serials.pm @@ -66,7 +66,7 @@ BEGIN { @EXPORT = qw( &NewSubscription &ModSubscription &DelSubscription &GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber - &SearchSubscriptions + &SearchSubscriptions &GetItemnumberFromSerialId &GetFullSubscriptionsFromBiblionumber &GetFullSubscription &ModSubscriptionHistory &HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire &GetSubscriptionHistoryFromSubscriptionId @@ -183,6 +183,30 @@ sub GetSerialStatusFromSerialId { return $dbh->prepare($query); } +=head2 GetItemnumberFromSerialId + +$itemnumber = GetSerialInformation($serialid); +this function returns the itemnumber, given a serialid in parameter +return : itemnumber + +=cut + +sub GetItemnumberFromSerialId { + my ($serialid) = @_; + my $dbh = C4::Context->dbh; + my $query = qq| + SELECT itemnumber + FROM serialitems + WHERE serialid = ? + |; + my $sth = $dbh->prepare($query); + $sth->execute($serialid); + my ($result) = $sth->fetchrow; + return ($result); +} + + + =head2 GetSerialInformation --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/serials.pref +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/serials.pref @@ -55,4 +55,4 @@ Serials: choices: yes: Make no: Do not make - - previous serial automatically available when collecting a new serial. Please note that the item-level_itypes syspref must be set to specific item. + - previous serial automatically available when receiving a new serial issue. The previous issue can also be set to another item type when receiving a new one. Please note that the item-level_itypes syspref must be set to specific item. --- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-add.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-add.tt @@ -666,7 +666,7 @@ $(document).ready(function() { [%IF makePreviousSerialAvailable %]
  • - +