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

use kunde;
baseq::Vars;

my $kd=0;

if ($baseq::VARS{knr}>0) {$kd=$baseq::VARS{knr};}

$kd=kunde->init($kd, $query, $val);

if (! defined $kd->load){print "Content-type: text/plain\n\nFehler: Kunde $basq::VARS{umfid}";exit;}

$kd->getbearb;

$kd->exit;