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