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

(-)a/t/db_dependent/Overdues.t (-1 / +56 lines)
Lines 39-44 $dbh->do(q| Link Here
39
    ('MPL', 'bar')
39
    ('MPL', 'bar')
40
|);
40
|);
41
41
42
my $samplecat = {
43
    categorycode          => 'PT',
44
    description           => 'Description1',
45
    enrolmentperiod       => undef,
46
    enrolmentperioddate   => undef,
47
    dateofbirthrequired   => undef,
48
    finetype              => undef,
49
    bulk                  => undef,
50
    enrolmentfee          => undef,
51
    overduenoticerequired => undef,
52
    issuelimit            => undef,
53
    reservefee            => undef,
54
    hidelostitems         => 0,
55
    category_type         => 'A',
56
};
57
my $query =
58
"INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,dateofbirthrequired ,finetype,bulk,enrolmentfee,overduenoticerequired,issuelimit ,reservefee ,hidelostitems ,category_type) VALUES( ?,?,?,?,?,?,?,?,?,?,?,?,?)";
59
$dbh->do(
60
    $query, {},
61
    $samplecat->{categorycode},          $samplecat->{description},
62
    $samplecat->{enrolmentperiod},       $samplecat->{enrolmentperioddate},
63
    $samplecat->{dateofbirthrequired},   $samplecat->{finetype},
64
    $samplecat->{bulk},                  $samplecat->{enrolmentfee},
65
    $samplecat->{overduenoticerequired}, $samplecat->{issuelimit},
66
    $samplecat->{reservefee},            $samplecat->{hidelostitems},
67
    $samplecat->{category_type}
68
);
69
70
my $samplecat2 = {
71
    categorycode          => 'YA',
72
    description           => 'Description1',
73
    enrolmentperiod       => undef,
74
    enrolmentperioddate   => undef,
75
    dateofbirthrequired   => undef,
76
    finetype              => undef,
77
    bulk                  => undef,
78
    enrolmentfee          => undef,
79
    overduenoticerequired => undef,
80
    issuelimit            => undef,
81
    reservefee            => undef,
82
    hidelostitems         => 0,
83
    category_type         => 'A',
84
};
85
my $query2 =
86
"INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,dateofbirthrequired ,finetype,bulk,enrolmentfee,overduenoticerequired,issuelimit ,reservefee ,hidelostitems ,category_type) VALUES( ?,?,?,?,?,?,?,?,?,?,?,?,?)";
87
$dbh->do(
88
    $query2, {},
89
    $samplecat2->{categorycode},          $samplecat2->{description},
90
    $samplecat2->{enrolmentperiod},       $samplecat2->{enrolmentperioddate},
91
    $samplecat2->{dateofbirthrequired},   $samplecat2->{finetype},
92
    $samplecat2->{bulk},                  $samplecat2->{enrolmentfee},
93
    $samplecat2->{overduenoticerequired}, $samplecat2->{issuelimit},
94
    $samplecat2->{reservefee},            $samplecat2->{hidelostitems},
95
    $samplecat2->{category_type}
96
);
97
42
98
43
99
44
$dbh->do(q|
100
$dbh->do(q|
45
- 

Return to bug 18086