sub tag_sql_list {
  my($text,$ary,$nh,$opt,$na) = @_;
$opt = {} unless defined $opt;
$opt->{prefix}      = 'sql' if ! defined $opt->{prefix};
$opt->{list_prefix} = 'sql[-_]list' if ! defined $opt->{prefix};

my $object = {
        mv_results => $ary,
        mv_field_hash => $nh,
        mv_return_fields => $na,
        mv_more_id => $opt->{mv_more_id},
        matches => scalar @$ary,
      };

# Scans the option hash for more search settings if mv_more_alpha
# is set in [query ...] tag....
if($opt->{ma}) {
  # Find the sort field and alpha options....
  Vend::Scan::parse_profile_ref($object, $opt);
  # We need to turn the hash reference into a search object
  $object = new Vend::Search (%$object);
  # Delete this so it will meet conditions for creating a more
  delete $object->{mv_matchlimit};
}

$opt->{object} = $object;
  return region($opt, $text);
}