|
Lines 160-165
elsif ($op eq 'add') {
Link Here
|
| 160 |
my $article_requests = $input->param('article_requests') || 'no'; |
160 |
my $article_requests = $input->param('article_requests') || 'no'; |
| 161 |
my $overduefinescap = $input->param('overduefinescap') || undef; |
161 |
my $overduefinescap = $input->param('overduefinescap') || undef; |
| 162 |
my $cap_fine_to_replacement_price = $input->param('cap_fine_to_replacement_price') eq 'on'; |
162 |
my $cap_fine_to_replacement_price = $input->param('cap_fine_to_replacement_price') eq 'on'; |
|
|
163 |
my $note = $input->param('note'); |
| 163 |
$debug and warn "Adding $br, $bor, $itemtype, $fine, $maxissueqty, $maxonsiteissueqty, $cap_fine_to_replacement_price"; |
164 |
$debug and warn "Adding $br, $bor, $itemtype, $fine, $maxissueqty, $maxonsiteissueqty, $cap_fine_to_replacement_price"; |
| 164 |
|
165 |
|
| 165 |
my $params = { |
166 |
my $params = { |
|
Lines 192-197
elsif ($op eq 'add') {
Link Here
|
| 192 |
overduefinescap => $overduefinescap, |
193 |
overduefinescap => $overduefinescap, |
| 193 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
194 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
| 194 |
article_requests => $article_requests, |
195 |
article_requests => $article_requests, |
|
|
196 |
note => $note, |
| 195 |
}; |
197 |
}; |
| 196 |
|
198 |
|
| 197 |
my $issuingrule = Koha::IssuingRules->find({categorycode => $bor, itemtype => $itemtype, branchcode => $br}); |
199 |
my $issuingrule = Koha::IssuingRules->find({categorycode => $bor, itemtype => $itemtype, branchcode => $br}); |