<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">use strict;

use DBI;

package Ausleiheverwaltung;

sub anlegen {
	my $signatur = shift;
	my $nutzerid = shift;
	
	my $dbh = DBI-&gt;connect("dbi:mysql:Bucherei", "kurs", "kurs");
	die ("DB-Verbindung konnte nicht erstellt werden") unless ($dbh);
	
	my $sql = "INSERT INTO ausleihe VALUES (";
	$sql .= $dbh-&gt;quote($signatur) . ",";	
	$sql .= $dbh-&gt;quote($nutzerid) . ")";
	
	my $rc = $dbh-&gt;do($sql);
	$dbh-&gt;disconnect();
	return $rc;
}

sub loschen {
	my $signatur = shift;
	my $nutzerid = shift;
	
	my $dbh = DBI-&gt;connect("dbi:mysql:Bucherei", "kurs", "kurs");
	die ("DB-Verbindung konnte nicht erstellt werden") unless ($dbh);
	
	my $sql = "DELETE FROM ausleihe WHERE signatur = ";
	$sql .= $dbh-&gt;quote($signatur) . " AND nutzerid = ";	
	$sql .= $dbh-&gt;quote($nutzerid);
	
	my $rc = $dbh-&gt;do($sql);
	$dbh-&gt;disconnect();
	return $rc;
}

sub alle_lesen {
	my $dbh = DBI-&gt;connect("dbi:mysql:Bucherei", "kurs", "kurs");
	die ("DB-Verbindung konnte nicht erstellt werden") unless ($dbh);
	
	my $sql = "SELECT * FROM ausleihe";
	my $query = $dbh-&gt;prepare($sql);
	$query-&gt;execute();
	my @ausleihen;
	while (my @daten = $query-&gt;fetchrow_array()) {
		push @ausleihen, \@daten;
	}
	return \@ausleihen;
}

1;
</pre></body></html>