[Scoop-checkins] scoop/lib/Scoop/Admin Groups.pm

[scoop at sodium.sabren.com]

Update of /cvs/scoop/scoop/lib/Scoop/Admin
In directory sodium.sabren.com:/tmp/cvs-serv32285/lib/Scoop/Admin

Modified Files:
	Groups.pm 
Log Message:
Tiny bug fix: When saving a default group, unsetting any previous default groups was broken 
because the group id in the UPDATE was both $dbh->quote()ed and single-quoted.


Index: Groups.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Admin/Groups.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Groups.pm	30 Jul 2004 08:12:56 -0000	1.9
--- Groups.pm	20 Aug 2004 20:01:27 -0000	1.10
***************
*** 154,158 ****
  		WHAT => 'perm_groups',
  		SET => 'default_user_group = 0',
! 		WHERE => qq|perm_group_id != '$id'|});
  	
  	my $err = $S->{DBH}->errstr() unless $rv;
--- 154,158 ----
  		WHAT => 'perm_groups',
  		SET => 'default_user_group = 0',
! 		WHERE => qq|perm_group_id != $id|});
  	
  	my $err = $S->{DBH}->errstr() unless $rv;