|
Lines 1958-1977
subtest 'CanBookBeIssued + AutoReturnCheckedOutItems' => sub {
Link Here
|
| 1958 |
C4::Context->_new_userenv('xxx'); |
1958 |
C4::Context->_new_userenv('xxx'); |
| 1959 |
C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, 'Random Library', '', '', ''); |
1959 |
C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, 'Random Library', '', '', ''); |
| 1960 |
|
1960 |
|
| 1961 |
my $biblioitem = $builder->build( { source => 'Biblioitem' } ); |
1961 |
my $item = $builder->build_sample_item( |
| 1962 |
my $biblionumber = $biblioitem->{biblionumber}; |
1962 |
{ |
| 1963 |
my $item = $builder->build( |
1963 |
library => $library->{branchcode}, |
| 1964 |
{ source => 'Item', |
|
|
| 1965 |
value => { |
| 1966 |
homebranch => $library->{branchcode}, |
| 1967 |
holdingbranch => $library->{branchcode}, |
| 1968 |
notforloan => 0, |
| 1969 |
itemlost => 0, |
| 1970 |
withdrawn => 0, |
| 1971 |
biblionumber => $biblionumber, |
| 1972 |
} |
| 1973 |
} |
1964 |
} |
| 1974 |
); |
1965 |
)->unblessed; |
| 1975 |
|
1966 |
|
| 1976 |
my ( $error, $question, $alerts ); |
1967 |
my ( $error, $question, $alerts ); |
| 1977 |
my $issue = AddIssue( $patron1->unblessed, $item->{barcode} ); |
1968 |
my $issue = AddIssue( $patron1->unblessed, $item->{barcode} ); |
|
Lines 2003-2008
subtest 'AddReturn | is_overdue' => sub {
Link Here
|
| 2003 |
my $item = $builder->build_sample_item( |
1994 |
my $item = $builder->build_sample_item( |
| 2004 |
{ |
1995 |
{ |
| 2005 |
library => $library->{branchcode}, |
1996 |
library => $library->{branchcode}, |
|
|
1997 |
replacementprice => 7 |
| 2006 |
} |
1998 |
} |
| 2007 |
)->unblessed; |
1999 |
)->unblessed; |
| 2008 |
|
2000 |
|
|
Lines 2630-2644
subtest 'Cancel transfers on lost items' => sub {
Link Here
|
| 2630 |
my $library_2 = $builder->build( { source => 'Branch' } ); |
2622 |
my $library_2 = $builder->build( { source => 'Branch' } ); |
| 2631 |
my $patron_2 = $builder->build( { source => 'Borrower', value => { branchcode => $library_2->{branchcode}, categorycode => $patron_category->{categorycode} } } ); |
2623 |
my $patron_2 = $builder->build( { source => 'Borrower', value => { branchcode => $library_2->{branchcode}, categorycode => $patron_category->{categorycode} } } ); |
| 2632 |
my $biblio = $builder->build_sample_biblio({branchcode => $library->{branchcode}}); |
2624 |
my $biblio = $builder->build_sample_biblio({branchcode => $library->{branchcode}}); |
| 2633 |
my $item = $builder->build_sample_item( |
2625 |
my $item = $builder->build_sample_item({ |
| 2634 |
{ |
2626 |
biblionumber => $biblio->biblionumber, |
| 2635 |
class => 'Koha::Items', |
2627 |
library => $library_1->{branchcode}, |
| 2636 |
value => { |
2628 |
}); |
| 2637 |
biblionumber => $biblio->biblionumber, |
|
|
| 2638 |
library => $library_1->{branchcode}, |
| 2639 |
} |
| 2640 |
} |
| 2641 |
); |
| 2642 |
|
2629 |
|
| 2643 |
set_userenv( $library_2 ); |
2630 |
set_userenv( $library_2 ); |
| 2644 |
my $reserve_id = AddReserve( |
2631 |
my $reserve_id = AddReserve( |
|
Lines 3114-3135
subtest 'Incremented fee tests' => sub {
Link Here
|
| 3114 |
} |
3101 |
} |
| 3115 |
)->store; |
3102 |
)->store; |
| 3116 |
|
3103 |
|
| 3117 |
my $biblioitem = $builder->build( { source => 'Biblioitem' } ); |
3104 |
my $item = $builder->build_sample_item( |
| 3118 |
my $item = $builder->build_object( |
|
|
| 3119 |
{ |
3105 |
{ |
| 3120 |
class => 'Koha::Items', |
3106 |
library => $library->{branchcode}, |
| 3121 |
value => { |
3107 |
itype => $itemtype->id, |
| 3122 |
homebranch => $library->id, |
|
|
| 3123 |
holdingbranch => $library->id, |
| 3124 |
notforloan => 0, |
| 3125 |
itemlost => 0, |
| 3126 |
withdrawn => 0, |
| 3127 |
itype => $itemtype->id, |
| 3128 |
biblionumber => $biblioitem->{biblionumber}, |
| 3129 |
biblioitemnumber => $biblioitem->{biblioitemnumber}, |
| 3130 |
} |
| 3131 |
} |
3108 |
} |
| 3132 |
)->store; |
3109 |
); |
| 3133 |
|
3110 |
|
| 3134 |
is( $itemtype->rentalcharge_daily, '1.000000', 'Daily rental charge stored and retreived correctly' ); |
3111 |
is( $itemtype->rentalcharge_daily, '1.000000', 'Daily rental charge stored and retreived correctly' ); |
| 3135 |
is( $item->effective_itemtype, $itemtype->id, "Itemtype set correctly for item"); |
3112 |
is( $item->effective_itemtype, $itemtype->id, "Itemtype set correctly for item"); |
| 3136 |
- |
|
|