loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmysql.pm between versions 1.11 and 1.14

-version 1.11, 2003/03/17 18:35:51
+version 1.14, 2003/06/02 16:44:01
  Line 348  sub connect_to_db {
  =pod
+ =item &verify_sql_connection()
+ Inputs: none.
+ Returns: 0 (failure) or 1 (success)
+ Checks to make sure the database can be connected to.  It does not
+ initialize anything in the lonmysql package.
+ =cut
+ ###############################
+ sub verify_sql_connection {
+     my $connection;
+     if (! ($connection = DBI->connect("DBI:mysql:loncapa","www",
+                                       $Apache::lonnet::perlvar{'lonSqlAccess'},
+                                       { RaiseError=>0,PrintError=>0}))) {
+         return 0;
+     }
+     undef($connection);
+     return 1;
+ }
+ ###############################
+ =pod
  =item &disconnect_from_db()
  Inputs: none.
- Line 981  sub remove_from_table {
+ Line 1008  sub remove_from_table {
          $errorstring = "ERROR on execution of ".$command."\n".$sth->errstr;
          return undef;
      }
+     $debugstring = $command;
      my $rows = $sth->rows;
      return $rows;
  }
+ ###########################################
+ =pod
+ =item drop_table($table_id)
+ Issues a 'drop table if exists' command
+ =cut
+ ###########################################
+ sub drop_table {
+     my ($table_id) = @_;
+     return undef if (!defined(&connect_to_db()));
+     #
+     $table_id = &translate_id($table_id);
+     my $command = 'DROP TABLE IF EXISTS '.$table_id;
+     my $sth = $dbh->prepare($command);
+     $sth->execute();
+     if ($sth->err) {
+         $errorstring = "ERROR on execution of ".$command."\n".$sth->errstr;
+         return undef;
+     }
+     $debugstring = $command;
+     return 1; # if we got here there was no error, so return a 'true' value
+ }
 ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.11
changed lines
	Added in v.1.14