|
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 |
- |
|
|