View | Details | Raw Unified | Return to bug 9743
Collapse All | Expand All

(-)a/t/db_dependent/Reserves.t (-6 / +24 lines)
Lines 4-10 use strict; Link Here
4
use warnings;
4
use warnings;
5
use C4::Branch;
5
use C4::Branch;
6
6
7
use Test::More tests => 4;
7
use Test::More tests => 7;
8
use MARC::Record;
8
use MARC::Record;
9
use C4::Biblio;
9
use C4::Biblio;
10
use C4::Items;
10
use C4::Items;
Lines 21-28 diag("\nCreating biblio instance for testing."); Link Here
21
my ($bibnum, $title, $bibitemnum) = create_helper_biblio();
21
my ($bibnum, $title, $bibitemnum) = create_helper_biblio();
22
22
23
# Helper item for that biblio.
23
# Helper item for that biblio.
24
my @branches = GetBranchesLoop();
25
my $branch = $branches[0][0]{value};
24
diag("Creating item instance for testing.");
26
diag("Creating item instance for testing.");
25
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum);
27
my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => $branch||'CPL', holdingbranch => $branch||'CPL' } , $bibnum);
26
28
27
# Modify item; setting barcode.
29
# Modify item; setting barcode.
28
my $testbarcode = '97531';
30
my $testbarcode = '97531';
Lines 50-58 my $notes = ''; Link Here
50
my $checkitem      = undef;
52
my $checkitem      = undef;
51
my $found          = undef;
53
my $found          = undef;
52
54
53
my @branches = GetBranchesLoop();
54
my $branch = $branches[0][0]{value};
55
56
AddReserve($branch,    $borrowernumber, $biblionumber,
55
AddReserve($branch,    $borrowernumber, $biblionumber,
57
        $constraint, $bibitems,  $priority, $resdate, $expdate, $notes,
56
        $constraint, $bibitems,  $priority, $resdate, $expdate, $notes,
58
        $title,      $checkitem, $found);
57
        $title,      $checkitem, $found);
Lines 66-71 ok($status eq "Reserved", "CheckReserves Test 2"); Link Here
66
($status, $reserve, $all_reserves) = CheckReserves(undef, $barcode);
65
($status, $reserve, $all_reserves) = CheckReserves(undef, $barcode);
67
ok($status eq "Reserved", "CheckReserves Test 3");
66
ok($status eq "Reserved", "CheckReserves Test 3");
68
67
68
#tests for mandatory hold notes
69
my $shownotes=C4::Context->preference('OPACShowHoldNotes');
70
my $mandnotes=C4::Context->preference('OPACMandatoryHoldNotes');
71
C4::Context->set_preference('OPACShowHoldNotes', 1);
72
C4::Context->set_preference('OPACMandatoryHoldNotes', '1&2');
73
my $record=GetMarcBiblio($bibnum);
74
my $retval= C4::Reserves::GetMandatoryNoteReason($bibnum,$record);
75
ok($retval==1, "Mandatory hold notes test 1");
76
C4::Context->set_preference('OPACMandatoryHoldNotes', '4');
77
$retval= C4::Reserves::GetMandatoryNoteReason($bibnum,$record);
78
ok($retval==0, "Mandatory hold notes test 2");
79
C4::Context->set_preference('OPACMandatoryHoldNotes', '1&2');
80
C4::Context->set_preference('OPACShowHoldNotes', 0);
81
$retval= C4::Reserves::GetMandatoryNoteReason($bibnum,$record);
82
ok($retval==0, "Mandatory hold notes test 3");
83
#reset prefs
84
C4::Context->set_preference('OPACShowHoldNotes', $shownotes);
85
C4::Context->set_preference('OPACMandatoryHoldNotes', $mandnotes);
86
69
87
70
# Teardown Test---------------------
88
# Teardown Test---------------------
71
# Delete item.
89
# Delete item.
Lines 83-88 sub create_helper_biblio { Link Here
83
    $bib->append_fields(
101
    $bib->append_fields(
84
        MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
102
        MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
85
        MARC::Field->new('245', ' ', ' ', a => $title),
103
        MARC::Field->new('245', ' ', ' ', a => $title),
104
        MARC::Field->new('300', ' ', ' ', a => '2 vols for triggering notes'),
86
    );
105
    );
87
    return ($bibnum, $title, $bibitemnum) = AddBiblio($bib, '');
106
    return ($bibnum, $title, $bibitemnum) = AddBiblio($bib, '');
88
}
107
}
89
- 

Return to bug 9743