#Set syspref ReturnBeforeExpiry = 1 and useDaysMode = 'Days'
$contextmodule->mock('preference', sub {
- my ($self, $syspref) = @_;
- if ( $syspref eq "ReturnBeforeExpiry") {
- return 1;
- }
- elsif ( $syspref eq "useDaysMode") {
- return 'Days';
- }
- else {
- return;
- }
- });
+ my ($self, $syspref) = @_;
+ if ( $syspref eq "ReturnBeforeExpiry" ) {
+ return 1;
+ } elsif ( $syspref eq "useDaysMode" ) {
+ return 'Days';
+ } else {
+ return;
+ }
+});
my $dateexpiry = '2013-01-01';
#Set syspref ReturnBeforeExpiry = 1 and useDaysMode != 'Days'
$contextmodule->mock('preference', sub {
- my ($self, $syspref) = @_;
- if ( $syspref eq "ReturnBeforeExpiry") {
- return 1;
- }
- elsif ($syspref eq "useDaysMode") {
- return 'noDays';
- }
- else {
- return;
- }
- });
+ my ($self, $syspref) = @_;
+ if ( $syspref eq "ReturnBeforeExpiry" ) {
+ return 1;
+ } elsif ( $syspref eq "useDaysMode" ) {
+ return 'noDays';
+ } else {
+ return;
+ }
+});
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
$start_date = DateTime->new({year => 2013, month => 2, day => 9});
#Set syspref ReturnBeforeExpiry = 0 and useDaysMode = 'Days'
$contextmodule->mock('preference', sub {
- my ($self, $syspref) = @_;
- if ( $syspref eq "ReturnBeforeExpiry") {
- return 0;
- }
- elsif ( $syspref eq "useDaysMode") {
- return 'Days';
- }
- else {
- return;
- }
- });
+ my ($self, $syspref) = @_;
+ if ( $syspref eq "ReturnBeforeExpiry" ) {
+ return 0;
+ } elsif ( $syspref eq "useDaysMode" ) {
+ return 'Days';
+ } else {
+ return;
+ }
+});
$borrower = {categorycode => 'B', dateexpiry => $dateexpiry};
$start_date = DateTime->new({year => 2013, month => 2, day => 9});