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

[scoop at sodium.sabren.com]

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

Modified Files:
	Sections.pm 
Log Message:
Fix to stop redundent SQL queries being run for data that's already been
retrieved. --hulver


Index: Sections.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Admin/Sections.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Sections.pm	30 Jul 2004 08:12:56 -0000	1.25
--- Sections.pm	3 Sep 2004 15:09:28 -0000	1.26
***************
*** 581,587 ****
  		while ( $section = $sth->fetchrow_hashref ) {
  			next if ( $section->{section} eq $section_to_del );
- 			next
- 			  if ( $section->{section} eq 'Diary'
- 				&& !$S->{UI}->{VARS}->{use_diaries} );
  			next if ( $no_read_sects->{ $section->{section} } == 1 );
  
--- 581,584 ----
***************
*** 663,667 ****
  	my $S    = shift;
  	my $perm = shift;
! 	my $group = shift;
  
  	return '' unless ( defined $perm );
--- 660,664 ----
  	my $S    = shift;
  	my $perm = shift;
! 	my $group = shift || $S->{GID};
  
  	return '' unless ( defined $perm );