| 
      
            Lines 258-264
          elsif ($op eq 'add') {
      
      
        Link Here
      
     | 
  
        
          | 258 | 
              my $maxissueqty = strip_non_numeric( scalar $input->param('maxissueqty') ); | 
          258 | 
              my $maxissueqty = strip_non_numeric( scalar $input->param('maxissueqty') ); | 
        
        
          | 259 | 
              my $maxonsiteissueqty = strip_non_numeric( scalar $input->param('maxonsiteissueqty') ); | 
          259 | 
              my $maxonsiteissueqty = strip_non_numeric( scalar $input->param('maxonsiteissueqty') ); | 
        
        
          | 260 | 
              my $renewalsallowed  = $input->param('renewalsallowed'); | 
          260 | 
              my $renewalsallowed  = $input->param('renewalsallowed'); | 
        
          
            
              | 261 | 
                  my $unseen_renewals_allowed  = $input->param('unseen_renewals_allowed'); | 
              261 | 
                  my $unseen_renewals_allowed  = $input->param('unseen_renewals_allowed') || 0; | 
            
        
          | 262 | 
              my $renewalperiod    = $input->param('renewalperiod'); | 
          262 | 
              my $renewalperiod    = $input->param('renewalperiod'); | 
        
        
          | 263 | 
              my $norenewalbefore  = $input->param('norenewalbefore'); | 
          263 | 
              my $norenewalbefore  = $input->param('norenewalbefore'); | 
        
        
          | 264 | 
              $norenewalbefore = '' if $norenewalbefore =~ /^\s*$/;  | 
          264 | 
              $norenewalbefore = '' if $norenewalbefore =~ /^\s*$/;  | 
        
  
    | 
      
            Lines 272-292
          elsif ($op eq 'add') {
      
      
        Link Here
      
     | 
  
        
          | 272 | 
              my $holds_per_record = strip_non_numeric( scalar $input->param('holds_per_record') ); | 
          272 | 
              my $holds_per_record = strip_non_numeric( scalar $input->param('holds_per_record') ); | 
        
        
          | 273 | 
              my $holds_per_day    = strip_non_numeric( scalar $input->param('holds_per_day') ); | 
          273 | 
              my $holds_per_day    = strip_non_numeric( scalar $input->param('holds_per_day') ); | 
        
        
          | 274 | 
              my $onshelfholds     = $input->param('onshelfholds') || 0; | 
          274 | 
              my $onshelfholds     = $input->param('onshelfholds') || 0; | 
        
          
            
              | 275 | 
                  my $issuelength  = $input->param('issuelength'); | 
              275 | 
                  my $issuelength  = $input->param('issuelength') || 0; | 
            
        
          | 276 | 
              $issuelength = $issuelength eq q{} ? undef : $issuelength; | 
          276 | 
              $issuelength = $issuelength eq q{} ? undef : $issuelength; | 
        
        
          | 277 | 
              my $daysmode = $input->param('daysmode'); | 
          277 | 
              my $daysmode = $input->param('daysmode'); | 
        
        
          | 278 | 
              my $lengthunit  = $input->param('lengthunit'); | 
          278 | 
              my $lengthunit  = $input->param('lengthunit'); | 
        
          
            
              | 279 | 
                  my $hardduedate = $input->param('hardduedate') || undef; | 
              279 | 
                  my $hardduedate = $input->param('hardduedate') || ''; | 
            
        
          | 280 | 
              $hardduedate = eval { dt_from_string( scalar $hardduedate ) } if ( $hardduedate ); | 
          280 | 
              $hardduedate = eval { dt_from_string( scalar $hardduedate ) } if ( $hardduedate ); | 
        
        
          | 281 | 
              $hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); | 
          281 | 
              $hardduedate = output_pref( { dt => $hardduedate, dateonly => 1, dateformat => 'iso' } ) if ( $hardduedate ); | 
        
        
          | 282 | 
              my $hardduedatecompare = $input->param('hardduedatecompare'); | 
          282 | 
              my $hardduedatecompare = $input->param('hardduedatecompare'); | 
        
          
            
              | 283 | 
                  my $rentaldiscount = $input->param('rentaldiscount'); | 
              283 | 
                  my $rentaldiscount = $input->param('rentaldiscount') || 0; | 
            
        
          | 284 | 
              my $opacitemholds = $input->param('opacitemholds') || 0; | 
          284 | 
              my $opacitemholds = $input->param('opacitemholds') || 0; | 
        
        
          | 285 | 
              my $article_requests = $input->param('article_requests') || 'no'; | 
          285 | 
              my $article_requests = $input->param('article_requests') || 'no'; | 
        
        
          | 286 | 
              my $overduefinescap = $input->param('overduefinescap') || ''; | 
          286 | 
              my $overduefinescap = $input->param('overduefinescap') || ''; | 
        
        
          | 287 | 
              my $cap_fine_to_replacement_price = ($input->param('cap_fine_to_replacement_price') || '') eq 'on'; | 
          287 | 
              my $cap_fine_to_replacement_price = ($input->param('cap_fine_to_replacement_price') || '') eq 'on'; | 
        
        
          | 288 | 
              my $note = $input->param('note'); | 
          288 | 
              my $note = $input->param('note'); | 
        
          
            
              | 289 | 
                  my $decreaseloanholds = $input->param('decreaseloanholds') || undef; | 
              289 | 
                  my $decreaseloanholds = $input->param('decreaseloanholds') || ''; | 
            
        
          | 290 | 
           | 
          290 | 
           | 
        
        
          | 291 | 
              my $rules = { | 
          291 | 
              my $rules = { | 
        
        
          | 292 | 
                  maxissueqty                   => $maxissueqty,  | 
          292 | 
                  maxissueqty                   => $maxissueqty,  |