<pre>&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01 Transitional//EN&quot;  &quot;http://www.w3.org/TR/html4/loose.dtd&quot;&gt;
&lt;html&gt;&lt;head&gt;&lt;title&gt;Ajax Script4All - www.bei123.de - Alles aus baseportal herausholen&lt;/title&gt;
&lt;meta http-equiv=&quot;content-type&quot; content=&quot;text/html; charset=ISO-8859-1&quot;&gt;
&lt;meta http-equiv=&quot;Content-Script-Type&quot; content=&quot;text/javascript&quot;&gt;&lt;script type=&quot;text/javascript&quot; language=&quot;JavaScript&quot;&gt;function _display(x){eval(x);}&lt;/script&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;perl&gt;
################################################################################### siehe 1.) bis 5.)
&amp;DEFINITIONEN();# !!!! die Subroutine hier als Erstes stehen lassen !!!!
#################

#........................................................... 1.) Name des baseportal Accounts anpassen 

$my_Baseportal_ = &quot;/bei123/&quot; ; # Name des EIGENEN baseportal Miet- oder Kostenlos-Accounts !!!!!!!!!!

#........................................................... 2.) $IntroMessage ggf. &auml;ndern/l&ouml;schen

$IntroMessage =&quot;W&auml;hlen Sie aus dem Men&uuml; aus ! &lt;h2&gt;...Demo&lt;/h2&gt; &lt;center&gt;&lt;p&gt;Frohe Weihnachten w&uuml;nscht Euch allen &lt;i&gt;Harald Fehde&lt;/i&gt;&lt;/p&gt;&lt;/center&gt;&quot;;

#........................................................... 3.) Name Datei-Pseudonyme anpassen 
#- &Uuml;ber Pseudonyme werden entsprechende Links zum Auruf generiert !!!
#- Datenbank-Verzeichnisse im Men&uuml; (siehe 5.) mit $show{BaseLink}-&gt;('Pseudonym') abrufbar.

%Datei =
(
&quot;Autos&quot;      =&gt; $my_Baseportal_.&quot;AUTO/Autos&quot;,

&quot;Hersteller&quot; =&gt; $my_Baseportal_.&quot;AUTO/Autohersteller&quot;, 

&quot;Werkstatt&quot;  =&gt; $my_Baseportal_.&quot;AUTO/Ersatzteile&quot;, 
);

#............................................................ 4.) diverse eigene Relationen festlegen 
# ACHTUNG: die Datei 'Werkstatt' hat eine baseportal-Relation,
#          deshalb &quot;AutoTyp==*&quot; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#          baseportal hier seine &quot;Schw&auml;che&quot;
##############################################################
%Relationen =
(
&quot;Hersteller&quot; =&gt; {
             &quot;HerstellerAutos&quot;          =&gt; [$Datei{'Autos'},&quot;Hersteller==Hersteller&quot;],      
              },

&quot;Autos&quot;      =&gt; {
             &quot;Typen_ErsatzTeile&quot;        =&gt; [$Datei{'Werkstatt'},&quot;AutoTyp==Id&quot;],           
             &quot;HerstellerAdresse&quot;        =&gt; [$Datei{'Hersteller'},&quot;Hersteller==Hersteller&quot;],
             &quot;Alle_HerstellerAutos&quot;     =&gt; [$Datei{'Autos'},&quot;Hersteller==Hersteller&quot;],                   
             }, 
&quot;Werkstatt&quot; =&gt; {
             &quot;Gleichartige_Ersatzteile&quot; =&gt; [$Datei{'Werkstatt'},&quot;Ersatzteil==Ersatzteil&quot;],      
              },

);
#.......................................................... 5.) Das Men&uuml; mit $show{BaseLink}-&gt;('Pseudonym')
#                                                               definieren 

out &quot;&lt;b&gt;Men&uuml;&lt;/b&gt;&amp;nbsp;&quot;.$show{BaseLink}-&gt;('Autos').&quot;&amp;nbsp;&quot;.$show{BaseLink}-&gt;('Hersteller').&quot;&amp;nbsp;&quot;.$show{BaseLink}-&gt;('Werkstatt'); 

out ' ..................... (siehe &lt;a href=&quot; http://baseportal.de/cgi-bin/baseportal.pl?show=/bei123/_script4all&quot; target=&quot;_BLANK&quot;&gt;&lt;b&gt;&amp;lt;Code&amp;gt;&lt;/b&gt;&lt;/a&gt; - Programm von H.Fehde &amp; Dank an &lt;i&gt;Sander&lt;/i&gt;)'; #...........................................................    6.) dies obige out L&Ouml;SCHEN !!!!!!!!!!!!!!!! 

