sql_list —
Interchange 5.9.0:
Source: lib/Vend/Interpolate.pm
Lines: 4700
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); }