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 |
- |
|
|