package UserDomain::Benutzer;
#use base 'UserDomain::Person';

@ISA = qw(UserDomain::Person);
use NET::ldap;
use strict;

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