loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.69, 2003/04/18 19:05:30
+version 1.70, 2003/04/21 15:12:37
  Line 579  sub init_dbs {
  =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()
  Get the MySQL id of a problem part string.