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