# Layer laden # Lade den Data Access Layer $self->{DAL} = FastEAV->new( file => $self->{FILEDIR}."/".$self->eav('file'), lock => $self->eav('edit') ? 1 : 0, auto => 0 ) or die $@; # einen Hash einchecken my %hunt = ( title => $self->trim($self->param('title')), descr => $descr, body => $self->trim($self->param('body')), ); # Neue Nummer oder vorhandene Nummer my $number = $self->param('lfdnr') ? $self->param('lfdnr') : $self->{DAL}->lfdnr; $self->{STASH}{lfdnr} = $number; $self->{DAL}->checkin($number, %hunt) or die $@; $self->{DAL}->write or die $@;