package UserDomain::Benutzer;

our @ISA = qw(UserDomain::Person);
use UserDomain::Person;

#use NET::ldap;
use strict;

sub new {
	my $class = shift;
	my ($id, $nachname, $vorname, $telnr, $sprache, $aktiv) = @_;
	$class->SUPER::new($id, $nachname, $vorname, $telnr, $sprache, $aktiv);
	$class->{'letzterLogin'} = "";
	$class->{'berechtigung'} = 0;
}