|
Lines 61-73
is_deeply($loanlength, $default, 'none matches');
Link Here
|
| 61 |
|
61 |
|
| 62 |
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode = 'Days' |
62 |
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode = 'Days' |
| 63 |
$contextmodule->mock('preference', sub { |
63 |
$contextmodule->mock('preference', sub { |
| 64 |
my ($self, $syspref) = @_; |
64 |
my ($self, $syspref) = @_; |
| 65 |
given ( $syspref ) { |
65 |
if ( $syspref eq "ReturnBeforeExpiry") { |
| 66 |
when ("ReturnBeforeExpiry"){ return 1; } |
66 |
return 1; |
| 67 |
when ("useDaysMode"){ return 'Days'; } |
67 |
} |
| 68 |
default{ return; } |
68 |
elsif ( $syspref eq "useDaysMode") { |
| 69 |
} |
69 |
return 'Days'; |
| 70 |
}); |
70 |
} |
|
|
71 |
else { |
| 72 |
return; |
| 73 |
} |
| 74 |
} |
| 75 |
}); |
| 71 |
|
76 |
|
| 72 |
my $dateexpiry = '2013-01-01'; |
77 |
my $dateexpiry = '2013-01-01'; |
| 73 |
|
78 |
|
|
Lines 76-95
my $start_date = DateTime->new({year => 2013, month => 2, day => 9});
Link Here
|
| 76 |
$dbh->{mock_add_resultset} = $mock_loan_length; |
81 |
$dbh->{mock_add_resultset} = $mock_loan_length; |
| 77 |
my $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower ); |
82 |
my $date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower ); |
| 78 |
is($date, $dateexpiry . 'T23:59:00', 'date expiry'); |
83 |
is($date, $dateexpiry . 'T23:59:00', 'date expiry'); |
| 79 |
|
|
|
| 80 |
$dbh->{mock_add_resultset} = $mock_loan_length; |
84 |
$dbh->{mock_add_resultset} = $mock_loan_length; |
| 81 |
$date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 ); |
85 |
$date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 ); |
| 82 |
|
86 |
|
| 83 |
|
87 |
|
| 84 |
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode != 'Days' |
88 |
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode != 'Days' |
| 85 |
$contextmodule->mock('preference', sub { |
89 |
$contextmodule->mock('preference', sub { |
| 86 |
my ($self, $syspref) = @_; |
90 |
my ($self, $syspref) = @_; |
| 87 |
given ( $syspref ) { |
91 |
if ( $syspref eq "ReturnBeforeExpiry") { |
| 88 |
when ("ReturnBeforeExpiry"){ return 1; } |
92 |
return 1; |
| 89 |
when ("useDaysMode"){ return 'noDays'; } |
93 |
} |
| 90 |
default{ return; } |
94 |
elsif ($syspref eq "useDaysMode") { |
| 91 |
} |
95 |
return 'noDays'; |
| 92 |
}); |
96 |
} |
|
|
97 |
else { |
| 98 |
return; |
| 99 |
} |
| 100 |
} |
| 101 |
}); |
| 93 |
|
102 |
|
| 94 |
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry}; |
103 |
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry}; |
| 95 |
$start_date = DateTime->new({year => 2013, month => 2, day => 9}); |
104 |
$start_date = DateTime->new({year => 2013, month => 2, day => 9}); |
|
Lines 103-115
$date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borr
Link Here
|
| 103 |
|
112 |
|
| 104 |
#Set syspref ReturnBeforeExpiry = 0 and useDaysMode = 'Days' |
113 |
#Set syspref ReturnBeforeExpiry = 0 and useDaysMode = 'Days' |
| 105 |
$contextmodule->mock('preference', sub { |
114 |
$contextmodule->mock('preference', sub { |
| 106 |
my ($self, $syspref) = @_; |
115 |
my ($self, $syspref) = @_; |
| 107 |
given ( $syspref ) { |
116 |
if ( $syspref eq "ReturnBeforeExpiry") { |
| 108 |
when ("ReturnBeforeExpiry"){ return 0; } |
117 |
return 0; |
| 109 |
when ("useDaysMode"){ return 'Days'; } |
118 |
} |
| 110 |
default{ return; } |
119 |
elsif ( $syspref eq "useDaysMode") { |
| 111 |
} |
120 |
return 'Days'; |
| 112 |
}); |
121 |
} |
|
|
122 |
else { |
| 123 |
default |
| 124 |
return; |
| 125 |
} |
| 126 |
} |
| 127 |
}); |
| 113 |
|
128 |
|
| 114 |
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry}; |
129 |
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry}; |
| 115 |
$start_date = DateTime->new({year => 2013, month => 2, day => 9}); |
130 |
$start_date = DateTime->new({year => 2013, month => 2, day => 9}); |
| 116 |
- |
|
|