#!/usr/bin/perl -w
#
#
#use strict;
use CGI::Carp qw(fatalsToBrowser); 

use umfrage;

baseq::Vars;

my $statistik=0;
my $umf=umfrage->init($self,$baseq::VARS{umfid});
if (! defined $umf->load) {print "Content-type: text/html\n\nFehler: Umfrage $baseq::VARS{umfid}";$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;