out &quot;&lt;div id='_BASE' style='border:1px solid silver'&gt;$IntroMessage&lt;/div&gt;&quot;; ## siehe 2.)
#-------------------------------------------------------------------------------------------------------
############################## man darf auch selber weitermachen - DEMO !!!!!!!
$SO_WEIT_SO_GUT=&quot;&lt;font size=4 color=red&gt;So weit, so gut.... DEMO !&lt;/font&gt;&lt;br&gt;Folgende &lt;b&gt;Variablen&lt;/b&gt; liegen bis hier vor:&lt;br&gt;&quot;;
$SO_WEIT_SO_GUT.=&quot;(&lt;b&gt;\$div&lt;/b&gt;=[$div], &lt;b&gt;\$pseu&lt;/b&gt;=[$pseu], &lt;b&gt;\$db&lt;/b&gt;=[$db], &lt;b&gt;\$id&lt;/b&gt;=[$id], &lt;b&gt;\$sort&lt;/b&gt;=[$sort], &lt;b&gt;\$get&lt;/b&gt;=[$get], &lt;b&gt;\$display&lt;/b&gt;=[$display], &lt;b&gt;\$sel&lt;/b&gt;=[$sel], &lt;b&gt;\$more&lt;/b&gt;=[$more] )&lt;br&gt;&quot;;
$SO_WEIT_SO_GUT.=&quot;&lt;font size=4 font color=blue&gt;... selbst ist der Mann / die Frau .......  ;-) &lt;/font&gt;&lt;br&gt;&lt;center&gt;Mit freundlichen &quot;.convert_html('Gr&uuml;&szlig;en').&quot;&lt;br&gt;&lt;i&gt;Harald Fehde&lt;/i&gt;&lt;/center&gt;&quot;;


#################################################################################### Variablen und Subs
#                             ACHTUNG:  AB HIER NU &Auml;NDERN, wenn SIE das Programm
#                                       verstanden haben !!!!!!!!!!!!!!!!!!!!!!!    
########################################################################################################

%MY_PSEUDONYME=reverse(%Datei);   # ??? &gt;-------&gt; von $db auf eindeutiges Pseudonym r&uuml;ckschlie&szlig;en


