[Stud-cvs] stud ClubDb.pm,1.22,1.23

[Peter B. <mr_...@us...>]

Update of /cvsroot/stud/stud
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10510

Modified Files:
	ClubDb.pm 
Log Message:
B:1081267. Removed cache func for get_club_categories. Also minor fix in add_category related to caching.

Index: ClubDb.pm
===================================================================
RCS file: /cvsroot/stud/stud/ClubDb.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** ClubDb.pm	11 Jan 2004 11:59:53 -0000	1.22
--- ClubDb.pm	8 Dec 2004 15:37:02 -0000	1.23
***************
*** 38,42 ****
  #
  #@author Gunnar Strand
! #@version 2.2.3
  package ClubDb;
  
--- 38,42 ----
  #
  #@author Gunnar Strand
! #@version 2.3.1
  package ClubDb;
  
***************
*** 554,565 ****
    my ($str);
    
!   if ( $self->{CACHE_ON} &&
!        $self->{CACHE_CATEGORY}{$club} ) {
!     $gDebugCache && $self->log( "Cache: hit for club $club" );
!     return {
!             map {( $_, $self->{CACHE_CATEGORY}{$_}{title} )
!                } keys %{ $self->{CACHE_CATEGORY} }
!            };
!   }
  
    $str = "SELECT category,title FROM $self->{CATEGORIES_TABLE} WHERE club=$club;";
--- 554,566 ----
    my ($str);
    
! # Removed to solve B:1081267 
! #  if ( $self->{CACHE_ON} &&
! #       $self->{CACHE_CATEGORY}{$club} ) {
! #    $gDebugCache && $self->log( "Cache: hit for club $club" );
! #    return {
! #            map {( $_, $self->{CACHE_CATEGORY}{$_}{title} )
! #               } keys %{ $self->{CACHE_CATEGORY} }
! #           };
! #  }
  
    $str = "SELECT category,title FROM $self->{CATEGORIES_TABLE} WHERE club=$club;";
***************
*** 591,597 ****
    my ($err, $id, $categories, $sth, $str, $i, $s);
  
!   if ( $$self->{CACHE_ON} ) {
      $gDebugCache && $self->log( "Cache: clearing club $club" );
!     delete $$self->{CACHE_CATEGORY}{$club};
    }
  
--- 592,598 ----
    my ($err, $id, $categories, $sth, $str, $i, $s);
  
!   if ( $self->{CACHE_ON} ) {
      $gDebugCache && $self->log( "Cache: clearing club $club" );
!     delete $self->{CACHE_CATEGORY}{$club};
    }