[WWcvs] webwork2: changes to support error checking when archiving

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
changes to support error checking when archiving

Modified Files:
--------------
    webwork2/lib/WeBWorK/DB/Schema/NewSQL:
        Std.pm

Revision Data
-------------
Index: Std.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/DB/Schema/NewSQL/Std.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -Llib/WeBWorK/DB/Schema/NewSQL/Std.pm -Llib/WeBWorK/DB/Schema/NewSQL/Std.pm -u -r1.18 -r1.19
--- lib/WeBWorK/DB/Schema/NewSQL/Std.pm
+++ lib/WeBWorK/DB/Schema/NewSQL/Std.pm
@@ -283,6 +283,25 @@
 	
 	return ($my_cnf, $dsn{database});
 }
+####################################################
+# checking Fields
+####################################################
+
+sub tableFieldExists {
+	my $self = shift;
+	my $field_name = shift;
+	my $stmt = $self->_exists_field_stmt($field_name);
+	return $self->dbh->do($stmt);
+}
+
+sub _exists_field_stmt {
+	my $self = shift;	
+	my $field_name=shift;
+	my $sql_table_name = $self->sql_table_name;
+	return "Describe `$sql_table_name` `$field_name`";
+}
+
+
 
 ################################################################################
 # counting/existence