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 193-198
elsif ($op eq 'add') {
Link Here
|
193 |
overduefinescap => $overduefinescap, |
194 |
overduefinescap => $overduefinescap, |
194 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
195 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
195 |
article_requests => $article_requests, |
196 |
article_requests => $article_requests, |
|
|
197 |
note => $note, |
196 |
}; |
198 |
}; |
197 |
|
199 |
|
198 |
my $issuingrule = Koha::IssuingRules->find({categorycode => $bor, itemtype => $itemtype, branchcode => $br}); |
200 |
my $issuingrule = Koha::IssuingRules->find({categorycode => $bor, itemtype => $itemtype, branchcode => $br}); |