convenience for allowing specification of "min" alone

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6768 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
index 4fc03e0..5a53366 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
@@ -2246,11 +2246,14 @@ sub xref_count {
        my $self = shift;
        my $client = shift;
        my $args = shift;
+
        my $term = $$args{term};
        my $limit = $$args{max} || 1;
        my $min = $$args{min} || 1;
        my @classes = @{$$args{class}};
 
+       $limit = $min if ($min > $limit);
+
        if (!@classes) {
                @classes = ( qw/ title author subject series keyword / );
        }