|
Lines 78-94
Koha::Library->new($samplebranch2)->store;
Link Here
|
| 78 |
my $samplecat = { |
78 |
my $samplecat = { |
| 79 |
categorycode => 'CAT1', |
79 |
categorycode => 'CAT1', |
| 80 |
description => 'Description1', |
80 |
description => 'Description1', |
| 81 |
enrolmentperiod => 'Null', |
81 |
enrolmentperiod => undef, |
| 82 |
enrolmentperioddate => 'Null', |
82 |
enrolmentperioddate => undef, |
| 83 |
dateofbirthrequired => 'Null', |
83 |
dateofbirthrequired => undef, |
| 84 |
finetype => 'Null', |
84 |
finetype => undef, |
| 85 |
bulk => 'Null', |
85 |
bulk => undef, |
| 86 |
enrolmentfee => 'Null', |
86 |
enrolmentfee => undef, |
| 87 |
overduenoticerequired => 'Null', |
87 |
overduenoticerequired => undef, |
| 88 |
issuelimit => 'Null', |
88 |
issuelimit => undef, |
| 89 |
reservefee => 'Null', |
89 |
reservefee => undef, |
| 90 |
hidelostitems => 0, |
90 |
hidelostitems => 0, |
| 91 |
category_type => 'Null' |
91 |
category_type => 'A', |
| 92 |
}; |
92 |
}; |
| 93 |
my $query = |
93 |
my $query = |
| 94 |
"INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,dateofbirthrequired ,finetype,bulk,enrolmentfee,overduenoticerequired,issuelimit ,reservefee ,hidelostitems ,category_type) VALUES( ?,?,?,?,?,?,?,?,?,?,?,?,?)"; |
94 |
"INSERT INTO categories (categorycode,description,enrolmentperiod,enrolmentperioddate,dateofbirthrequired ,finetype,bulk,enrolmentfee,overduenoticerequired,issuelimit ,reservefee ,hidelostitems ,category_type) VALUES( ?,?,?,?,?,?,?,?,?,?,?,?,?)"; |
|
Lines 114-120
my $default = {
Link Here
|
| 114 |
#Test GetIssuingRule |
114 |
#Test GetIssuingRule |
| 115 |
my $sampleissuingrule1 = { |
115 |
my $sampleissuingrule1 = { |
| 116 |
reservecharge => '0.000000', |
116 |
reservecharge => '0.000000', |
| 117 |
chargename => 'Null', |
117 |
chargename => undef, |
| 118 |
restrictedtype => 0, |
118 |
restrictedtype => 0, |
| 119 |
accountsent => 0, |
119 |
accountsent => 0, |
| 120 |
maxissueqty => 5, |
120 |
maxissueqty => 5, |
|
Lines 132-138
my $sampleissuingrule1 = {
Link Here
|
| 132 |
hardduedate => '2013-01-01', |
132 |
hardduedate => '2013-01-01', |
| 133 |
branchcode => $samplebranch1->{branchcode}, |
133 |
branchcode => $samplebranch1->{branchcode}, |
| 134 |
fine => '0.000000', |
134 |
fine => '0.000000', |
| 135 |
hardduedatecompare => 5, |
135 |
hardduedatecompare => 0, |
| 136 |
overduefinescap => '0.000000', |
136 |
overduefinescap => '0.000000', |
| 137 |
renewalsallowed => 0, |
137 |
renewalsallowed => 0, |
| 138 |
firstremind => 0, |
138 |
firstremind => 0, |
|
Lines 153-178
my $sampleissuingrule2 = {
Link Here
|
| 153 |
itemtype => 'BOOK', |
153 |
itemtype => 'BOOK', |
| 154 |
maxissueqty => 2, |
154 |
maxissueqty => 2, |
| 155 |
maxonsiteissueqty => 1, |
155 |
maxonsiteissueqty => 1, |
| 156 |
renewalsallowed => 'Null', |
156 |
renewalsallowed => 0, |
| 157 |
renewalperiod => 2, |
157 |
renewalperiod => 2, |
| 158 |
norenewalbefore => 7, |
158 |
norenewalbefore => 7, |
| 159 |
auto_renew => 0, |
159 |
auto_renew => 0, |
| 160 |
reservesallowed => 'Null', |
160 |
reservesallowed => 0, |
| 161 |
issuelength => 2, |
161 |
issuelength => 2, |
| 162 |
lengthunit => 'days', |
162 |
lengthunit => 'days', |
| 163 |
hardduedate => 2, |
163 |
hardduedate => undef, |
| 164 |
hardduedatecompare => 'Null', |
164 |
hardduedatecompare => 0, |
| 165 |
fine => 'Null', |
165 |
fine => undef, |
| 166 |
finedays => 'Null', |
166 |
finedays => undef, |
| 167 |
firstremind => 'Null', |
167 |
firstremind => undef, |
| 168 |
chargeperiod => 'Null', |
168 |
chargeperiod => undef, |
| 169 |
chargeperiod_charge_at => 0, |
169 |
chargeperiod_charge_at => 0, |
| 170 |
rentaldiscount => 2.00, |
170 |
rentaldiscount => 2.00, |
| 171 |
overduefinescap => 'Null', |
171 |
overduefinescap => undef, |
| 172 |
accountsent => 'Null', |
172 |
accountsent => undef, |
| 173 |
reservecharge => 'Null', |
173 |
reservecharge => undef, |
| 174 |
chargename => 'Null', |
174 |
chargename => undef, |
| 175 |
restrictedtype => 'Null', |
175 |
restrictedtype => undef, |
| 176 |
maxsuspensiondays => 0, |
176 |
maxsuspensiondays => 0, |
| 177 |
onshelfholds => 1, |
177 |
onshelfholds => 1, |
| 178 |
opacitemholds => 'Y', |
178 |
opacitemholds => 'Y', |
|
Lines 186-211
my $sampleissuingrule3 = {
Link Here
|
| 186 |
itemtype => 'DVD', |
186 |
itemtype => 'DVD', |
| 187 |
maxissueqty => 3, |
187 |
maxissueqty => 3, |
| 188 |
maxonsiteissueqty => 2, |
188 |
maxonsiteissueqty => 2, |
| 189 |
renewalsallowed => 'Null', |
189 |
renewalsallowed => 0, |
| 190 |
renewalperiod => 3, |
190 |
renewalperiod => 3, |
| 191 |
norenewalbefore => 8, |
191 |
norenewalbefore => 8, |
| 192 |
auto_renew => 0, |
192 |
auto_renew => 0, |
| 193 |
reservesallowed => 'Null', |
193 |
reservesallowed => 0, |
| 194 |
issuelength => 3, |
194 |
issuelength => 3, |
| 195 |
lengthunit => 'days', |
195 |
lengthunit => 'days', |
| 196 |
hardduedate => 3, |
196 |
hardduedate => undef, |
| 197 |
hardduedatecompare => 'Null', |
197 |
hardduedatecompare => 0, |
| 198 |
fine => 'Null', |
198 |
fine => undef, |
| 199 |
finedays => 'Null', |
199 |
finedays => undef, |
| 200 |
firstremind => 'Null', |
200 |
firstremind => undef, |
| 201 |
chargeperiod => 'Null', |
201 |
chargeperiod => undef, |
| 202 |
chargeperiod_charge_at => 0, |
202 |
chargeperiod_charge_at => 0, |
| 203 |
rentaldiscount => 3.00, |
203 |
rentaldiscount => 3.00, |
| 204 |
overduefinescap => 'Null', |
204 |
overduefinescap => undef, |
| 205 |
accountsent => 'Null', |
205 |
accountsent => undef, |
| 206 |
reservecharge => 'Null', |
206 |
reservecharge => undef, |
| 207 |
chargename => 'Null', |
207 |
chargename => undef, |
| 208 |
restrictedtype => 'Null', |
208 |
restrictedtype => undef, |
| 209 |
maxsuspensiondays => 0, |
209 |
maxsuspensiondays => 0, |
| 210 |
onshelfholds => 1, |
210 |
onshelfholds => 1, |
| 211 |
opacitemholds => 'F', |
211 |
opacitemholds => 'F', |
| 212 |
- |
|
|