#!/usr/bin/perl -w
#
#

use pdat;
baseq::Vars;

my $pin=0; 

if ($baseq::VARS{pin}>0) {$pin=$baseq::VARS{pin};}
if ($baseq::VARS{apin}>0) {$pin=$baseq::VARS{apin};}
my $benutzer=pdat->init($pin, $query, $val);

if (! defined $benutzer->load){$benutzer->htmlbearb; }

$benutzer->getbearb(); 
#$benutzer->htmlbearb; 
$benutzer->exit;