sub DEFINITIONEN
{################################# --------------------------------------- MEN&Uuml;LINKS generieren
%show =
(
BaseLink =&gt; sub{my $BL=convert_html($_[0]);return qq{&lt;a name=&quot;$BL&quot; onclick='display(&quot;div=_BASE&amp;pseu=&quot;+this.name+&quot;&amp;db=$Datei{$BL}&amp;id=&amp;sort=&amp;get=&amp;display=&quot;)' style=&quot;padding:1px;border:2px solid silver;border-bottom:1px solid #ffffff;background-color:#f0f0f0;color:blue;font-weight:normal;cursor:pointer&quot; onMouseOver=(this.style.backgroundColor=&quot;#ffffff&quot;,this.style.color=&quot;#000000&quot;,this.style.fontWeight=&quot;normal&quot;) onMouseOut=(this.style.backgroundColor=&quot;#f0f0f0&quot;,this.style.color=&quot;blue&quot;,this.style.fontWeight=&quot;normal&quot;)&gt;&amp;nbsp;$BL&amp;nbsp;&lt;/a&gt;}},
);
}#################################

sub MY_BASE_INNER_HTML
{#################################
($pseu,$db,$id,$sort,$get,$display,$sel,$more)=@_;
#---------------------------------------------
$MY__BASE=&quot;&quot;;
$my_display=($div eq &quot;_BASE&quot; ? &quot;_MORE&quot;:$div);
#-------------------------------------------------------------------------------------------- AnwendungLink
$_Anwendung=&quot;&lt;a onclick=(display('div=&quot;.$my_display.&quot;&amp;pseu=&quot;.$pseu.&quot;&amp;db=&quot;.$db.&quot;&amp;id=&quot;.$id.&quot;&amp;sort=&quot;.$sort.&quot;&amp;get=Anwendung&amp;display=&quot;.$div.&quot;')) style='color:blue;font-weight:bold;cursor:pointer'&gt;Anwendung&lt;/a&gt;&quot;;

$_Relationen=&quot;&lt;a onclick=(display('div=&quot;.$my_display.&quot;&amp;pseu=&quot;.$pseu.&quot;&amp;db=&quot;.$db.&quot;&amp;id=&quot;.$id.&quot;&amp;sort=&quot;.$sort.&quot;&amp;get=Relationen&amp;display=&quot;.$div.&quot;')) style='color:blue;font-weight:bold;cursor:pointer'&gt;Relationen&lt;/a&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;;
#------------------------------------------------- ggf. weitere Links je nach Pseudonym, falls id nicht LEER

#--------------------------------------------------------------------------------------------------------
my $more_aktion=($id ne &quot;&quot; ? &quot;Datensatz&quot; : &quot;Datenbank&quot;);
my $m_aktion=&quot;&lt;a onclick=(display('div=&quot;.$my_display.&quot;&amp;pseu=&quot;.$pseu.&quot;&amp;db=&quot;.$db.&quot;&amp;id=&quot;.$id.&quot;&amp;sort=&quot;.$sort.&quot;&amp;get=&quot;.$more_aktion.&quot;&amp;display=&quot;.$div.&quot;')) style='color:blue;font-weight:bold;cursor:pointer'&gt;$more_aktion&lt;/a&gt;&quot;;
#--------------------------------------------------------------------------------------------------------

$_Auswahl_Darstellung=&quot;&quot;;
#########################
if($id ne &quot;&quot;)
{#--------------------------------------- also EIN Datensatz angezeigt
if(keys(%{$Relationen{$pseu}})&gt;0)
{#--------------------------------------- falls stimmige Relationen festgelegt
foreach(keys(%{$Relationen{$pseu}}))
{#*************************************** wie in Hash %MY_MORE &quot;MyRelationen&quot; =&gt; sub aufrufen
$_Auswahl_Darstellung.=&quot;&lt;a onclick=(display('div=_MORE&amp;pseu=&quot;.convert_html($pseu).&quot;&amp;db=&quot;.$db.&quot;&amp;id=&quot;.$id.&quot;&amp;sort=&quot;.$sort.&quot;&amp;get=Relation&amp;display=_BASE&amp;more=&quot;.convert_html($_).&quot;')) style='color:blue;font-weight:bold;cursor:pointer'&gt;&quot;.convert_html($_).&quot;&lt;/a&gt;&amp;nbsp;&amp;nbsp;|&amp;nbsp;&amp;nbsp;&quot;;
}#***************************************
}
}
#------------------------------------------------------------------------------------------------------
$my__ID=&quot;Id(&lt;span style='font-weight:bold;background-color:aliceblue'&gt;$id&lt;/span&gt;) &quot; if($id ne &quot;&quot;);
$my__SORT=&quot;Sort(&lt;span style='font-weight:bold;background-color:aliceblue'&gt;$sort&lt;/span&gt;) &quot; if($sort ne &quot;&quot;);
#------------------------------------------------------------------------------------------------------
$MY__BASE.=&quot;&lt;div style='width:100%;border-top:1px solid silver;border-bottom:1px solid silver'&gt;&quot;;
$MY__BASE.=&quot;&lt;div style='width:50%;float:left'&gt;$m_aktion &lt;b&gt;&quot;.$pseu.&quot; &quot;.$MY_PESUDONYME{$db}.&quot;&lt;/b&gt; $my__ID $my__SORT&lt;/div&gt;&quot;;
$MY__BASE.=&quot;&lt;div style='width:49.99%;float:left;text-align:right;color:silver'&gt;$_Anwendung&amp;nbsp;&amp;nbsp;|&amp;nbsp;&amp;nbsp;$_Relationen&lt;/div&gt;&quot;;
$MY__BASE.=&quot;&lt;div style='width:0.01%;clear:left'&gt;&lt;/div&gt;&quot;;
$MY__BASE.=&quot;&lt;/div&gt;&quot;;
#-------------------------------------------------------------------------------------------------------
$MY__BASE.=&amp;MY_INNER_BASE($pseu,$db,$id,$sort,$get,$display,$sel);
$MY__BASE.=&quot;&lt;div style='border-top:1px solid silver;background-color:#ffffff;color:silver'&gt;$_Auswahl_Darstellung&lt;/div&gt;&quot;;
$MY__BASE.=&quot;&lt;div id='_MORE' style='border-bottom:0px solid silver;border-top:1px solid silver;'&gt;&lt;/div&gt;&quot;;
#--------------------------------------------------------------------------------------------------------
return($MY__BASE);
}#################################

sub MY_MORE_INNER_HTML
{#####################
($pseu,$db,$id,$sort,$get,$display,$sel,$more)=@_;
#----------------------------------------------------- nachfolgend ein close-&quot;Button&quot;
$MY_RETURN_MORE=&quot;&lt;div style='background-color:#d0d0d0;border-bottom:1px solid #808080;border-right:1px solid #808080;border-top:1px solid #ffffff;border-left:1px solid #ffffff;text-align:center;color:#d80000;font-weight:bold;cursor:pointer;font-size:0.8em' onclick=(display('div=&quot;.$display.&quot;&amp;pseu=&quot;.$pseu.&quot;&amp;db=&quot;.$db.&quot;&amp;id=&quot;.$id.&quot;&amp;sort=&quot;.$sort.&quot;&amp;get=&quot;.$get.&quot;&amp;display=&quot;.$display.&quot;&amp;more=&quot;.$more.&quot;')) style=''&gt; &amp;laquo; ---------- close -------- &amp;raquo; &lt;/div&gt;&quot;;
#................................................... verschiedene Erweiterungs-M&ouml;glichkeiten offen lassen
#                                                      %MY_MORE also als sub erg&auml;nzen/definieren

%MY_MORE =
(
Anwendung    =&gt; &amp;MY_ANWENDUNG_AKTION($pseu,$db,$id,$sort,$get,$display,$sel,$more),
Relationen   =&gt; &amp;MY_RELATIONEN_AKTION($pseu,$db,$id,$sort,$get,$display,$sel,$more),
Datensatz    =&gt; &amp;MY_DATENSATZ($pseu,$db,$id,$sort,$get,$display,$sel,$more),
Datenbank    =&gt; &amp;MY_DATENBANK($pseu,$db,$id,$sort,$get,$display,$sel,$more),
Sonstiges    =&gt; &quot; &quot;,
Weiteres     =&gt; &quot; &quot;,
E_N_D_E      =&gt; &quot; !!! MY_DATENBANK_RELATIONEN muss der letzte key im Hash sein !!! &quot;,
Relation     =&gt; &amp;MY_DATENBANK_RELATION($pseu,$db,$id,$sort,$get,$display,$sel,$more),
);
#-------------------------------------------------------------------------------------------------------- 

$MY_MORE{$get}=$MY_MORE{$get}||&quot;&lt;font color='red'&gt;&lt;b&gt;Achtung&lt;/b&gt;&lt;/font&gt; : HashWert &lt;b&gt;\$MY_MORE{$get}&lt;/b&gt; in &lt;b&gt;sub MY_MORE_INNER_HTML&lt;/b&gt; (bisher) nicht deniert&quot;;
$MY_RETURN_MORE.=$MY_MORE{$get};
return($MY_RETURN_MORE);
}#####################

sub MY_DATENBANK_RELATION
{########################
($pseu,$db,$id,$sort,$get,$display,$sel,$more)=@_;
#------------------------------------
$SQL=${$Relationen{$pseu}{$more}}[1];
$DB=${$Relationen{$pseu}{$more}}[0];
@SQL=split(/==/,$SQL);
#------------------------------------
get &quot;Id==$id&quot;,&quot;$db&quot;;
#%DETAIL=%_raw; #------------------------------------------- DA KANN MAN DO NOCH MEHR DRAUS MACHEN ?!
my $Value=$_raw{$SQL[1]};
my $Field=$SQL[0];
$Value=~ s/ /\\ /gi;
$sel=&quot;$Field==!$Value&quot;;
#------------------------------------
$FILTER{Wert}=$Value;
$FILTER{Feld}=$Field;
$FILTER{DB}=$DB;
#------------------------------------
$pseu=$MY_PSEUDONYME{$DB} if($sel ne &quot;&quot;); 
&amp;MY_INNER_BASE($pseu,$DB,&quot;&quot;,$sort,$get,&quot;_BASE&quot;,$sel,$more);
}##############################################################################

sub MY_INNER_BASE_OLD
{#############################################
($pseu,$db,$id,$sort,$get,$display,$sel,$more)=@_;
#------------------------------------------------------------- Datei $db einlesen/auswerten
&amp;MY_DB_INFO($pseu,$db,$id,$sort,$get,$display,$more);
#------------------------------------------------------------- Daten der $db ausgeben
my $height=($id ne &quot;&quot; ? &quot;4em&quot; : &quot;16em&quot;);
$ausgabe.=&quot;&lt;div style='height:$height;overflow:auto;background-color:#f0f0f0'&gt;&lt;table cellpadding=3 cellspacing=2 style='border:0px solid #ffffff;width:90%'&gt;&lt;tr&gt;&quot;;
#---------------------------------------------------------------------- Sortierung ?
if($id ne &quot;&quot; or $sel ne &quot;&quot;)
{
map{$ausgabe.=&quot;&lt;td&gt;&lt;b&gt;&quot;.convert_html($_).&quot;&lt;b&gt;&lt;/td&gt;&quot;}(@{$DBF{Field}});
}
else
{
map{$ausgabe.=&amp;MY_SORTIERUNG($_,$pseu,$db,$id,$sort,$get)}(@{$DBF{Field}});
}
$ausgabe.=&quot;&lt;/tr&gt;&quot;;
#----------------------------------------------------------------------------------

get &quot;Id==$id sort=$sort $sel&quot;,&quot;$db&quot;,&quot;DB&quot;;
#------------------------------
while(get_next(&quot;DB&quot;))
{#***************************************** falls Relationsfeld vorhanden, dann Link
my $satz=&quot;&quot;;
map{$satz.=($RW{$_} ne &quot;&quot; ? &quot;&lt;td&gt;&quot;.&amp;MY_SATZ_LINK(&quot; &amp;reg; &quot;.convert_html($RW{$_}{$_raw{$_}}),$MY_PSEUDONYME{$my_Baseportal_.$R{$_}[2]},&quot;$my_Baseportal_&quot;.$R{$_}[2],$_raw{$_},$sort,$get,$display).&quot;&lt;/td&gt;&quot; : (($_ eq &quot;Id&quot; ? ($id ne &quot;&quot; ? &quot;&lt;td bgcolor='#ffffff'&gt;&quot;.convert_html($_raw{$_}).&quot;&lt;/td&gt;&quot; : &quot;&lt;td bgcolor='#ffffff'&gt;&quot;.&amp;MY_SATZ_LINK(&quot;&lt;b&gt;$_id&lt;/b&gt;&quot;,$pseu,$db,$_raw{$_},$sort,$get,$display).&quot;&lt;/td&gt;&quot;) : &quot;&lt;td&gt;&quot;.convert_html($_raw{$_}).&quot;&lt;/td&gt;&quot;))  )}(@{$DBF{Field}});
$ausgabe.=&quot;&lt;tr&gt;$satz&lt;/tr&gt;&quot;;
}#**********************************************************************************
$ausgabe.=&quot;&lt;/table&gt;&lt;/div&gt;&quot;;
#----------------------------------------------
@{$DBF{Field}}=&quot;&quot;;
return($ausgabe);
}#############################################

sub MY_INNER_BASE
{#############################################
($pseu,$db,$id,$sort,$get,$cmd,$sel,$more)=@_;
#------------------------------------------------------------- Datei $db einlesen/auswerten
&amp;MY_DB_INFO($pseu,$db,$id,$sort,$get,$cmd,$more);
#------------------------------------------------------------- Daten der $db ausgeben
my $key=$FILTER{Feld};
my $val=$FILTER{Wert};
my $fdb=$FILTER{DB};
my $Frage_relaton=&quot;&quot;;
#------------------------------------------------------------------------------- baseportal-Relation ?
#
#
map{$Frage_Relation.=($RW{$_} ne &quot;&quot; ? &quot;&lt;div style='font-size:0.8em;text-align:left'&gt;AuswahlListe, da &lt;b&gt;&amp;nbsp;&amp;reg; &lt;a href='http://doku.baseportal.de/35.html' target='_BLANK'&gt;baseportal-Relation&lt;/a&gt;&lt;sup&gt;1.)&lt;/sup&gt;&lt;/b&gt;&amp;nbsp;&lt;/div&gt;&quot; : &quot;&quot;)}(@{$DBF{Field}})if($id eq &quot;&quot; and $sel ne &quot;&quot;);
#
#
#----------------------------------------------------------------- H&ouml;he anpassen, wenn nur 1 Datensatz
my $height=($id ne &quot;&quot; ? &quot;5em&quot; : &quot;16em&quot;);

$ausgabe.=&quot;&lt;div style='height:$height;overflow:auto;background-color:#f0f0f0'&gt;&quot;;
$ausgabe.=$Frage_Relation.&quot;&lt;table cellpadding=3 cellspacing=2 style='border:0px solid #ffffff;width:90%'&gt;&lt;tr&gt;&quot;;
#---------------------------------------------------------------------------------------- Sortierung ?
if($id ne &quot;&quot; or $sel ne &quot;&quot;)
{
map{$ausgabe.=&quot;&lt;td&gt;&lt;b&gt;&quot;.convert_html($_).&quot;&lt;b&gt;&lt;/td&gt;&quot;}(@{$DBF{Field}});
}
else
{
map{$ausgabe.=&amp;MY_SORTIERUNG($_,$pseu,$db,$id,$sort,$get,$cmd,$more)}(@{$DBF{Field}});
}
$ausgabe.=&quot;&lt;/tr&gt;&quot;;
#----------------------------------------------------------------------------------

if($Frage_Relation eq &quot;&quot;)
{######################################## keine bp-Relation
get &quot;Id==$id sort=$sort $sel&quot;,&quot;$db&quot;,&quot;DB&quot;;
while(get_next(&quot;DB&quot;))
{#***************************************** falls Relationsfeld vorhanden, dann Link
my $satz=&quot;&quot;;
map{$satz.=($RW{$_} ne &quot;&quot; ? &quot;&lt;td&gt;&quot;.&amp;MY_SATZ_LINK(&quot; &amp;reg; &quot;.convert_html($RW{$_}{$_raw{$_}}),$MY_PSEUDONYME{$my_Baseportal_.$R{$_}[2]},&quot;$my_Baseportal_&quot;.$R{$_}[2],$_raw{$_},$sort,$get,$cmd).&quot;&lt;/td&gt;&quot; : (($_ eq &quot;Id&quot; ? ($id ne &quot;&quot; ? &quot;&lt;td bgcolor='#ffffff'&gt;&quot;.convert_html($_raw{$_}).&quot;&lt;/td&gt;&quot; : &quot;&lt;td bgcolor='#ffffff'&gt;&quot;.&amp;MY_SATZ_LINK(&quot;&lt;b&gt;$_id&lt;/b&gt;&quot;,$pseu,$db,$_raw{$_},$sort,$get,$cmd).&quot;&lt;/td&gt;&quot;) : &quot;&lt;td&gt;&quot;.convert_html($_raw{$_}).&quot;&lt;/td&gt;&quot;))  )}(@{$DBF{Field}});
$ausgabe.=&quot;&lt;tr&gt;$satz&lt;/tr&gt;&quot;;
}#**********************************************************************************
$ausgabe.=&quot;&lt;/table&gt;&quot;.($_amount&lt;1 ? &quot;&lt;center&gt;&lt;font color=red size=4&gt;Noch kein Datensatz eingegeben !!&lt;/font&gt;&lt;/center&gt;&quot;:&quot;&quot;);
}#Ende if

else
{####################################### bp-Relation
get &quot;Id==$id sort=$sort&quot;,&quot;$db&quot;,&quot;DB&quot;;
my $treffer=0;
while(get_next(&quot;DB&quot;))
{#***************************************** falls Relationsfeld vorhanden, dann Link
if($$key eq &quot;$val&quot;)
{##################
$treffer++;
my $satz=&quot;&quot;;
map{$satz.=($RW{$_} ne &quot;&quot; ? &quot;&lt;td&gt; &amp;reg; &quot;.convert_html($RW{$_}{$_raw{$_}}).&quot;&lt;/td&gt;&quot; :(($_ eq &quot;Id&quot; ?($id ne &quot;&quot; ? &quot;&lt;td bgcolor='#ffffff'&gt;&quot;.convert_html($_raw{$_}).&quot;&lt;/td&gt;&quot;:&quot;&lt;td bgcolor='#ffffff'&gt;&quot;.&amp;MY_SATZ_LINK(&quot;&lt;b&gt;$_id&lt;/b&gt;&quot;,$pseu,$db,$_raw{$_},$sort,$get,$cmd).&quot;&lt;/td&gt;&quot;):&quot;&lt;td&gt;&quot;.convert_html($_raw{$_}).&quot;&lt;/td&gt;&quot;)))}(@{$DBF{Field}});
$ausgabe.=&quot;&lt;tr&gt;$satz&lt;/tr&gt;&quot;;
}##################
}#**********************************************************************************
$ausgabe.=&quot;&lt;/table&gt;&quot;.($treffer&lt;1 ? &quot;&lt;center&gt;&lt;font color=red size=4&gt;Noch kein Datensatz eingegeben !!&lt;/font&gt;&lt;/center&gt;&quot;:&quot;&quot;);
}#ende else

$ausgabe.=&quot;&lt;/div&gt;&quot;;

@{$DBF{Field}}=&quot;&quot;;
return($ausgabe);
}#############################################

sub MY_SATZ_LINK
{###############################################################
my ($LABEL,$__pseu,$__db,$__id,$__sort,$__get,$__display,$__sel)=@_;
#--------------------------------------------------------
my $___L=&quot;&quot;;
$___L=&quot;&lt;a onclick=display('div=_BASE&amp;pseu=&quot;.$__pseu.&quot;&amp;db=&quot;.$__db.&quot;&amp;id=&quot;.$__id.&quot;&amp;sort=&amp;get=&quot;.$__get.&quot;&amp;display=&quot;.$__display.&quot;&amp;sel=&quot;.$__sel.&quot;') style='cursor:pointer;color:blue'&gt;$LABEL&lt;/a&gt;&quot;;
return($___L);
}###############################################################

sub MY_DB_INFO
{#############
($pseu,$db,$id,$sort,$get,$display)=@_;
#----------------------------------
get &quot;Id==*&quot;,&quot;$db.fields&quot;,&quot;DBF&quot;;     #................ $db-Struktur
@FP{@{$DBF{Field}}}=@{$DBF{Params}};#................ FeldParameter der $db
@FI{@{$DBF{Field}}}=@{$DBF{Index}}; #................ FeldIndex der $db
#.................................................... relevante IndexFelder von $db
%I=map{$_ =&gt; $FI{$_}}keys(%FI);
#.................................................... levante RelationsFelder von $db herausfiltern
%R=map{$_ =&gt; [(split(/#/,$FP{$_}))]}(grep{index($FP{$_},&quot;#Relation#&quot;)&gt;=0}keys(%FP));
#---------------
if(keys(%R)&gt;0)                     
{#............ falls mindestens 1 Relationsfeld vorhanden
foreach(keys(%R))
{#************
$NN=&quot;$_&quot;;                          #.................. RelationsFeld
$NF=&quot;$R{$_}[3]&quot;;                   #.................. RelationsFeld-DateiFeld
$NDB=&quot;$R{$_}[2]&quot;;                  #.................. RelationsDatei
get &quot;$NF==*&quot;,&quot;$NDB&quot;,&quot;$_&quot;;
@NN{@{$$NN{Id}}}=@{$$NN{$NF}};     #.................. RelationsDatei-Werte
$RW{$NN}=\%NN;                     #.................. RelationsFeld-Hash{Datei-Werte} erstellen
}#************
}#
}#############

sub MY_SORTIERUNG
{################
($FIELD,$__pseu,$__db,$__id,$__sort,$__get,$__display)=@_;
#-----------------------------------------------------
my $___L=&quot;&quot;;
$LABEL=convert_html($FIELD);
#----------------
if($RW{$_} ne &quot;&quot;)
{#.................................................... Hash Relation ?
$___L=&quot;&lt;td&gt;&lt;a style='color:black;'&gt;&lt;b&gt;&lt;i&gt;$LABEL&lt;/i&gt;&lt;/b&gt;&amp;nbsp;&lt;sup&gt;1.)&amp;nbsp;2.)&lt;/sup&gt;&lt;/a&gt;&lt;/td&gt;&quot;;
}
else
{#..................................................... Pr&uuml;fen, was IndexFelder sind
if($I{$_}ne &quot;&quot;)
{#..................................................... falls Indexfeld = Sorter (+)(-) ausgeben
my $bg=($_ eq &quot;Id&quot; ? &quot;bgcolor='#ffffff'&quot;:&quot;&quot;);
$___L=&quot;&lt;td $bg&gt;&lt;b&gt;$LABEL&lt;b&gt; &lt;a onclick=display('div=_BASE&amp;pseu=&quot;.$__pseu.&quot;&amp;db=&quot;.$__db.&quot;&amp;id=&amp;sort=&quot;.$FIELD.&quot;&amp;get=&quot;.$__get.&quot;&amp;display=&quot;.$__display.&quot;') style='cursor:pointer;color:green;'&gt;&lt;b&gt;[+]&lt;/b&gt;&lt;/a&gt; &lt;label onclick=display('div=_BASE&amp;pseu=&quot;.$__pseu.&quot;&amp;db=&quot;.$__db.&quot;&amp;id=&amp;sort=-&quot;.$FIELD.&quot;&amp;get=&quot;.$__get.&quot;&amp;display=&quot;.$__display.&quot;') style='cursor:pointer;color:red;'&gt;&lt;b&gt;[-]&lt;/b&gt;&lt;/label&gt;&lt;/td&gt;&quot;;
}
else
{#...................................................... KEIN Indexfeld = kein Sorter
$___L=&quot;&lt;td&gt;&lt;a style='color:black;'&gt;&lt;b&gt;&lt;i&gt;$LABEL&lt;/i&gt;&lt;/b&gt;&amp;nbsp;&lt;sup&gt;2.)&lt;/sup&gt;&lt;/a&gt;&lt;/td&gt;&quot;;
}#
}
return($___L);
}########################################

sub MY_DATENBANK
{###############
($pseu,$db,$id,$sort,$get,$display,$sel,$more)=@_;
#----------------------------------------------
$test=&quot;$SO_WEIT_SO_GUT&quot;;
}###############

sub MY_DATENSATZ
{###############
($pseu,$db,$id,$sort,$get,$display,$sel,$more)=@_;
#----------------------------------------------
$test=&quot;$SO_WEIT_SO_GUT&quot;;
}###############

sub MY_ANWENDUNG_AKTION
{########################################
($pseu,$db,$id,$sort,$get,$display,$sel,$more)=@_;
#-------------------------------------------------- 
&amp;MY_DB_INFO($pseu,$db,$id,$sort,$get,$display,$sel,$more);
#---------------------------------------------
$zu_Index=&quot;&lt;b&gt;Anwendung&lt;/b&gt; &lt;font color='blue'&gt;&lt;i&gt;$pseu&lt;/i&gt;&lt;/font&gt; - die &lt;i&gt;Datenbank&lt;/i&gt; &lt;b&gt;&lt;a href='baseportal.pl?htx=$db' target='_BLANK'&gt;$db&lt;/a&gt;&lt;/b&gt; hat folgende &lt;b&gt;Felder&lt;/b&gt;: &lt;ul&gt;&quot;;
foreach(@{$DBF{Field}})
{#*********************
my $rf=($RW{$_} ne &quot;&quot; ? &quot; Hinweis &lt;b&gt;1.)&lt;/b&gt; &lt;font color='blue'&gt;Relationsfeld&lt;/font&gt;&quot; : &quot;&quot;);
my $ix=($I{$_} eq &quot;&quot; ? &quot; Hinweis &lt;b&gt;2.)&lt;/b&gt; &lt;font color='red'&gt;kein Index&lt;/font&gt;&quot; : &quot; IndexTyp: &lt;b&gt;$I{$_}&lt;/b&gt;&quot;);
$zu_Index.=&quot;&lt;li&gt;&lt;b&gt;$_&lt;/b&gt; $rf &amp;nbsp;&amp;nbsp; $ix&lt;/li&gt;&quot;;
}#*********************
$zu_Index.=&quot;&lt;/ul&gt;&quot;;
@{$DBF{Field}}=&quot;&quot;;
#---------------------------------------------
my $info=&quot;&quot;;
$info.=&quot;$zu_Index&quot;;
}##############################################################################

