Lines 1061-1068
sub _fix_limit_special_cases {
Link Here
|
1061 |
next unless defined($start) && defined($end); |
1061 |
next unless defined($start) && defined($end); |
1062 |
push @new_lim, "date-of-publication:[$start TO $end]"; |
1062 |
push @new_lim, "date-of-publication:[$start TO $end]"; |
1063 |
} |
1063 |
} |
1064 |
elsif ( $l =~ /^yr,st-numeric=/ ) { |
1064 |
elsif ( $l =~ /^yr,st-numeric[=:]/ ) { |
1065 |
my ($date) = ( $l =~ /^yr,st-numeric=(.*)$/ ); |
1065 |
my ($date) = ( $l =~ /^yr,st-numeric[=:](.*)$/ ); |
1066 |
next unless defined($date); |
1066 |
next unless defined($date); |
1067 |
$date = $self->_modify_string_by_type(type => 'st-year', operand => $date); |
1067 |
$date = $self->_modify_string_by_type(type => 'st-year', operand => $date); |
1068 |
push @new_lim, "date-of-publication:$date"; |
1068 |
push @new_lim, "date-of-publication:$date"; |