|
|
@ -32,6 +32,8 @@ our @EXPORT_OK = qw(
|
|
|
|
update_row
|
|
|
|
update_row
|
|
|
|
delete_row
|
|
|
|
delete_row
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
delete_all
|
|
|
|
|
|
|
|
|
|
|
|
findby_prefix
|
|
|
|
findby_prefix
|
|
|
|
findby_nameprefixauthoritativeskiprewrite
|
|
|
|
findby_nameprefixauthoritativeskiprewrite
|
|
|
|
|
|
|
|
|
|
|
@ -158,6 +160,28 @@ sub delete_row {
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub delete_all {
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my ($xa_db) = @_;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
check_table();
|
|
|
|
|
|
|
|
my $db = &$get_db();
|
|
|
|
|
|
|
|
$xa_db //= $db;
|
|
|
|
|
|
|
|
my $table = $db->tableidentifier($tablename);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $stmt = 'DELETE FROM ' . $table;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $count;
|
|
|
|
|
|
|
|
if ($count = $xa_db->db_do($stmt,@params)) {
|
|
|
|
|
|
|
|
rowsdeleted($db,$tablename,$count,$count,getlogger(__PACKAGE__));
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
|
|
|
} else {
|
|
|
|
|
|
|
|
rowsdeleted($db,$tablename,0,0,getlogger(__PACKAGE__));
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
sub insert_row {
|
|
|
|
sub insert_row {
|
|
|
|
|
|
|
|
|
|
|
|
my $db = &$get_db();
|
|
|
|
my $db = &$get_db();
|
|
|
|