|
Lines 549-560
use C4::Serials qw( NewSubscription GetSerials findSerialsByStatus ModSerialStat
Link Here
|
| 549 |
|
549 |
|
| 550 |
my $notes = 'notes'; |
550 |
my $notes = 'notes'; |
| 551 |
my $internalnotes = 'intnotes'; |
551 |
my $internalnotes = 'intnotes'; |
| 552 |
$dbh->do(q|UPDATE subscription_numberpatterns SET numberingmethod='No. {X}' WHERE id=1|); |
552 |
my $number_pattern = $builder->build_object( |
|
|
553 |
{ |
| 554 |
class => 'Koha::Subscription::Numberpatterns', |
| 555 |
value => { numberingmethod => 'No. {X}' } |
| 556 |
} |
| 557 |
); |
| 553 |
my $subscriptionid = NewSubscription( |
558 |
my $subscriptionid = NewSubscription( |
| 554 |
undef, "", undef, undef, undef, $biblionumber, |
559 |
undef, "", undef, undef, undef, $biblionumber, |
| 555 |
'2013-01-01', 1, undef, undef, undef, |
560 |
'2013-01-01', 1, undef, undef, undef, |
| 556 |
undef, undef, undef, undef, undef, undef, |
561 |
undef, undef, undef, undef, undef, undef, |
| 557 |
1, $notes,undef, '2013-01-01', undef, 1, |
562 |
1, $notes,undef, '2013-01-01', undef, $number_pattern->id, |
| 558 |
undef, undef, 0, $internalnotes, 0, |
563 |
undef, undef, 0, $internalnotes, 0, |
| 559 |
undef, undef, 0, undef, '2013-12-31', 0 |
564 |
undef, undef, 0, undef, '2013-12-31', 0 |
| 560 |
); |
565 |
); |
|
Lines 643-654
subtest 'SendAlerts - claimissue' => sub {
Link Here
|
| 643 |
} |
648 |
} |
| 644 |
my ($biblionumber) = AddBiblio($bib, ''); |
649 |
my ($biblionumber) = AddBiblio($bib, ''); |
| 645 |
|
650 |
|
| 646 |
$dbh->do(q|UPDATE subscription_numberpatterns SET numberingmethod='No. {X}' WHERE id=1|); |
651 |
my $number_pattern = $builder->build_object( |
|
|
652 |
{ |
| 653 |
class => 'Koha::Subscription::Numberpatterns', |
| 654 |
value => { numberingmethod => 'No. {X}' } |
| 655 |
} |
| 656 |
); |
| 657 |
|
| 647 |
my $subscriptionid = NewSubscription( |
658 |
my $subscriptionid = NewSubscription( |
| 648 |
undef, "", $booksellerid, undef, undef, $biblionumber, |
659 |
undef, "", $booksellerid, undef, undef, $biblionumber, |
| 649 |
'2013-01-01', 1, undef, undef, undef, |
660 |
'2013-01-01', 1, undef, undef, undef, |
| 650 |
undef, undef, undef, undef, undef, undef, |
661 |
undef, undef, undef, undef, undef, undef, |
| 651 |
1, 'public',undef, '2013-01-01', undef, 1, |
662 |
1, 'public',undef, '2013-01-01', undef, $number_pattern->id, |
| 652 |
undef, undef, 0, 'internal', 0, |
663 |
undef, undef, 0, 'internal', 0, |
| 653 |
undef, undef, 0, undef, '2013-12-31', 0 |
664 |
undef, undef, 0, undef, '2013-12-31', 0 |
| 654 |
); |
665 |
); |
| 655 |
- |
|
|