sub bestellung_speichern {

	my ($dbh, $bestell_info) = @_;
	#Datensatz in doku_bestell
	
	$dbh->do ("INSERT INTO doku_bestell (bestell_datum, bestell_preis, aut_id, kunden_name,
			kunden_email) VALUES (CURRENT_DATE,?,?,?,?)", undef,
			$bestell_info->{gesamtpreis},
			$bestell_info->{aut_id},
			$bestell_info->{kunden_name},
			$bestell_info->{kunden_email}
			) or $peh->schwerer_fehler ("INSERT #1: " . $dbh->errstr);
;
	#Bestell_id ist der Auto_Increment wert von eben
	$bestell_info->{bestell_id} = $dbh->{mysql_insertid};
	#für jedes Dokument einen Datensatz in doku_posten
	
	for (@{$bestell_info->{posten}}) {
	
	#Passwort für das Dokument erzeugen und speichern 
		my $passwort = passwort ();
		my $a;
	#Erzeugt die Links zu den Dokumenten
		$a = sprintf ("dokument.cgi?bestellung=%s;doku=%s;password=%s",
				   escape ($bestell_info->{bestell_id}),
				   escape ($_->{doku_id}),
				   escape ($passwort)
				);
		$_->{url} = $peh->haupt_url () . $a;
		$dbh->do ("INSERT INTO doku_posten (bestell_id, doku_id, preis, passwort)
				VALUES (?,?,?,?)",undef,
				$bestell_info->{bestell_id},
				$_->{doku_id},
				$_->{preis},
				$passwort
				) or $peh->schwerer_fehler ("INSERT #2: " . $dbh->errstr);
	
	}
	
}