Lines 1062-1075
sub _fix_limit_special_cases {
Link Here
|
1062 |
foreach my $l (@$limits) { |
1062 |
foreach my $l (@$limits) { |
1063 |
|
1063 |
|
1064 |
# This is set up by opac-search.pl |
1064 |
# This is set up by opac-search.pl |
1065 |
if ( $l =~ /^yr,st-numeric,ge=/ ) { |
1065 |
if ( $l =~ /^yr,st-numeric,ge[=:]/ ) { |
1066 |
my ( $start, $end ) = |
1066 |
my ( $start, $end ) = |
1067 |
( $l =~ /^yr,st-numeric,ge=(.*) and yr,st-numeric,le=(.*)$/ ); |
1067 |
( $l =~ /^yr,st-numeric,ge[=:](.*) and yr,st-numeric,le[=:](.*)$/ ); |
1068 |
next unless defined($start) && defined($end); |
1068 |
next unless defined($start) && defined($end); |
1069 |
push @new_lim, "date-of-publication:[$start TO $end]"; |
1069 |
push @new_lim, "date-of-publication:[$start TO $end]"; |
1070 |
} |
1070 |
} |
1071 |
elsif ( $l =~ /^yr,st-numeric=/ ) { |
1071 |
elsif ( $l =~ /^yr,st-numeric[=:]/ ) { |
1072 |
my ($date) = ( $l =~ /^yr,st-numeric=(.*)$/ ); |
1072 |
my ($date) = ( $l =~ /^yr,st-numeric[=:](.*)$/ ); |
1073 |
next unless defined($date); |
1073 |
next unless defined($date); |
1074 |
$date = $self->_modify_string_by_type(type => 'st-year', operand => $date); |
1074 |
$date = $self->_modify_string_by_type(type => 'st-year', operand => $date); |
1075 |
push @new_lim, "date-of-publication:$date"; |
1075 |
push @new_lim, "date-of-publication:$date"; |