Anonymous

package Lanas::Mods::Addressbook::AdrEntryEdit;
use strict;


sub new {
	my $class  = shift;
	my $parent = shift;    #Base-Objekt
	my $self   = {@_};
	$self->{PARENT} = $parent;
	
	
	bless $self, $class;
    $self->init();
	return $self;
} 

sub init {
	my $self = shift;
	
	$self->{SQL}                     = $self->{PARENT}->{SQL};
	$self->{INIT}                    = $self->{PARENT}->{INIT};
	$self->{I18N}                    = $self->{PARENT}->{I18N};
	
}