Activated table dropping in clean_blast_database

modules/Bio/EnsEMBL/External/BlastAdaptor.pm

@@ -27,8 +27,8 @@ CREATE TABLE blast_ticket (
   create_time datetime NOT NULL default '0000-00-00 00:00:00',
   update_time datetime NOT NULL default '0000-00-00 00:00:00',
   ticket varchar(32) NOT NULL default '',
-  object longblob,
   status enum('CURRENT','DELETED') NOT NULL default 'CURRENT',
+  object longblob,
   PRIMARY KEY  (ticket_id),
   UNIQUE KEY ticket (ticket),
   KEY create_time (create_time),
@@ -674,9 +674,6 @@ sub clean_blast_database{
   $days =~ /\D/    && $self->throw( "Bad arg: number of days $days not int" );
   my $dbh = $self->db->db_handle;
 
-  # Rotate daily Result, Hit and HSP tables
-  $self->rotate_daily_tables;
-
   # Get list of tickets > $days days old
   my $q = qq/
 SELECT ticket 
@@ -731,16 +728,17 @@ WHERE  update_time < SUBDATE( NOW(), INTERVAL $days DAY ) /;
 				$time[2], $time[1]-1, $time[0] - 1900 );
     my $secs_old = time() - $epoch_then;
     my $days_old = $secs_old / ( 60 * 60 * 24 );
-    
     if( $days_old > $days ){
       warn( "Dropping table $table_name: $num_rows rows\n" );
       my $sth_drop = $dbh->prepare( "DROP table $table_name" );
       my $sth_log  = $dbh->prepare( $SQL_TABLE_LOG_UPDATE );
-      #$sth_drop->execute || $self->throw( $sth_drop->errstr );
-      #$sth_log->execute
-        #('DELETED','NOW()',$num_rows,$table_name) ||
-	  #  $self->throw( $sth_log->errstr );;
-      
+      $sth_drop->execute || $self->throw( $sth_drop->errstr );
+      my( $se,$mi,$hr,$da,$mo,$yr ) = (localtime)[0,1,2,3,4,5];
+      my $now = sprintf( "%4d-%2d-%2d %2d:%2d:%2d", 
+			 $yr+1900,$mo+1,$da,$hr,$mi,$se );
+      $sth_log->execute
+        ('DELETED',$now,$num_rows,$table_name) ||
+	  $self->throw( $sth_log->errstr );
     }
   }