sub printtree() { ##schreibt den baum -> printtre($ufid, $gid, $tid);
  my $ufid = $_[0];
  my $gid = $_[1];
  my $tid = $_[2];
  print <<"ENDE";
   <td width=5% bordercolor=black></td>
   <td bordercolor=#ffce90 width=72%>
   <table width=100% border=1 bordercolor=black>
   <tr align=left bordercolor=black><td width=60% bordercolor=black><font size=-1>&nbsp;&nbsp;<a href=f-rpg?func=showf&reich=00>F-rpg - Übersicht</a><br>
ENDE
  if($ufid =~ /^\D/) {
    my($pn, $pid) = split(/|/, $ufid);
    print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=f-rpg?func='."$pid".'>'."$pn".'</a><br>';
  }
  else {
    if($ufid ne ''){
      my($ufid, $ufn, $ufbes, $ufvisi, $uflbid, $uflbuid, $uflbun, $uflbdt) = readu($ufid);
      print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=f-rpg?func=show&reich='."$ufid".'>'."$ufn".'</a><br>';
    }
    if($gid ne ''){
      my($gn, $gbes, $gvisi, $glbt, $gt) = readg($gid, $ufid);
      print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=f-rpg?func=show&reich='."$ufid".'&geg='."$gid".'>'."$gn".'</a><br>';
    }
    if($tid ne ''){
      my($tn, $tvis, $tlbt) = readta($ufid, $gid, $tid);
      print '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb
sp;&nbsp;&nbsp;<a href=f-rpg?func=show&reich='."$ufid".'&geg='."$gid".'&tp='."$tid".'>'."$tn".'</a><br>'
    }
  }
  print '</font></td>';
}