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

(-)a/installer/data/mysql/updatedatabase.pl (+32 lines)
Lines 6988-6993 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here
6988
        ADD CONSTRAINT subscription_ibfk_2 FOREIGN KEY (numberpattern) REFERENCES subscription_numberpatterns (id) ON DELETE SET NULL ON UPDATE CASCADE
6988
        ADD CONSTRAINT subscription_ibfk_2 FOREIGN KEY (numberpattern) REFERENCES subscription_numberpatterns (id) ON DELETE SET NULL ON UPDATE CASCADE
6989
    |);
6989
    |);
6990
6990
6991
    # Set firstacquidate if not already set (firstacquidate is now mandatory)
6992
    my $get_first_planneddate_sth = $dbh->prepare(qq|
6993
        SELECT planneddate
6994
        FROM serial
6995
        WHERE subscriptionid = ?
6996
        ORDER BY serialid
6997
        LIMIT 1
6998
    |);
6999
    my $update_firstacquidate_sth = $dbh->prepare(qq|
7000
        UPDATE subscription
7001
        SET firstacquidate = ?
7002
        WHERE subscriptionid = ?
7003
    |);
7004
    my $get_subscriptions_sth = $dbh->prepare(qq|
7005
        SELECT subscriptionid, startdate
7006
        FROM subscription
7007
        WHERE firstacquidate IS NULL
7008
          OR firstacquidate = '0000-00-00'
7009
    |);
7010
    $get_subscriptions_sth->execute;
7011
    while ( my ($subscriptionid, $startdate) = $get_subscriptions_sth->fetchrow ) {
7012
        # Try to get the planned date of the first serial
7013
        $get_first_planneddate_sth->execute($subscriptionid);
7014
        my ($first_planneddate) = $get_first_planneddate_sth->fetchrow;
7015
        if ($first_planneddate and $first_planneddate =~ /^\d{4}-\d{2}-\d{2}$/) {
7016
            $update_firstacquidate_sth->execute($first_planneddate, $subscriptionid);
7017
        } else {
7018
            # Defaults to subscription start date
7019
            $update_firstacquidate_sth->execute($startdate, $subscriptionid);
7020
        }
7021
    }
7022
6991
    print "Upgrade to $DBversion done (Add subscription_frequencies and subscription_numberpatterns tables)\n";
7023
    print "Upgrade to $DBversion done (Add subscription_frequencies and subscription_numberpatterns tables)\n";
6992
    SetVersion($DBversion);
7024
    SetVersion($DBversion);
6993
}
7025
}
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-add.tt (-2 / +1 lines)
Lines 693-699 $(document).ready(function() { Link Here
693
                                            <option value="">-- please choose --</option>
693
                                            <option value="">-- please choose --</option>
694
                                            [% FOREACH numberpattern IN numberpatterns %]
694
                                            [% FOREACH numberpattern IN numberpatterns %]
695
                                                [% IF (numberpattern.selected) %]
695
                                                [% IF (numberpattern.selected) %]
696
                                                    <option value="[% numberpattern.id %]">
696
                                                    <option value="[% numberpattern.id %]" selected="selected">
697
                                                [% ELSE %]
697
                                                [% ELSE %]
698
                                                    <option value="[% numberpattern.id %]">
698
                                                    <option value="[% numberpattern.id %]">
699
                                                [% END %]
699
                                                [% END %]
700
- 

Return to bug 7688