| Lines 250-265
          sub get_letter_loop {
      
      
        Link Here | 
        
          | 250 |     ]; | 250 |     ]; | 
        
          | 251 | } | 251 | } | 
        
          | 252 |  | 252 |  | 
            
              | 253 | sub _get_sub_length { |  |  | 
            
              | 254 |     my ($type, $length) = @_; | 
            
              | 255 |     return | 
            
              | 256 |         ( | 
            
              | 257 |             $type eq 'issues' ? $length : 0, | 
            
              | 258 |             $type eq 'weeks'   ? $length : 0, | 
            
              | 259 |             $type eq 'months'  ? $length : 0, | 
            
              | 260 |         ); | 
            
              | 261 | } | 
            
              | 262 |  | 
        
          | 263 | sub _guess_enddate { | 253 | sub _guess_enddate { | 
        
          | 264 |     my ($startdate_iso, $frequencyid, $numberlength, $weeklength, $monthlength) = @_; | 254 |     my ($startdate_iso, $frequencyid, $numberlength, $weeklength, $monthlength) = @_; | 
        
          | 265 |     my ($year, $month, $day); | 255 |     my ($year, $month, $day); | 
  
    | Lines 303-309
          sub redirect_add_subscription {
      
      
        Link Here | 
        
          | 303 |     my $subtype = $query->param('subtype'); | 293 |     my $subtype = $query->param('subtype'); | 
        
          | 304 |     my $sublength = $query->param('sublength'); | 294 |     my $sublength = $query->param('sublength'); | 
        
          | 305 |     my ( $numberlength, $weeklength, $monthlength ) | 295 |     my ( $numberlength, $weeklength, $monthlength ) | 
          
            
              | 306 |         = _get_sub_length( $subtype, $sublength ); | 296 |         = C4::Serials->_get_sub_length( $subtype, $sublength ); | 
        
          | 307 |     my $add1              = $query->param('add1'); | 297 |     my $add1              = $query->param('add1'); | 
        
          | 308 |     my $lastvalue1        = $query->param('lastvalue1'); | 298 |     my $lastvalue1        = $query->param('lastvalue1'); | 
        
          | 309 |     my $innerloop1        = $query->param('innerloop1'); | 299 |     my $innerloop1        = $query->param('innerloop1'); | 
  
    | Lines 381-387
          sub redirect_mod_subscription {
      
      
        Link Here | 
        
          | 381 |     my $subtype = $query->param('subtype'); | 371 |     my $subtype = $query->param('subtype'); | 
        
          | 382 |     my $sublength = $query->param('sublength'); | 372 |     my $sublength = $query->param('sublength'); | 
        
          | 383 |     my ($numberlength, $weeklength, $monthlength) | 373 |     my ($numberlength, $weeklength, $monthlength) | 
          
            
              | 384 |         = _get_sub_length( $subtype, $sublength ); | 374 |         = C4::Serials->_get_sub_length( $subtype, $sublength ); | 
        
          | 385 |     my $numberpattern = $query->param('numbering_pattern'); | 375 |     my $numberpattern = $query->param('numbering_pattern'); | 
        
          | 386 |     my $locale = $query->param('locale'); | 376 |     my $locale = $query->param('locale'); | 
        
          | 387 |     my $lastvalue1 = $query->param('lastvalue1'); | 377 |     my $lastvalue1 = $query->param('lastvalue1'); |