# meta-method insert/update
sub insert{
	my $self = shift;
	my $anz = shift or return;
	my $url = $self->{URL};
	return if defined $self->{COKNA}; # Cookie nicht angenommen

	my $dbo = myBase::Warenkorb->new or do{
		$self->{body} .= qq(<p>Kein Zugriff auf DB</p>);
		return;
	}; # exception {RaiseError}
	$dbo->insert(sid => $self->{SID}, url => $url, anz => $anz);
}