####################################################################
####         War schon mal diese Umfrage beantwortet?
####         Argumente  : umfid
####         Returnwert : -sum(betrag)
####################################################################

sub kontoauszug {
	my $self  = shift;
	my $pin = shift; my $ges=0; my $HTML="<TABLE CELLSPACING=15>\n";
	my $sql="select kasse.changed, umfragen.umfrage, kasse.betrag from kasse 
		left join umfragen on umfragen.umfid=kasse.umfid where pin=$pin";
	my $sth= $self->sqlprepare($sql);
	while (@LI = $sth->fetchrow_array){
		$ges+=$LI[2];
		$LI[0]=$self->timestamp($LI[0]);
		$LI[2]=sprintf("%0.2f",$LI[2]/100);
		$LI[3]="EURO";
		$HTML.=$self->TR(\@LI);
	}
	return $HTML. $self->TR(["","Gesamt:",sprintf("%0.2f",$ges/100), "EURO"]). "</TABLE>\n";
}