|
Lines 42-47
use C4::Serials::Frequency qw( GetSubscriptionFrequency );
Link Here
|
| 42 |
use C4::Serials::Numberpattern; |
42 |
use C4::Serials::Numberpattern; |
| 43 |
use Koha::AdditionalFieldValues; |
43 |
use Koha::AdditionalFieldValues; |
| 44 |
use Koha::Biblios; |
44 |
use Koha::Biblios; |
|
|
45 |
use Koha::DateUtils qw( dt_from_string ); |
| 45 |
use Koha::Serial; |
46 |
use Koha::Serial; |
| 46 |
use Koha::SharedContent; |
47 |
use Koha::SharedContent; |
| 47 |
use Koha::Subscription::Histories; |
48 |
use Koha::Subscription::Histories; |
|
Lines 908-913
sub GetNextSeq {
Link Here
|
| 908 |
my $newlastvalue3string = _numeration( $newlastvalue3, $pattern->{numbering3}, $locale ); |
909 |
my $newlastvalue3string = _numeration( $newlastvalue3, $pattern->{numbering3}, $locale ); |
| 909 |
$calculated =~ s/\{Z\}/$newlastvalue3string/g; |
910 |
$calculated =~ s/\{Z\}/$newlastvalue3string/g; |
| 910 |
} |
911 |
} |
|
|
912 |
my $dt = dt_from_string($planneddate); |
| 913 |
|
| 914 |
$calculated =~ s/\{Month\}/$dt->month/eg; |
| 915 |
$calculated =~ s/\{MonthName\}/$dt->month_name/eg; |
| 916 |
$calculated =~ s/\{Year\}/$dt->year/eg; |
| 917 |
$calculated =~ s/\{Day\}/$dt->day/eg; |
| 918 |
$calculated =~ s/\{DayName\}/$dt->day_name/eg; |
| 911 |
|
919 |
|
| 912 |
} |
920 |
} |
| 913 |
|
921 |
|
|
Lines 947-952
sub GetSeq {
Link Here
|
| 947 |
my $newlastvalue3 = $subscription->{'lastvalue3'} || 0; |
955 |
my $newlastvalue3 = $subscription->{'lastvalue3'} || 0; |
| 948 |
$newlastvalue3 = _numeration($newlastvalue3, $pattern->{numbering3}, $locale) if ($pattern->{numbering3}); # reset counter if needed. |
956 |
$newlastvalue3 = _numeration($newlastvalue3, $pattern->{numbering3}, $locale) if ($pattern->{numbering3}); # reset counter if needed. |
| 949 |
$calculated =~ s/\{Z\}/$newlastvalue3/g; |
957 |
$calculated =~ s/\{Z\}/$newlastvalue3/g; |
|
|
958 |
|
| 959 |
my $dt = dt_from_string($subscription->{firstaquidate}); |
| 960 |
|
| 961 |
$calculated =~ s/\{Month\}/$dt->month/eg; |
| 962 |
$calculated =~ s/\{MonthName\}/$dt->month_name/eg; |
| 963 |
$calculated =~ s/\{Year\}/$dt->year/eg; |
| 964 |
$calculated =~ s/\{Day\}/$dt->day/eg; |
| 965 |
$calculated =~ s/\{DayName\}/$dt->day_name/eg; |
| 950 |
return $calculated; |
966 |
return $calculated; |
| 951 |
} |
967 |
} |
| 952 |
|
968 |
|