my $query_cgi;

    my $query_cgi;

    my $query_type;

    my $query_type;

    my $limit_cgi;

    my $limit_cgi;

    my $limit_desc;

    my $limit_desc;

        # This is needed otherwise ccl= and &limit won't work together, and

        # This is needed otherwise ccl= and &limit won't work together, and

        # this happens when selecting a subject on the opac-detail page

        # this happens when selecting a subject on the opac-detail page

        my $original_q = $q; # without available part

        my $original_q = $q; # without available part

        return ( undef, $q, $q, "q=ccl=".uri_escape_utf8($q), $original_q, '', '', '', 'ccl' );

        return ( undef, $q, $q, "q=ccl=".uri_escape_utf8($q), $original_q, '', '', '', 'ccl' );

    }

    }

    if ( $query =~ /^cql=/ ) {

    if ( $query =~ /^cql=/ ) {

        my ($dbh, $out) = @$args{qw(dbh out)};

        my ($dbh, $out) = @$args{qw(dbh out)};

        $dbh->do(q{

        $dbh->do(q{

            INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES

            INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES

        });

        });

        say $out "Added ComponentsSortField and ComponentsSortOrder sysprefs";

        say $out "Added ComponentsSortField and ComponentsSortOrder sysprefs";

    },

    },