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

(-)a/C4/Serials.pm (-6 / +5 lines)
Lines 158-164 After this function, don't forget to execute it by using $sth->execute($subscrip Link Here
158
158
159
=cut
159
=cut
160
160
161
sub GetSubscriptionHistoryFromSubscriptionId() {
161
sub GetSubscriptionHistoryFromSubscriptionId {
162
    my $dbh   = C4::Context->dbh;
162
    my $dbh   = C4::Context->dbh;
163
    my $query = qq|
163
    my $query = qq|
164
        SELECT *
164
        SELECT *
Lines 178-184 $sth = $dbh->prepare($query). Link Here
178
178
179
=cut
179
=cut
180
180
181
sub GetSerialStatusFromSerialId() {
181
sub GetSerialStatusFromSerialId {
182
    my $dbh   = C4::Context->dbh;
182
    my $dbh   = C4::Context->dbh;
183
    my $query = qq|
183
    my $query = qq|
184
        SELECT status
184
        SELECT status
Lines 1109-1115 $nextexepected = { Link Here
1109
1109
1110
=cut
1110
=cut
1111
1111
1112
sub GetNextExpected($) {
1112
sub GetNextExpected {
1113
    my ($subscriptionid) = @_;
1113
    my ($subscriptionid) = @_;
1114
    my $dbh              = C4::Context->dbh;
1114
    my $dbh              = C4::Context->dbh;
1115
    my $sth              = $dbh->prepare('SELECT serialid, planneddate FROM serial WHERE subscriptionid=? AND status=?');
1115
    my $sth              = $dbh->prepare('SELECT serialid, planneddate FROM serial WHERE subscriptionid=? AND status=?');
Lines 1144-1150 returns 0 Link Here
1144
1144
1145
=cut
1145
=cut
1146
1146
1147
sub ModNextExpected($$) {
1147
sub ModNextExpected {
1148
    my ( $subscriptionid, $date ) = @_;
1148
    my ( $subscriptionid, $date ) = @_;
1149
    my $dbh = C4::Context->dbh;
1149
    my $dbh = C4::Context->dbh;
1150
1150
Lines 2191-2197 Return 0 if periodicity==0 Link Here
2191
2191
2192
=cut
2192
=cut
2193
2193
2194
sub GetNextDate(@) {
2194
sub GetNextDate {
2195
    my ( $planneddate, $subscription ) = @_;
2195
    my ( $planneddate, $subscription ) = @_;
2196
    my @irreg = split( /\,/, $subscription->{irregularity} );
2196
    my @irreg = split( /\,/, $subscription->{irregularity} );
2197
2197
2198
- 

Return to bug 6679