sub MY_RELATIONEN_AKTION
{########################
($pseu,$db,$id,$sort,$get,$display,$sel,$more)=@_;
#----------------------------------------------------- 
my $my_info=&quot;&lt;b&gt;Relationen&lt;/b&gt; zur &lt;i&gt;Anwendung&lt;/i&gt; &lt;font color='blue'&gt;&lt;i&gt;$pseu&lt;/i&gt;&lt;/font&gt; mit der &lt;i&gt;Datenbank&lt;/i&gt; &lt;b&gt;$db&lt;/b&gt; :&lt;ul&gt;&quot;;
#------------------------------------------
my @Relationen=keys(%{$Relationen{$pseu}});
foreach(@Relationen)
{#*********************
$my_info.=&quot;&lt;li&gt;&lt;b&gt;$_&lt;/b&gt;&lt;/li&gt;&quot;;
}#*********************
$my_info.=&quot;&lt;/ul&gt;&quot;;
$my_info=&quot;&lt;center&gt;&lt;h3&gt;.....kein Wert &lt;b&gt;\$Relationen{$pseu}&lt;/b&gt; in %Relationen definiert !&lt;/h3&gt;&lt;/center&gt;&quot; if(@Relationen&lt;1);
my $info=&quot;&quot;;
$info.=&quot;$my_info&quot;;
}###


