|
Lines 8-14
Link Here
|
| 8 |
# (at your option) any later version. |
8 |
# (at your option) any later version. |
| 9 |
# |
9 |
# |
| 10 |
# Koha is distributed in the hope that it will be useful, but |
10 |
# Koha is distributed in the hope that it will be useful, but |
| 11 |
# WIT HOUT ANY WARRANTY; without even the implied warranty of |
11 |
# WITHOUT ANY WARRANTY; without even the implied warranty of |
| 12 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
12 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 13 |
# GNU General Public License for more details. |
13 |
# GNU General Public License for more details. |
| 14 |
# |
14 |
# |
|
Lines 172-175
my $s = Koha::Subscriptions->find($subscription->{subscriptionid});
Link Here
|
| 172 |
my $irregularities = join(';', $s->guess_irregularities); |
172 |
my $irregularities = join(';', $s->guess_irregularities); |
| 173 |
is($irregularities, '10;11', 'Irregularities have been updated'); |
173 |
is($irregularities, '10;11', 'Irregularities have been updated'); |
| 174 |
|
174 |
|
| 175 |
$schema->storage->txn_rollback; |
175 |
$schema->storage->txn_rollback; |
| 176 |
- |
|
|