Lines 253-258
elsif ($op eq 'add') {
Link Here
|
253 |
my $finedays = $input->param('finedays'); |
253 |
my $finedays = $input->param('finedays'); |
254 |
my $maxsuspensiondays = $input->param('maxsuspensiondays'); |
254 |
my $maxsuspensiondays = $input->param('maxsuspensiondays'); |
255 |
$maxsuspensiondays = undef if $maxsuspensiondays eq q||; |
255 |
$maxsuspensiondays = undef if $maxsuspensiondays eq q||; |
|
|
256 |
$maxsuspensiondays = '' if $maxsuspensiondays eq q||; |
256 |
my $suspension_chargeperiod = $input->param('suspension_chargeperiod') || 1; |
257 |
my $suspension_chargeperiod = $input->param('suspension_chargeperiod') || 1; |
257 |
my $firstremind = $input->param('firstremind'); |
258 |
my $firstremind = $input->param('firstremind'); |
258 |
my $chargeperiod = $input->param('chargeperiod'); |
259 |
my $chargeperiod = $input->param('chargeperiod'); |
Lines 262-272
elsif ($op eq 'add') {
Link Here
|
262 |
my $renewalsallowed = $input->param('renewalsallowed'); |
263 |
my $renewalsallowed = $input->param('renewalsallowed'); |
263 |
my $renewalperiod = $input->param('renewalperiod'); |
264 |
my $renewalperiod = $input->param('renewalperiod'); |
264 |
my $norenewalbefore = $input->param('norenewalbefore'); |
265 |
my $norenewalbefore = $input->param('norenewalbefore'); |
265 |
$norenewalbefore = undef if $norenewalbefore =~ /^\s*$/; |
266 |
$norenewalbefore = '' if $norenewalbefore =~ /^\s*$/; |
266 |
my $auto_renew = $input->param('auto_renew') eq 'yes' ? 1 : 0; |
267 |
my $auto_renew = $input->param('auto_renew') eq 'yes' ? 1 : 0; |
267 |
my $no_auto_renewal_after = $input->param('no_auto_renewal_after'); |
268 |
my $no_auto_renewal_after = $input->param('no_auto_renewal_after'); |
268 |
$no_auto_renewal_after = undef if $no_auto_renewal_after =~ /^\s*$/; |
269 |
$no_auto_renewal_after = '' if $no_auto_renewal_after =~ /^\s*$/; |
269 |
my $no_auto_renewal_after_hard_limit = $input->param('no_auto_renewal_after_hard_limit') || undef; |
270 |
my $no_auto_renewal_after_hard_limit = $input->param('no_auto_renewal_after_hard_limit') || ''; |
270 |
$no_auto_renewal_after_hard_limit = eval { dt_from_string( $input->param('no_auto_renewal_after_hard_limit') ) } if ( $no_auto_renewal_after_hard_limit ); |
271 |
$no_auto_renewal_after_hard_limit = eval { dt_from_string( $input->param('no_auto_renewal_after_hard_limit') ) } if ( $no_auto_renewal_after_hard_limit ); |
271 |
$no_auto_renewal_after_hard_limit = output_pref( { dt => $no_auto_renewal_after_hard_limit, dateonly => 1, dateformat => 'iso' } ) if ( $no_auto_renewal_after_hard_limit ); |
272 |
$no_auto_renewal_after_hard_limit = output_pref( { dt => $no_auto_renewal_after_hard_limit, dateonly => 1, dateformat => 'iso' } ) if ( $no_auto_renewal_after_hard_limit ); |
272 |
my $reservesallowed = $input->param('reservesallowed'); |
273 |
my $reservesallowed = $input->param('reservesallowed'); |
Lines 289-295
elsif ($op eq 'add') {
Link Here
|
289 |
my $rentaldiscount = $input->param('rentaldiscount'); |
290 |
my $rentaldiscount = $input->param('rentaldiscount'); |
290 |
my $opacitemholds = $input->param('opacitemholds') || 0; |
291 |
my $opacitemholds = $input->param('opacitemholds') || 0; |
291 |
my $article_requests = $input->param('article_requests') || 'no'; |
292 |
my $article_requests = $input->param('article_requests') || 'no'; |
292 |
my $overduefinescap = $input->param('overduefinescap') || undef; |
293 |
my $overduefinescap = $input->param('overduefinescap') || ''; |
293 |
my $cap_fine_to_replacement_price = $input->param('cap_fine_to_replacement_price') eq 'on'; |
294 |
my $cap_fine_to_replacement_price = $input->param('cap_fine_to_replacement_price') eq 'on'; |
294 |
my $note = $input->param('note'); |
295 |
my $note = $input->param('note'); |
295 |
$debug and warn "Adding $br, $bor, $itemtype, $fine, $maxissueqty, $maxonsiteissueqty, $cap_fine_to_replacement_price"; |
296 |
$debug and warn "Adding $br, $bor, $itemtype, $fine, $maxissueqty, $maxonsiteissueqty, $cap_fine_to_replacement_price"; |