web/modules/rhn/RHN/DB/User.pm | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
New commits:
commit a4cbb874b1e37c9bee3a082cc321d73998c6527d
Author: Michael Mraka <michael.mraka(a)redhat.com>
Date: Thu Jan 26 14:51:47 2012 +0100
delete server sets at once
diff --git a/web/modules/rhn/RHN/DB/User.pm b/web/modules/rhn/RHN/DB/User.pm
index 4c731cd..1dc804e 100644
--- a/web/modules/rhn/RHN/DB/User.pm
+++ b/web/modules/rhn/RHN/DB/User.pm
@@ -195,18 +195,17 @@ sub cleanse_sets {
qw/remove_systems_list system_search system_search_prev target_systems
target_systems_list/,
);
my $dbh = RHN::DB->connect();
+ my $label_inset = join(", ", map { ":$_" } @server_sets);
my $query = <<EOQ;
DELETE FROM rhnSet
WHERE user_id = :user_id
- AND label = :label
+ AND label in ($label_inset)
AND NOT EXISTS (SELECT 1 FROM rhnUserServerPerms WHERE user_id = :user_id and
server_id = element)
EOQ
my $sth = $dbh->prepare($query);
- foreach my $set_label (@server_sets) {
- $sth->execute_h(user_id => $self->id, label => $set_label);
- }
+ $sth->execute_h(user_id => $self->id, map { ($_, $_) } @server_sets);
$dbh->commit;
}
Show replies by date