|
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"; |