<banner type=banner>
<br>Der VTS-Code ist <a href="baseportal.pl?show=$htx">HIER</a>

<perl>
#####################################
# Volltextsuche mit Datenbank-Abfrage
# über ein zusätzliches Feld
#####################################

#--------------------------------------------------- vars
$vt_field     ="VT_Suche";  # Feld für VTS
$db           ="Adressen";
#-------------------------------------------------- vars ENDE

if($cmd eq "search") # Volltext Suchmodus ?
{#############################################################
if($_sel[0] eq $vt_field){
my @QUERY=@_sel;
my $tsearch=convert_url($_sel[2]); 
@QUERY= (splice(@QUERY,4,)) ;
@QUERY=map("|$_&_fullsearch~~$tsearch",split(/&/,"@QUERY"));
my $Qstring =substr("@QUERY",1);
$Qstring =~ s#~=#==#gi;
$url="$_link&_fullsearch_range=0,2500&$Qstring";
$_header="Location: $url\n"; #- direkt zum Ergebnis
}
elsif(@_sel>3)
{#---------------------- Alter ist das 2. Feld
 if($_sel[0] eq "Alter"){
   my @QUERY=@_sel;
   @FELD1=@_sel;
   @FELD1= (splice(@FELD1,0,3));
   @QUERY= (splice(@QUERY,4,));
   @QUERY=map("|$_&@FELD1",split(/&/,"@QUERY"));
   my $Qstring =substr("@QUERY",1);
   $url="$_link&$Qstring";
   $_header="Location: $url\n"; #- direkt zum Ergebnis
   }
 else{
   my $Qstring ="@_sel";
   $Qstring =~ s#&#|#gi;
   $url="$_link&_fullsearch_range=0,2500&$Qstring";
   $_header="Location: $url\n"; #- direkt zum Ergebnis
   }
}
else{
}

}##############################################################
# ENDE
#################
out "<br>Suchmodus: @_sel<hr>" if(@_sel);
</perl>

<do action=all db=Adressen listfields=-Id,Aktion,$vt_field formfields=-Id,$vt_field allfields=-Id,Aktion,$vt_field searchfields=-Id,Name selectbrowse=top buttonbrowse=top keyfield=Name fullsearch_match=500 range^=0,10 sort=Name convert_url=* >