Changeset 32571 for main/trunk/greenstone2/perllib/gssql.pm
- Timestamp:
- 2018-11-05T16:46:34+13:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/gssql.pm
r32563 r32571 229 229 } 230 230 231 231 232 # We should already have done "use <database>;" if this gets called. 232 233 # Just load this collection's metatable … … 454 455 455 456 my $dbh = $self->{'db_handle'}; 456 my $meta_table = $self->get_metadata_table_name(); 457 458 #my $rows_deleted = 459 $dbh->do(qq{DELETE FROM $meta_table WHERE did = ?}, undef, $oid) 460 or warn $dbh->errstr; 457 458 #my $meta_table = $self->get_metadata_table_name(); 459 ##my $rows_deleted = 460 #$dbh->do(qq{DELETE FROM $meta_table WHERE did = ?}, undef, $oid) or warn $dbh->errstr; 461 462 # If we do many deletes from this table, 463 # it may be more optimal to maintain a delete statement to repeatedly execute 464 my $sth = $self->{"sth_del_from_meta_table"}; 465 if(!$sth) { 466 my $meta_table = $self->get_metadata_table_name(); 467 $sth = $dbh->prepare(qq{DELETE FROM $meta_table WHERE did = ?}); 468 $self->{"sth_del_from_meta_table"} = $sth; 469 } 470 $sth->execute( $oid ) or warn $dbh->errstr; # dbh set to print errors even without doing warn() 461 471 } 462 472 … … 466 476 my ($oid) = @_; 467 477 468 my $dbh = $self->{'db_handle'}; 469 my $fulltxt_table = $self->get_fulltext_table_name(); 470 471 $dbh->do(qq{DELETE FROM $fulltxt_table WHERE did = ?}, undef, $oid) 472 or warn $dbh->errstr; 478 my $dbh = $self->{'db_handle'}; 479 480 #my $fulltxt_table = $self->get_fulltext_table_name(); 481 #$dbh->do(qq{DELETE FROM $fulltxt_table WHERE did = ?}, undef, $oid) or warn $dbh->errstr; 482 483 # If we do many deletes from this table, 484 # it may be more optimal to maintain a delete statement to repeatedly execute 485 my $sth = $self->{"sth_del_from_fulltxt_table"}; 486 if(!$sth) { 487 my $fulltxt_table = $self->get_fulltext_table_name(); 488 $sth = $dbh->prepare(qq{DELETE FROM $fulltxt_table WHERE did = ?}); 489 $self->{"sth_del_from_fulltxt_table"} = $sth; 490 } 491 $sth->execute( $oid ) or warn $dbh->errstr; # dbh set to print errors even without doing warn() 473 492 } 474 493
Note:
See TracChangeset
for help on using the changeset viewer.