| Lines 2700-2711
          sub _adjust_pubyear {
      
      
        Link Here | 
        
          | 2700 |         $retval = $1; | 2700 |         $retval = $1; | 
        
          | 2701 |     } elsif( $retval =~ m/(\d\d\d\d)/ && $1 > 0 ) { | 2701 |     } elsif( $retval =~ m/(\d\d\d\d)/ && $1 > 0 ) { | 
        
          | 2702 |         $retval = $1; | 2702 |         $retval = $1; | 
          
            
              | 2703 |     } elsif( $retval =~ m/(\d)[.Xx?]{3}|(\d\d)[.Xx?]{2}|(\d{3})[.Xx?]/ ) { | 2703 |     } elsif( $retval =~ m/ | 
            
              | 2704 |         my $digits = $1 || $2 || $3; | 2704 |              (?<year>\d)[-]?[.Xx?]{3} | 
            
              | 2705 |         $retval = $digits * ( 10 ** ( 4 - length($digits) )); | 2705 |             |(?<year>\d{2})[.Xx?]{2} | 
            
              | 2706 |     } elsif( $retval =~ m/(\d)[-]{3}\?|(\d\d)[-]{2}\?|(\d{3})[-]\?/ ) { | 2706 |             |(?<year>\d{3})[.Xx?] | 
            
              | 2707 |         # the form 198-? occurred in Dutch ISBD rules | 2707 |             |(?<year>\d)[-]{3}\? | 
            
              | 2708 |         my $digits = $1 || $2 || $3; | 2708 |             |(?<year>\d\d)[-]{2}\? | 
            
              |  |  | 2709 |             |(?<year>\d{3})[-]\? | 
            
              | 2710 |     /xms ) { # the form 198-? occurred in Dutch ISBD rules | 
            
              | 2711 |         my $digits = $+{year}; | 
        
          | 2709 |         $retval = $digits * ( 10 ** ( 4 - length($digits) )); | 2712 |         $retval = $digits * ( 10 ** ( 4 - length($digits) )); | 
        
          | 2710 |     } | 2713 |     } | 
        
          | 2711 |     return $retval; | 2714 |     return $retval; | 
            
              | 2712 | -  |  |  |