version 1.69, 2003/04/18 19:05:30
|
version 1.70, 2003/04/21 15:12:37
|
Line 579 sub init_dbs {
|
Line 579 sub init_dbs {
|
|
|
=pod |
=pod |
|
|
|
=item &delete_caches() |
|
|
|
=cut |
|
|
|
################################################ |
|
################################################ |
|
sub delete_caches { |
|
my $courseid = shift; |
|
$courseid = $ENV{'request.course.id'} if (! defined($courseid)); |
|
# |
|
&setup_table_names($courseid); |
|
# |
|
my $dbh = &Apache::lonmysql::get_dbh(); |
|
foreach my $table ($symb_table,$part_table,$student_table, |
|
$updatetime_table,$performance_table, |
|
$parameters_table ){ |
|
my $command = 'DROP TABLE '.$table.';'; |
|
$dbh->do($command); |
|
if ($dbh->err) { |
|
&Apache::lonnet::logthis($command.' resulted in error: '.$dbh->errstr); |
|
} |
|
} |
|
return; |
|
} |
|
|
|
################################################ |
|
################################################ |
|
|
|
=pod |
|
|
=item &get_part_id() |
=item &get_part_id() |
|
|
Get the MySQL id of a problem part string. |
Get the MySQL id of a problem part string. |