(
"ct"  => sub{
if($page)
{
my $mID=$ID;
$ID=$PAGE{"$page"};
parse qq(${${$bei123{$key}}{Data_content}}[${${$bei123{$key}}{_FID}}{$ID}]),\%DOC ;

out parse qq(<!--/ CSS-Definition class=".$container" page="$PAGE{$ID}" /-->\n<div class="$container">$CT{"$PAGE{$ID}"}{"$container"}</div>\n<!--/ Ende CSS-Definition class=".$container" page="$PAGE{$ID}" /-->\n);
$ID=$mID;
}
else
{
#-------------------------------------------------
out parse qq(<!--/ CSS-Definition class=".$container" page="$PAGE{$ID}" /-->\n<div class="$container">$CT{"$PAGE{$ID}"}{"$container"}</div>\n<!--/ Ende CSS-Definition class=".$container" page="$PAGE{$ID}" /-->\n);
}
$page=$container=$style="";
},

"co"  => sub{$CT{"$PAGE{$ID}"}{"$ct"}=qq($_);$ct=$page="";
},

"alert" => sub{out qq(<button title="$_" class="MenuButton" onClick="alert(this.getAttribute('title'))">$value</button>);},

"ajax" => sub{out qq(<!--/ Ajax-Definition sub $sub /-->\n<script type="text/javascript">function _ajax(r){eval(r);}</script>).parse qq(<perl>$_</perl><perl script=ajax>&$sub();</perl>).qq(\n<!--/ END Ajax-Definition sub $sub /-->\n);$sub="";},

"&name;" => sub{out qq(Webmaster von $bp_user);},
"&bp;" => sub{out qq(<span style="color:#000000">base</span><span style="color:#d80000">portal</span>);},

"page" => sub{out qq(<span class="$class" style="$style">).convert_html($PAGE{$ID}).qq(</span>);$class=$style="";},

"convert" => sub{
$mm=qq($PAGE{$ID}.$memo);
#$mm=qq($PAGE{$ID}).qq(.).qq($code)
$style=$style||"color:green;";
if(exists $MEMO{$mm})
{
my $out=convert_br(convert_html(qq($MEMO{$mm})));
$out =~ s/ /&nbsp;/g;
out qq(<span style="$style">$out</span>);

}
else
{
s/</&lt;/g;
s/>/&gt;/g;
s/ /&nbsp;/g;
out convert_br(qq(<span style="$style">$_</span>));
}
$memo=$mm=$out=$style="";
},

"memo" => sub{my $mm=qq($PAGE{$ID}.$name);$MEMO{"$mm"}=qq($_);$name="";parse qq($_) },


"memo1" => sub{out qq($_) },
"goto" => sub{
my $value=$value||$_;
out qq(<a href='baseportal.pl?ID=).$PAGE{$_}.qq(&sid=$_session&htx=$htx&$param'>$value</a>);
$param=$value="";
},

"doc"=>sub{
if($box eq "")
{
out parse qq(<!--/ CSS-Definition #$name /-->\n<div id="$name">$_</div>\n<!--/ End CSS-Definition #$name /-->);
}
else
{
my $bC=$_;
my @Box=reverse(split(/\|/,$box)) ;
$nB=@Box;
$bC=&shiftbox(\@Box,qq(<div style=").shift(@Box).qq(">$bC</div>));
out parse qq(<!--/ CSS-Definition #$name box($nB) /-->\n<div style="$style" id="$name">$bC</div>\n<!--/ End CSS-Definition #$name box($nB) /-->);
$box=$bC="";
}
},
)