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
|
