Attachment #68261 for bug #17656

View | Details | Raw Unified | Return to bug 17656
Collapse All | Expand All





}

=head2 GetSubscriptionIrregularities

=over 4

=item @irreg = &GetSubscriptionIrregularities($subscriptionid);
get the list of irregularities for a subscription

=back

=cut

sub GetSubscriptionIrregularities {
    my $subscriptionid = shift;

    return unless $subscriptionid;

    my $dbh = C4::Context->dbh;
    my $query = qq{
        SELECT irregularity
        FROM subscription
        WHERE subscriptionid = ?
    };
    my $sth = $dbh->prepare($query);
    $sth->execute($subscriptionid);

    my ($result) = $sth->fetchrow_array;
    my @irreg = split /;/, $result;

    return @irreg;
}

=head2 ModSubscription

this function modifies a subscription. Put all new values on input args.

sub ModSubscription {
    my (
    $auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate,
    $periodicity, $firstacquidate, $irregularity, $permanent_irregularity,
    $numberpattern, $locale, $numberlength, $weeklength, $monthlength,
    $lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3,
    $innerloop3, $status, $biblionumber, $callnumber, $notes, $letter,
    $manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount,
    $opacdisplaycount, $graceperiod, $location, $enddate, $subscriptionid,
    $skip_serialseq, $itemtype, $previousitemtype
    ) = @_;

    my $dbh   = C4::Context->dbh;
    my $query = "UPDATE subscription
        SET librarian=?, branchcode=?, aqbooksellerid=?, cost=?, aqbudgetid=?,
            startdate=?, periodicity=?, firstacquidate=?, irregularity=?,
            permanent_irregularity=?, numberpattern=?, locale=?, numberlength=?,
            weeklength=?, monthlength=?, lastvalue1=?, innerloop1=?,
            lastvalue2=?, innerloop2=?, lastvalue3=?, innerloop3=?, status=?,
            biblionumber=?, callnumber=?, notes=?, letter=?, manualhistory=?,
            internalnotes=?, serialsadditems=?, staffdisplaycount=?,
            opacdisplaycount=?, graceperiod=?, location = ?, enddate=?,
            skip_serialseq=?, itemtype=?, previousitemtype=?


    my $sth = $dbh->prepare($query);
    $sth->execute(
        $auser,                     $branchcode,        $aqbooksellerid,
        $cost,                      $aqbudgetid,        $startdate,
        $periodicity,               $firstacquidate,    $irregularity,
        $permanent_irregularity,    $numberpattern,     $locale,
        $numberlength,              $weeklength,        $monthlength,
        $lastvalue1,                $innerloop1,        $lastvalue2,
        $innerloop2,                $lastvalue3,        $innerloop3,
        $status,                    $biblionumber,      $callnumber,
        $notes,                     $letter,            ($manualhistory ? $manualhistory : 0),
        $internalnotes,             $serialsadditems,   $staffdisplaycount,
        $opacdisplaycount,          $graceperiod,       $location,
        $enddate,                   $skip_serialseq,    $itemtype,
        $previousitemtype,          $subscriptionid
    );
    my $rows = $sth->rows;


    $startdate, $periodicity, $numberlength, $weeklength, $monthlength,
    $lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3,
    $innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity,
    $permanent_irregularity, $numberpattern, $locale, $callnumber,
    $manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount,
    $opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq,
    $itemtype, $previousitemtype
    ) = @_;
    my $dbh = C4::Context->dbh;


            biblionumber, startdate, periodicity, numberlength, weeklength,
            monthlength, lastvalue1, innerloop1, lastvalue2, innerloop2,
            lastvalue3, innerloop3, status, notes, letter, firstacquidate,
            irregularity, permanent_irregularity, numberpattern, locale,
            callnumber, manualhistory, internalnotes, serialsadditems,
            staffdisplaycount, opacdisplaycount, graceperiod, location,
            enddate, skip_serialseq, itemtype, previousitemtype)
        VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
        |;
    my $sth = $dbh->prepare($query);
    $sth->execute(

        $startdate, $periodicity, $numberlength, $weeklength,
        $monthlength, $lastvalue1, $innerloop1, $lastvalue2, $innerloop2,
        $lastvalue3, $innerloop3, $status, $notes, $letter,
        $firstacquidate, $irregularity, $permanent_irregularity,
        $numberpattern, $locale, $callnumber, $manualhistory, $internalnotes,
        $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod,
        $location, $enddate, $skip_serialseq, $itemtype, $previousitemtype
    );

    my $subscriptionid = $dbh->{'mysql_insertid'};




    return scalar Koha::Biblios->find($self->biblionumber);
}

