version 1.12, 2003/03/21 16:04:42
|
version 1.13, 2003/04/18 15:50:55
|
Line 348 sub connect_to_db {
|
Line 348 sub connect_to_db {
|
|
|
=pod |
=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() |
=item &disconnect_from_db() |
|
|
Inputs: none. |
Inputs: none. |