@@ -, +, @@
---
C4/Serials.pm | 17 +++++++++--------
.../prog/en/modules/serials/subscription-renew.tt | 10 +++++-----
serials/subscription-add.pl | 4 ++--
serials/subscription-renew.pl | 3 ++-
t/db_dependent/Serials/ReNewSubscription.t | 14 +++++++++++++-
5 files changed, 31 insertions(+), 17 deletions(-)
--- a/C4/Serials.pm
+++ a/C4/Serials.pm
@@ -73,7 +73,7 @@ BEGIN {
&GetNextSeq &GetSeq &NewIssue &GetSerials
&GetLatestSerials &ModSerialStatus &GetNextDate &GetSerials2
- &ReNewSubscription &GetLateOrMissingIssues
+ &getsublength &ReNewSubscription &GetLateOrMissingIssues
&GetSerialInformation &AddItem2Serial
&PrepareSerialsData &GetNextExpected &ModNextExpected
&GetPreviousSerialid
@@ -1453,20 +1453,21 @@ sub NewSubscription {
return $subscriptionid;
}
-=head2 _get_sub_length
-my ($numberlength, $weeklength, $monthlength) = _get_sub_length( $subtype, $sublength );
+=head2 getsublength
-this function calculates the subscription length.
+my ($numberlength, $weeklength, $monthlength) = getsublength( $subtype, $sublength );
+
+This function calculates the subscription length.
=cut
-sub _get_sub_length {
- my ($type, $subtype, $length) = @_;
+sub getsublength {
+ my ($subtype, $length) = @_;
return
(
$subtype eq 'issues' ? $length : 0,
- $subtype eq 'weeks' ? $length : 0,
- $subtype eq 'months' ? $length : 0,
+ $subtype eq 'weeks' ? $length : 0,
+ $subtype eq 'months' ? $length : 0,
);
}
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-renew.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-renew.tt
@@ -35,9 +35,9 @@
[% INCLUDE 'date-format.inc' %]
-