=head2 irregularities

Returns an array containing irregularities

=cut

sub irregularities {
    my ($self) = @_;

    return split(';', $self->irregularity);
}

=head2 permanent_irregularities

Returns an array containing permanent irregularities

=cut

sub permanent_irregularities {
    my ($self) = @_;

    return split(';', $self->permanent_irregularity);
}

=head3 type

=cut

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/Bug_17656-add-permanent-irregularities.sql (+1 lines)
	1	ALTER TABLE `subscription` ADD permanent_irregularity text AFTER irregularity;




<p><em>
    If there is a day (or more) in the week where issues are never
    published, you can check corresponding boxes below.
</em></p>
[% daily_choice = [
    {name => 'monday', desc => 'Monday', value => 1},
    {name => 'tuesday', desc => 'Tuesday', value => 2},
    {name => 'wednesday', desc => 'Wednesday', value => 3},
    {name => 'thursday', desc => 'Thursday', value => 4},
    {name => 'friday', desc => 'Friday', value => 5},
    {name => 'saturday', desc => 'Saturday', value => 6},
    {name => 'sunday', desc => 'Sunday', value => 7}
] %]

[% FOREACH day IN daily_choice %]
    [% IF selected_days.grep( day.value ).0 == day.value %]
        <input type="checkbox" name="permanent_irregularity"
               id="[% day.name %]" data-dow="[% day.value %]"
               value="[% day.value %]" class="skip"
               checked="checked"
        />
    [% ELSE %]
        <input type="checkbox" name="permanent_irregularity"
               id="[% day.name %]" data-dow="[% day.value %]"
               value="[% day.value %]" class="skip"
        />
    [% END %]
    <label for="[% day.name %]">[% day.desc %]</label>
[% END %]




<p><em>
    If there is a month (or more) in the year where issues are never
    published, you can check corresponding boxes below.
</em></p>
[% monthly_choice = [
    {name => 'january', desc => 'January', value => 1},
    {name => 'february', desc => 'February', value => 2},
    {name => 'march', desc => 'March', value => 3},
    {name => 'april', desc => 'April', value => 4},
    {name => 'may', desc => 'May', value => 5},
    {name => 'june', desc => 'June', value => 6},
    {name => 'july', desc => 'July', value => 7}
    {name => 'august', desc => 'August', value => 8}
    {name => 'september', desc => 'September', value => 9}
    {name => 'october', desc => 'October', value => 10}
    {name => 'november', desc => 'November', value => 11}
    {name => 'december', desc => 'December', value =>12}
] %]

[% FOREACH month IN monthly_choice %]
    [% IF selected_monthes.grep( month.value ).0 == month.value %]
        <input type="checkbox" name="permanent_irregularity"
               id="[% month.name %]" data-dow="[% month.value %]"
               value="[% month.value %]" class="skip"
               checked="checked"
        />
    [% ELSE %]
        <input type="checkbox" name="permanent_irregularity"
               id="[% month.name %]" data-dow="[% month.value %]"
               value="[% month.value %]" class="skip"
        />
    [% END %]
    <label for="[% month.name %]">[% month.desc %]</label>
[% END %]




[% END %]
[% IF (ask_for_irregularities) %]
    <p><em>Please check issues that are NOT published (irregularities)</em></p>
    [% IF (daily_options OR monthly_options) %]
        <script type="text/javascript">
        //<![CDATA[
        function Check_boxes(dow) {

            }
        }
        $(document).ready(function(){
            $(".skip").on("change",function(){
                Check_boxes( $(this).data("dow"));
            });

            nothing_checked = 1;
            $("input[name='irregularity']").each(function() {
                if ($(this).is(':checked')) {
                    nothing_checked = 0;
                }
            });

            // No days/monthes are checked, could be after a renewal.
            // So check them according to permanent irregularity
            if (nothing_checked) {
                $(".skipday").each(function() {
                    if ($(this).is(':checked')) {
                        Check_boxes( $(this).data("dow"));
                    }
                });
            }
        });
        //]]>
        </script>
        [% IF (daily_options) %]
            [% INCLUDE 'serials/subscription_daily_choice.inc' %]
        [% ELSIF (monthly_options) %]
            [% INCLUDE 'serials/subscription_monthly_choice.inc' %]
        [% END %]
        <label for="monday">Monday</label>
        <input type="checkbox" id="tuesday" data-dow="2" class="skipday" />
        <label for="tuesday">Tuesday</label>
        <input type="checkbox" id="wednesday" data-dow="3" class="skipday" />
        <label for="wednesday">Wednesday</label>
        <input type="checkbox" id="thursday" data-dow="4" class="skipday" />
        <label for="thursday">Thursday</label>
        <input type="checkbox" id="friday" data-dow="5" class="skipday" />
        <label for="friday">Friday</label>
        <input type="checkbox" id="saturday" data-dow="6" class="skipday" />
        <label for="saturday">Saturday</label>
        <input type="checkbox" id="sunday" data-dow="7" class="skipday" />
        <label for="sunday">Sunday</label>
    [% END %]