sub _BASE
{########
($pseu,$db,$id,$sort,$get,$display,$more,$sel)=@_;
$MY_BASE_INNER_HTML=&amp;MY_BASE_INNER_HTML($pseu,$db,$id,$sort,$get,$display,$more,$sel);
return(qq|document.getElementById(&quot;_BASE&quot;).innerHTML=&quot;$MY_BASE_INNER_HTML&quot;;|);
}########

sub _MORE
{########
($pseu,$db,$id,$sort,$get,$display,$more,$sel)=@_;
$MY_MORE_INNER_HTML=&amp;MY_MORE_INNER_HTML($pseu,$db,$id,$sort,$get,$display,$more,$sel) if($get ne &quot;&quot;);
return(qq|document.getElementById(&quot;_MORE&quot;).innerHTML=&quot;$MY_MORE_INNER_HTML&quot;;|);
}########

sub script
{#########
out &amp;$div($pseu,$db,$id,$sort,$get,$display,$more,$sel);
}#########
&lt;/perl&gt;&lt;/body&gt;&lt;/html&gt;&lt;perl script=display&gt;&amp;script();&lt;/perl&gt;
&lt;div style=&quot;display:block&quot;&gt;&lt;center&gt;&lt;banner type=&quot;banner&quot;&gt;&lt;/center&gt;&lt;/div&gt;</pre>