|
Lines 751-756
sub _fix_limit_special_cases {
Link Here
|
| 751 |
next unless defined($start) && defined($end); |
751 |
next unless defined($start) && defined($end); |
| 752 |
push @new_lim, "copydate:[$start TO $end]"; |
752 |
push @new_lim, "copydate:[$start TO $end]"; |
| 753 |
} |
753 |
} |
|
|
754 |
elsif ( $l =~ /^yr,st-numeric=(\d*|[*])-(\d*|[*])$/ ) { |
| 755 |
my $start = $1 || '*'; |
| 756 |
my $end = $2 || '*'; |
| 757 |
push @new_lim, "copydate:[$start TO $end]"; |
| 758 |
} |
| 754 |
elsif ( $l =~ /^yr,st-numeric=/ ) { |
759 |
elsif ( $l =~ /^yr,st-numeric=/ ) { |
| 755 |
my ($date) = ( $l =~ /^yr,st-numeric=(.*)$/ ); |
760 |
my ($date) = ( $l =~ /^yr,st-numeric=(.*)$/ ); |
| 756 |
next unless defined($date); |
761 |
next unless defined($date); |
| 757 |
- |
|
|