[% END %]
[% IF (predictions_loop) %]

Lines 112-126 if(defined $subscriptionid) { Link Here

(-)a/serials/showpredictionpattern.pl (-3 / +16 lines)
112		112
113	my @predictions_loop;	113	my @predictions_loop;
114	my ($calculated) = GetSeq(\%subscription, \%pattern);	114	my ($calculated) = GetSeq(\%subscription, \%pattern);
		115	( my $month_number = (split/-/, $date)[1] ) =~ s/^0//;
		116	my $dow = $frequency->{unit} == 'month' ? $month_number : Day_of_Week(split /-/, $date);
115	push @predictions_loop, {	117	push @predictions_loop, {
116	number => $calculated,	118	number => $calculated,
117	publicationdate => $date,	119	publicationdate => $date,
118	issuenumber => $issuenumber,	120	issuenumber => $issuenumber,
119	dow => Day_of_Week(split /-/, $date),	121	dow => $dow,
120	};	122	};
121	my @irreg = ();	123	my @irreg = ();
		124	my @permanent_irreg = ();
122	if(defined $subscriptionid) {	125	if(defined $subscriptionid) {
123	@irreg = C4::Serials::GetSubscriptionIrregularities($subscriptionid);	126	my $subscription_o = Koha::Subscriptions->find($subscriptionid);
		127	@irreg = $subscription_o->irregularities;
		128	@permanent_irreg = $subscription_o->permanent_irregularities;
124	while(@irreg && $issuenumber > $irreg[0]) {	129	while(@irreg && $issuenumber > $irreg[0]) {
125	shift @irreg;	130	shift @irreg;
126	}	131	}
Lines 139-145 while( $i < 1000 ) { Link Here
139	}	144	}
140	if(defined $date){	145	if(defined $date){
141	$line{'publicationdate'} = $date;	146	$line{'publicationdate'} = $date;
142	$line{'dow'} = Day_of_Week(split /-/, $date);	147	( my $month_number = (split/-/, $date)[1] ) =~ s/^0//;
		148	$line{'dow'} = $frequency->{unit} == 'month'
		149	? $month_number
		150	: Day_of_Week(split /-/, $date);
143	}	151	}
144		152
145	# Check if we don't have exceed end date	153	# Check if we don't have exceed end date
Lines 177-182 if ( $frequency->{unit} and not $custompattern ) { Link Here
177	$template->param( ask_for_irregularities => 1 );	185	$template->param( ask_for_irregularities => 1 );
178	if ( $frequency->{unit} eq 'day' and $frequency->{unitsperissue} == 1 ) {	186	if ( $frequency->{unit} eq 'day' and $frequency->{unitsperissue} == 1 ) {
179	$template->param( daily_options => 1 );	187	$template->param( daily_options => 1 );
		188	$template->param( selected_days => \@permanent_irreg );
		189	}
		190	if ( $frequency->{unit} eq 'month' and $frequency->{unitsperissue} == 1 ) {
		191	$template->param( monthly_options => 1 );
		192	$template->param( selected_monthes => \@permanent_irreg );
180	}	193	}
181	}	194	}
182		195




    my $aqbudgetid     = $query->param('aqbudgetid');
    my $periodicity    = $query->param('frequency');
    my @irregularity   = $query->multi_param('irregularity');
    my @permanent_irregularity = $query->multi_param('permanent_irregularity');
    my $numberpattern  = $query->param('numbering_pattern');
    my $locale         = $query->param('locale');
    my $graceperiod    = $query->param('graceperiod') || 0;

        $startdate, $periodicity, $numberlength, $weeklength,
        $monthlength, $lastvalue1, $innerloop1, $lastvalue2, $innerloop2,
        $lastvalue3, $innerloop3, $status, $notes, $letter, $firstacquidate,
        join(";",@irregularity), join(';', @permanent_irregularity),
        $numberpattern, $locale, $callnumber, $manualhistory, $internalnotes,
        $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod,
        $location, $enddate, $skip_serialseq
    );

    my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription' } );

