Lines 151-157
elsif ($op eq 'add') {
Link Here
|
151 |
$issuelength = $issuelength eq q{} ? undef : $issuelength; |
151 |
$issuelength = $issuelength eq q{} ? undef : $issuelength; |
152 |
my $lengthunit = $input->param('lengthunit'); |
152 |
my $lengthunit = $input->param('lengthunit'); |
153 |
my $hardduedate = $input->param('hardduedate') || undef; |
153 |
my $hardduedate = $input->param('hardduedate') || undef; |
154 |
$hardduedate = eval { dt_from_string( $input->param('hardduedate') ) } if ( $hardduedate ); |
154 |
$hardduedate = eval { dt_from_string( scalar $input->param('hardduedate') ) } if ( $hardduedate ); |
155 |
$hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); |
155 |
$hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); |
156 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
156 |
my $hardduedatecompare = $input->param('hardduedatecompare'); |
157 |
my $rentaldiscount = $input->param('rentaldiscount'); |
157 |
my $rentaldiscount = $input->param('rentaldiscount'); |
Lines 159-164
elsif ($op eq 'add') {
Link Here
|
159 |
my $article_requests = $input->param('article_requests') || 'no'; |
159 |
my $article_requests = $input->param('article_requests') || 'no'; |
160 |
my $overduefinescap = $input->param('overduefinescap') || undef; |
160 |
my $overduefinescap = $input->param('overduefinescap') || undef; |
161 |
my $cap_fine_to_replacement_price = $input->param('cap_fine_to_replacement_price') eq 'on'; |
161 |
my $cap_fine_to_replacement_price = $input->param('cap_fine_to_replacement_price') eq 'on'; |
|
|
162 |
my $recall_due_date_interval = $input->param('recall_due_date_interval'); |
163 |
my $recall_overdue_fine = $input->param('recall_overdue_fine'); |
164 |
my $recall_shelf_time = $input->param('recall_shelf_time'); |
162 |
$debug and warn "Adding $br, $bor, $itemtype, $fine, $maxissueqty, $maxonsiteissueqty, $cap_fine_to_replacement_price"; |
165 |
$debug and warn "Adding $br, $bor, $itemtype, $fine, $maxissueqty, $maxonsiteissueqty, $cap_fine_to_replacement_price"; |
163 |
|
166 |
|
164 |
my $params = { |
167 |
my $params = { |
Lines 191-196
elsif ($op eq 'add') {
Link Here
|
191 |
overduefinescap => $overduefinescap, |
194 |
overduefinescap => $overduefinescap, |
192 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
195 |
cap_fine_to_replacement_price => $cap_fine_to_replacement_price, |
193 |
article_requests => $article_requests, |
196 |
article_requests => $article_requests, |
|
|
197 |
recall_due_date_interval => $recall_due_date_interval, |
198 |
recall_overdue_fine => $recall_overdue_fine, |
199 |
recall_shelf_time => $recall_shelf_time, |
194 |
}; |
200 |
}; |
195 |
|
201 |
|
196 |
my $issuingrule = Koha::IssuingRules->find({categorycode => $bor, itemtype => $itemtype, branchcode => $br}); |
202 |
my $issuingrule = Koha::IssuingRules->find({categorycode => $bor, itemtype => $itemtype, branchcode => $br}); |