--- trunk/webwork2/lib/WeBWorK/DB/Schema/SQL.pm	2003/05/28 17:46:00	930
+++ trunk/webwork2/lib/WeBWorK/DB/Schema/SQL.pm	2003/05/28 19:21:04	931
@@ -35,13 +35,14 @@
 ################################################################################
 
 sub new($$$) {
-	my ($proto, $driver, $table, $record, $params) = @_;
+	my ($proto, $db, $driver, $table, $record, $params) = @_;
 	my $class = ref($proto) || $proto;
 	die "$table: unsupported table"
 		unless grep { $_ eq $table } $proto->tables();
 	die $driver->style(), ": style mismatch"
 		unless $driver->style() eq $proto->style();
 	my $self = {
+		db     => $db,
 		driver => $driver,
 		table  => $table,
 		record => $record,