sub redirect_mod_subscription {
    my $subscriptionid = $query->param('subscriptionid');
    my @irregularity = $query->multi_param('irregularity');
    my @permanent_irregularity = $query->multi_param('permanent_irregularity');
    my $auser = $query->param('user');
    my $librarian => scalar $query->param('librarian'),
    my $branchcode = $query->param('branchcode');

    ModSubscription(
        $auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate,
        $periodicity, $firstacquidate, join(";",@irregularity),
        join(';', @permanent_irregularity), $numberpattern, $locale,
        $numberlength, $weeklength, $monthlength, $lastvalue1,
        $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, $innerloop3,
        $status, $biblionumber, $callnumber, $notes, $letter,
        $manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount,




#!/usr/bin/perl

use Modern::Perl;

use t::lib::TestBuilder;
use Test::More tests => 6;

use Koha::Database;

use_ok('Koha::Subscription');

my $schema = Koha::Database->new->schema;
$schema->storage->txn_begin;

my $builder = t::lib::TestBuilder->new();

my $subscription = $builder->build({
    source => 'Subscription',
    value  => {
        irregularity => '2;4;7',
        permanent_irregularity => '1;2'
    },
});

my $subscription_o = Koha::Subscriptions->find($subscription->{subscriptionid});
my @irreg = $subscription_o->irregularities;
is($irreg[0], 2, 'First element of irregularities is 2');
is($irreg[1], 4, 'Second element of irregularities is 4');
is($irreg[2], 7, 'Third element of irregularities is 7');

my @permanent_irreg = $subscription_o->permanent_irregularities;
is($permanent_irreg[0], 1, 'First element of permanent_irregularities is 1');
is($permanent_irreg[1], 2, 'Second element of permanent_irregularities is 2');

$schema->storage->txn_rollback;

Return to bug 17656

Lines 1301-1337 sub ModNextExpected { Link Here

(-)a/C4/Serials.pm (-65 / +37 lines)
1301		1301
1302	}	1302	}
1303		1303
1304	=head2 GetSubscriptionIrregularities
1305
1306	=over 4
1307
1308	=item @irreg = &GetSubscriptionIrregularities($subscriptionid);
1309	get the list of irregularities for a subscription
1310
1311	=back
1312
1313	=cut
1314
1315	sub GetSubscriptionIrregularities {
1316	my $subscriptionid = shift;
1317
1318	return unless $subscriptionid;
1319
1320	my $dbh = C4::Context->dbh;
1321	my $query = qq{
1322	SELECT irregularity
1323	FROM subscription
1324	WHERE subscriptionid = ?
1325	};
1326	my $sth = $dbh->prepare($query);
1327	$sth->execute($subscriptionid);
1328
1329	my ($result) = $sth->fetchrow_array;
1330	my @irreg = split /;/, $result;
1331
1332	return @irreg;
1333	}
1334
1335	=head2 ModSubscription	1304	=head2 ModSubscription
1336		1305
1337	this function modifies a subscription. Put all new values on input args.	1306	this function modifies a subscription. Put all new values on input args.
Lines 1342-1364 returns the number of rows affected Link Here
1342	sub ModSubscription {	1311	sub ModSubscription {
1343	my (	1312	my (
1344	$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate,	1313	$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate,
1345	$periodicity, $firstacquidate, $irregularity, $numberpattern, $locale,	1314	$periodicity, $firstacquidate, $irregularity, $permanent_irregularity,
1346	$numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1,	1315	$numberpattern, $locale, $numberlength, $weeklength, $monthlength,
1347	$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status,	1316	$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3,
1348	$biblionumber, $callnumber, $notes, $letter, $manualhistory,	1317	$innerloop3, $status, $biblionumber, $callnumber, $notes, $letter,
1349	$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount,	1318	$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount,
1350	$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq,	1319	$opacdisplaycount, $graceperiod, $location, $enddate, $subscriptionid,
1351	$itemtype, $previousitemtype	1320	$skip_serialseq, $itemtype, $previousitemtype
1352	) = @_;	1321	) = @_;
1353		1322
1354	my $dbh = C4::Context->dbh;	1323	my $dbh = C4::Context->dbh;
1355	my $query = "UPDATE subscription	1324	my $query = "UPDATE subscription
1356	SET librarian=?, branchcode=?, aqbooksellerid=?, cost=?, aqbudgetid=?,	1325	SET librarian=?, branchcode=?, aqbooksellerid=?, cost=?, aqbudgetid=?,
1357	startdate=?, periodicity=?, firstacquidate=?, irregularity=?,	1326	startdate=?, periodicity=?, firstacquidate=?, irregularity=?,
1358	numberpattern=?, locale=?, numberlength=?, weeklength=?, monthlength=?,	1327	permanent_irregularity=?, numberpattern=?, locale=?, numberlength=?,
1359	lastvalue1=?, innerloop1=?, lastvalue2=?, innerloop2=?,	1328	weeklength=?, monthlength=?, lastvalue1=?, innerloop1=?,
1360	lastvalue3=?, innerloop3=?, status=?, biblionumber=?,	1329	lastvalue2=?, innerloop2=?, lastvalue3=?, innerloop3=?, status=?,
1361	callnumber=?, notes=?, letter=?, manualhistory=?,	1330	biblionumber=?, callnumber=?, notes=?, letter=?, manualhistory=?,
1362	internalnotes=?, serialsadditems=?, staffdisplaycount=?,	1331	internalnotes=?, serialsadditems=?, staffdisplaycount=?,
1363	opacdisplaycount=?, graceperiod=?, location = ?, enddate=?,	1332	opacdisplaycount=?, graceperiod=?, location = ?, enddate=?,
1364	skip_serialseq=?, itemtype=?, previousitemtype=?	1333	skip_serialseq=?, itemtype=?, previousitemtype=?
Lines 1366-1382 sub ModSubscription { Link Here
1366		1335
1367	my $sth = $dbh->prepare($query);	1336	my $sth = $dbh->prepare($query);
1368	$sth->execute(	1337	$sth->execute(
1369	$auser, $branchcode, $aqbooksellerid, $cost,	1338	$auser, $branchcode, $aqbooksellerid,
1370	$aqbudgetid, $startdate, $periodicity, $firstacquidate,	1339	$cost, $aqbudgetid, $startdate,
1371	$irregularity, $numberpattern, $locale, $numberlength,	1340	$periodicity, $firstacquidate, $irregularity,
1372	$weeklength, $monthlength, $lastvalue1, $innerloop1,	1341	$permanent_irregularity, $numberpattern, $locale,
1373	$lastvalue2, $innerloop2, $lastvalue3, $innerloop3,	1342	$numberlength, $weeklength, $monthlength,
1374	$status, $biblionumber, $callnumber, $notes,	1343	$lastvalue1, $innerloop1, $lastvalue2,
1375	$letter, ($manualhistory ? $manualhistory : 0),	1344	$innerloop2, $lastvalue3, $innerloop3,
1376	$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount,	1345	$status, $biblionumber, $callnumber,
1377	$graceperiod, $location, $enddate, $skip_serialseq,	1346	$notes, $letter, ($manualhistory ? $manualhistory : 0),
1378	$itemtype, $previousitemtype,	1347	$internalnotes, $serialsadditems, $staffdisplaycount,
1379	$subscriptionid	1348	$opacdisplaycount, $graceperiod, $location,
		1349	$enddate, $skip_serialseq, $itemtype,
		1350	$previousitemtype, $subscriptionid
1380	);	1351	);
1381	my $rows = $sth->rows;	1352	my $rows = $sth->rows;
1382		1353
Lines 1407-1415 sub NewSubscription { Link Here
1407	$startdate, $periodicity, $numberlength, $weeklength, $monthlength,	1378	$startdate, $periodicity, $numberlength, $weeklength, $monthlength,
1408	$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3,	1379	$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3,
1409	$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity,	1380	$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity,
1410	$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes,	1381	$permanent_irregularity, $numberpattern, $locale, $callnumber,
1411	$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod,	1382	$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount,
1412	$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype	1383	$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq,
		1384	$itemtype, $previousitemtype
1413	) = @_;	1385	) = @_;
1414	my $dbh = C4::Context->dbh;	1386	my $dbh = C4::Context->dbh;
1415		1387
Lines 1420-1430 sub NewSubscription { Link Here
1420	biblionumber, startdate, periodicity, numberlength, weeklength,	1392	biblionumber, startdate, periodicity, numberlength, weeklength,
1421	monthlength, lastvalue1, innerloop1, lastvalue2, innerloop2,	1393	monthlength, lastvalue1, innerloop1, lastvalue2, innerloop2,
1422	lastvalue3, innerloop3, status, notes, letter, firstacquidate,	1394	lastvalue3, innerloop3, status, notes, letter, firstacquidate,
1423	irregularity, numberpattern, locale, callnumber,	1395	irregularity, permanent_irregularity, numberpattern, locale,
1424	manualhistory, internalnotes, serialsadditems, staffdisplaycount,	1396	callnumber, manualhistory, internalnotes, serialsadditems,
1425	opacdisplaycount, graceperiod, location, enddate, skip_serialseq,	1397	staffdisplaycount, opacdisplaycount, graceperiod, location,
1426	itemtype, previousitemtype)	1398	enddate, skip_serialseq, itemtype, previousitemtype)
1427	VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)	1399	VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
1428	\|;	1400	\|;
1429	my $sth = $dbh->prepare($query);	1401	my $sth = $dbh->prepare($query);
1430	$sth->execute(	1402	$sth->execute(
Lines 1432-1441 sub NewSubscription { Link Here
1432	$startdate, $periodicity, $numberlength, $weeklength,	1404	$startdate, $periodicity, $numberlength, $weeklength,
1433	$monthlength, $lastvalue1, $innerloop1, $lastvalue2, $innerloop2,	1405	$monthlength, $lastvalue1, $innerloop1, $lastvalue2, $innerloop2,
1434	$lastvalue3, $innerloop3, $status, $notes, $letter,	1406	$lastvalue3, $innerloop3, $status, $notes, $letter,
1435	$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber,	1407	$firstacquidate, $irregularity, $permanent_irregularity,
1436	$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount,	1408	$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes,
1437	$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq,	1409	$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod,
1438	$itemtype, $previousitemtype	1410	$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype
1439	);	1411	);
1440		1412
1441	my $subscriptionid = $dbh->{'mysql_insertid'};	1413	my $subscriptionid = $dbh->{'mysql_insertid'};

Lines 48-53 sub biblio { Link Here

(-)a/Koha/Subscription.pm (+24 lines)
48	return scalar Koha::Biblios->find($self->biblionumber);	48	return scalar Koha::Biblios->find($self->biblionumber);
49	}	49	}
50		50
		51	=head2 irregularities
		52
		53	Returns an array containing irregularities
		54
		55	=cut
		56
		57	sub irregularities {
		58	my ($self) = @_;
		59
		60	return split(';', $self->irregularity);
		61	}
		62
		63	=head2 permanent_irregularities
		64
		65	Returns an array containing permanent irregularities
		66
		67	=cut
		68
		69	sub permanent_irregularities {
		70	my ($self) = @_;
		71
		72	return split(';', $self->permanent_irregularity);
		73	}
		74
51	=head3 type	75	=head3 type
52		76
53	=cut	77	=cut

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/serials/subscription_daily_choice.inc (+29 lines)
	1	<p><em>
	2	If there is a day (or more) in the week where issues are never
	3	published, you can check corresponding boxes below.
	4	</em></p>
	5	[% daily_choice = [
	6	{name => 'monday', desc => 'Monday', value => 1},
	7	{name => 'tuesday', desc => 'Tuesday', value => 2},
	8	{name => 'wednesday', desc => 'Wednesday', value => 3},
	9	{name => 'thursday', desc => 'Thursday', value => 4},
	10	{name => 'friday', desc => 'Friday', value => 5},
	11	{name => 'saturday', desc => 'Saturday', value => 6},
	12	{name => 'sunday', desc => 'Sunday', value => 7}
	13	] %]
	14
	15	[% FOREACH day IN daily_choice %]
	16	[% IF selected_days.grep( day.value ).0 == day.value %]
	17	<input type="checkbox" name="permanent_irregularity"
	18	id="[% day.name %]" data-dow="[% day.value %]"
	19	value="[% day.value %]" class="skip"
	20	checked="checked"
	21	/>
	22	[% ELSE %]
	23	<input type="checkbox" name="permanent_irregularity"
	24	id="[% day.name %]" data-dow="[% day.value %]"
	25	value="[% day.value %]" class="skip"
	26	/>
	27	[% END %]
	28	<label for="[% day.name %]">[% day.desc %]</label>
	29	[% END %]

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/serials/subscription_monthly_choice.inc (+34 lines)
	1	<p><em>
	2	If there is a month (or more) in the year where issues are never
	3	published, you can check corresponding boxes below.
	4	</em></p>
	5	[% monthly_choice = [
	6	{name => 'january', desc => 'January', value => 1},
	7	{name => 'february', desc => 'February', value => 2},
	8	{name => 'march', desc => 'March', value => 3},
	9	{name => 'april', desc => 'April', value => 4},
	10	{name => 'may', desc => 'May', value => 5},
	11	{name => 'june', desc => 'June', value => 6},
	12	{name => 'july', desc => 'July', value => 7}
	13	{name => 'august', desc => 'August', value => 8}
	14	{name => 'september', desc => 'September', value => 9}
	15	{name => 'october', desc => 'October', value => 10}
	16	{name => 'november', desc => 'November', value => 11}
	17	{name => 'december', desc => 'December', value =>12}
	18	] %]
	19
	20	[% FOREACH month IN monthly_choice %]
	21	[% IF selected_monthes.grep( month.value ).0 == month.value %]
	22	<input type="checkbox" name="permanent_irregularity"
	23	id="[% month.name %]" data-dow="[% month.value %]"
	24	value="[% month.value %]" class="skip"
	25	checked="checked"
	26	/>
	27	[% ELSE %]
	28	<input type="checkbox" name="permanent_irregularity"
	29	id="[% month.name %]" data-dow="[% month.value %]"
	30	value="[% month.value %]" class="skip"
	31	/>
	32	[% END %]
	33	<label for="[% month.name %]">[% month.desc %]</label>
	34	[% END %]

Lines 6-12 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/showpredictionpattern.tt (-20 / +24 lines)
6	[% END %]	6	[% END %]
7	[% IF (ask_for_irregularities) %]	7	[% IF (ask_for_irregularities) %]
8	<p><em>Please check issues that are NOT published (irregularities)</em></p>	8	<p><em>Please check issues that are NOT published (irregularities)</em></p>
9	[% IF (daily_options) %]	9	[% IF (daily_options OR monthly_options) %]
10	<script type="text/javascript">	10	<script type="text/javascript">
11	//<![CDATA[	11	//<![CDATA[
12	function Check_boxes(dow) {	12	function Check_boxes(dow) {
Lines 21-50 Link Here
21	}	21	}
22	}	22	}
23	$(document).ready(function(){	23	$(document).ready(function(){
24	$(".skipday").on("change",function(){	24	$(".skip").on("change",function(){
25	Check_boxes( $(this).data("dow"));	25	Check_boxes( $(this).data("dow"));
26	});	26	});
		27
		28	nothing_checked = 1;
		29	$("input[name='irregularity']").each(function() {
		30	if ($(this).is(':checked')) {
		31	nothing_checked = 0;
		32	}
		33	});
		34
		35	// No days/monthes are checked, could be after a renewal.
		36	// So check them according to permanent irregularity
		37	if (nothing_checked) {
		38	$(".skipday").each(function() {
		39	if ($(this).is(':checked')) {
		40	Check_boxes( $(this).data("dow"));
		41	}
		42	});
		43	}
27	});	44	});
28	//]]>	45	//]]>
29	</script>	46	</script>
30	<p><em>	47	[% IF (daily_options) %]
31	If there is a day (or more) in the week where issues are never	48	[% INCLUDE 'serials/subscription_daily_choice.inc' %]
32	published, you can check corresponding boxes below.	49	[% ELSIF (monthly_options) %]
33	</em></p>	50	[% INCLUDE 'serials/subscription_monthly_choice.inc' %]
34	<input type="checkbox" id="monday" data-dow="1" class="skipday" />	51	[% END %]
35	<label for="monday">Monday</label>
36	<input type="checkbox" id="tuesday" data-dow="2" class="skipday" />
37	<label for="tuesday">Tuesday</label>
38	<input type="checkbox" id="wednesday" data-dow="3" class="skipday" />
39	<label for="wednesday">Wednesday</label>
40	<input type="checkbox" id="thursday" data-dow="4" class="skipday" />
41	<label for="thursday">Thursday</label>
42	<input type="checkbox" id="friday" data-dow="5" class="skipday" />
43	<label for="friday">Friday</label>
44	<input type="checkbox" id="saturday" data-dow="6" class="skipday" />
45	<label for="saturday">Saturday</label>
46	<input type="checkbox" id="sunday" data-dow="7" class="skipday" />
47	<label for="sunday">Sunday</label>
48	[% END %]	52	[% END %]
49	[% END %]	53	[% END %]
50	[% IF (predictions_loop) %]	54	[% IF (predictions_loop) %]

