######
<perl>
get "veranstaltung==$veranstaltung","anmeldung";
if ($_amount_query>0)
 {
  while(get_next("anmeldung"))
  { 
   out "";
   $gesamt = $gesamt+$pers; 
  }
 $schnitt = $gesamt/$_amount_query; 
$schnitt=substr($schnitt,0,3); 
 out "Es haben sich $_amount_query Mitglieder angemeldet, welche mit insg. <b>$gesamt</b> Personen erscheinen werden</b> &nbsp;&nbsp; <a href=http://silllllyc.de/cgi-bin/baseportal.pl?htx=/silllllyc.de/alumni/tk2/teilnehmer&veranstaltung=$spack&namerein=$namerein&sid=$sid>Details</a> <br>"; 
 }
else    # wenn $_amount_query = 0 ist
{
 out "Zu diesen Termin hat sich noch niemand angemeldet<br>";
}
 
get "veranstaltung==!$spack&namerein2==$namerein", "anmeldung"; #datensätze holen
if ($_amount_query>0) {
out "
<font color=red>Du bist schon angemeldet! <a href=http://sillyc.de/cgi-bin/baseportal.pl?htx=/silllllyc.de/alumni/tk2/anmeldungc&veranstaltung=$spack&namerein=$namerein&sid=$sid target=mitte>Diesen Termin wieder absagen&nbsp;<img src=http://sillllly.de/images/pfeil_tr_r.gif border=0> </a></font><br> <font color=white>";
}
else {
 out" <a href=http://silllllyc.de/cgi-bin/baseportal.pl?htx=/silllllyc.de/alumni/tk2/anmeldungx&veranstaltung=$veranstaltung&namerein=$namerein&sid=$sid target=mitte>An diesen Termin Teilnehmen &nbsp;<img src=http://www.silllllyc.de/images/pfeil_tr_r.gif border=0> </a>";
}
</perl>
########