<input type='checkbox' name='Box01:=' "checked " if $Box01 == 1; "value='1'>";

<td>Zuhause<input type='checkbox' name='im_:=' 'checked ' if $im_ == 1 'value='1'></td>

EOF
if($im_ ne ""){out"<input type=\"checkbox\" name=\"im_:=\" checked value=\"1\">";}
if($im_ eq ""){out"<input type=\"checkbox\" name=\"im_:=\" value=\"1\">";}
out <<EOF;

<perl>

if($namerein ne "")
{
get "Name==!$namerein", "nutzer";

{
do_all "db=test/test1 cmd=$cmd verantwortlich==!$namerein range^=0,50 sort=Name listfields=Name showamount=sel selectbrowse=no buttonbrowse=top pagebrowse=top,bottom indexbrowse=top border=0 spacing=1 padding=1 gridcolor=000000 dataface=Arial datasize=2 datacolor=404040 databack=FFFFF dataalign=middle headface=Arial headsize=2 headcolor=000000 headback=FFFFCC headalign=middle textface=Arial textsize=2 textcolor=000000 listtype=list language=de detail=link search=link input=link ", "namerein", "pwrein";
out <<EOF;
 

}
 

get "","test/test1";
 

   if ($cmd ne "mod")
    {
    out <<EOF;
    <form action="http://de2.netpure.de/cgi-bin/baseportal.pl?htx=/tierheime/test/test1" method="post" enctype="multipart/form-data">
    <input type="hidden" name="htx=" value="$htx">
    <input type="hidden" name="cmd=" value="mod">
    <input type="hidden" name="namerein=" value="$namerein">
    <input type="hidden" name="pwrein=" value="$pwrein">
    <input type="hidden" name="verantwortlich=" value="$namerein">

   <ul><b>Änderungen :-)</b><p>

EOF
   get "", "test/test1", "ausgabe";
   while (get_next("ausgabe"))
   {
out"</font><td bgcolor=F5,DE,B3><font face=\"verdena\" size=2>";
out"<tr>
<td>id: $_id </td>
<td> $Name </td>
<td>Farbe: <input type=text name='Farbe_$_id=' size=3 value=$Farbe></td>
<td>Alter: <input type=text name='Alter_$_id=' size=3 value=$Alter></td>
<td><textarea name='Beschreibung_$_id=' cols=25 rows=8>$Beschreibung</textarea></td>
<td>Zuhause<input type='checkbox' name='im_:=' 'checked ' if $im_ == 1 'value='1'></td>
<tr>"; 

   }
out <<EOF;
</table><input type="submit"> 
</ul>
</form>
EOF
    }
else{
out <<EOF;
<ul><table>
EOF
get "", "test/test1", "holen";
while (get_next("holen"))
        
{
out "<tr>
<td>id: $_id </td>
<td>Name: ".${"Name_$_id"};
out " Farbe: ".${"Farbe_$_id"}
."</td></font><tr>";
mod "Id==$_id",[ "Rasse",${"Rasse_$_id"},"Alter",${"Alter_$_id"},"Beschreibung",${"Beschreibung_$_id"},"im_",${"im__$_id"}],"Test/test1";
       }
out <<EOF;
</table> 
</ul>
EOF
   }
} else
{
out "<b></b>";
$namerein="";
}
if($namerein eq "")
{
out <<EOF;

<form action="http://de2.netpure.de/cgi-bin/baseportal.pl?htx=/tierheime/adressen" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form>
<p> </p>
<p><a href="http://de2.netpure.de/cgi-bin/baseportal.pl?htx=/tierheime/lostpw" target="_blank"><font color="#800000" size="2" face="Arial"><b>Passwort
vergessen?</b></font></a><b><font color="#800000" size="2" face="Arial">    
</font></b></p>
<p> </p>

}