#!/usr/bin/perl
#
#

use umfrage;

baseq::Vars;

my $statistik=0;
my $umf=umfrage->init($self,$baseq::VARS{umfid});
if (! defined $umf->load) {&baseq::initerror("Fehler: Umfrage '$baseq::VARS{umfid}' ist nicht vorhanden"); $umf->exit;}
foreach (keys %baseq::VARS) {
	$statistik=1 if /^stbut/ ;
}

if  ($umf->{showstat} && $statistik) {
	$umf->statistik;
}
else {
	$umf->enterant;       #Antworten einlesen und neue frage ausgeben
}	
$umf->exit;