Lines 294-299 sub redirect_add_subscription { Link Here

(-)a/serials/subscription-add.pl (-5 / +8 lines)
294	my $aqbudgetid = $query->param('aqbudgetid');	294	my $aqbudgetid = $query->param('aqbudgetid');
295	my $periodicity = $query->param('frequency');	295	my $periodicity = $query->param('frequency');
296	my @irregularity = $query->multi_param('irregularity');	296	my @irregularity = $query->multi_param('irregularity');
		297	my @permanent_irregularity = $query->multi_param('permanent_irregularity');
297	my $numberpattern = $query->param('numbering_pattern');	298	my $numberpattern = $query->param('numbering_pattern');
298	my $locale = $query->param('locale');	299	my $locale = $query->param('locale');
299	my $graceperiod = $query->param('graceperiod') \|\| 0;	300	my $graceperiod = $query->param('graceperiod') \|\| 0;
Lines 341-350 sub redirect_add_subscription { Link Here
341	$startdate, $periodicity, $numberlength, $weeklength,	342	$startdate, $periodicity, $numberlength, $weeklength,
342	$monthlength, $lastvalue1, $innerloop1, $lastvalue2, $innerloop2,	343	$monthlength, $lastvalue1, $innerloop1, $lastvalue2, $innerloop2,
343	$lastvalue3, $innerloop3, $status, $notes, $letter, $firstacquidate,	344	$lastvalue3, $innerloop3, $status, $notes, $letter, $firstacquidate,
344	join(";",@irregularity), $numberpattern, $locale, $callnumber,	345	join(";",@irregularity), join(';', @permanent_irregularity),
345	$manualhistory, $internalnotes, $serialsadditems,	346	$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes,
346	$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate,	347	$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod,
347	$skip_serialseq	348	$location, $enddate, $skip_serialseq
348	);	349	);
349		350
350	my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription' } );	351	my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription' } );
Lines 357-362 sub redirect_add_subscription { Link Here
357	sub redirect_mod_subscription {	358	sub redirect_mod_subscription {
358	my $subscriptionid = $query->param('subscriptionid');	359	my $subscriptionid = $query->param('subscriptionid');
359	my @irregularity = $query->multi_param('irregularity');	360	my @irregularity = $query->multi_param('irregularity');
		361	my @permanent_irregularity = $query->multi_param('permanent_irregularity');
360	my $auser = $query->param('user');	362	my $auser = $query->param('user');
361	my $librarian => scalar $query->param('librarian'),	363	my $librarian => scalar $query->param('librarian'),
362	my $branchcode = $query->param('branchcode');	364	my $branchcode = $query->param('branchcode');
Lines 423-429 sub redirect_mod_subscription { Link Here
423	ModSubscription(	425	ModSubscription(
424	$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate,	426	$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate,
425	$periodicity, $firstacquidate, join(";",@irregularity),	427	$periodicity, $firstacquidate, join(";",@irregularity),
426	$numberpattern, $locale, $numberlength, $weeklength, $monthlength, $lastvalue1,	428	join(';', @permanent_irregularity), $numberpattern, $locale,
		429	$numberlength, $weeklength, $monthlength, $lastvalue1,
427	$innerloop1, $lastvalue2, $innerloop2, $lastvalue3, $innerloop3,	430	$innerloop1, $lastvalue2, $innerloop2, $lastvalue3, $innerloop3,
428	$status, $biblionumber, $callnumber, $notes, $letter,	431	$status, $biblionumber, $callnumber, $notes, $letter,
429	$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount,	432	$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount,

Line 0 Link Here

(-)a/t/db_dependent/Serials/SubscriptionIrregularity.pm (-1 / +35 lines)
0	-	1	#!/usr/bin/perl
		2
		3	use Modern::Perl;
		4
		5	use t::lib::TestBuilder;
		6	use Test::More tests => 6;
		7
		8	use Koha::Database;
		9
		10	use_ok('Koha::Subscription');
		11
		12	my $schema = Koha::Database->new->schema;
		13	$schema->storage->txn_begin;
		14
		15	my $builder = t::lib::TestBuilder->new();
		16
		17	my $subscription = $builder->build({
		18	source => 'Subscription',
		19	value => {
		20	irregularity => '2;4;7',
		21	permanent_irregularity => '1;2'
		22	},
		23	});
		24
		25	my $subscription_o = Koha::Subscriptions->find($subscription->{subscriptionid});
		26	my @irreg = $subscription_o->irregularities;
		27	is($irreg[0], 2, 'First element of irregularities is 2');
		28	is($irreg[1], 4, 'Second element of irregularities is 4');
		29	is($irreg[2], 7, 'Third element of irregularities is 7');
		30
		31	my @permanent_irreg = $subscription_o->permanent_irregularities;
		32	is($permanent_irreg[0], 1, 'First element of permanent_irregularities is 1');
		33	is($permanent_irreg[1], 2, 'Second element of permanent_irregularities is 2');
		34
		35	$schema->storage->txn_rollback;