[Phpgroupware-cvs] ged/inc class.ged_admin.inc.php

[Pascal Vilarem]

CVSROOT:        /sources/phpgroupware
Module name:    ged
Changes by:     Pascal Vilarem <maat>   07/08/29 12:58:06

Modified files:
        inc            : class.ged_admin.inc.php 

Log message:
        optimisation : cached subfolders arrays to avoid multiple identical 
recursions.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/ged/inc/class.ged_admin.inc.php?cvsroot=phpgroupware&r1=1.2&r2=1.3

Patches:
Index: class.ged_admin.inc.php
===================================================================
RCS file: /sources/phpgroupware/ged/inc/class.ged_admin.inc.php,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- class.ged_admin.inc.php     2 Aug 2007 21:48:57 -0000       1.2
+++ class.ged_admin.inc.php     29 Aug 2007 12:58:06 -0000      1.3
@@ -157,7 +157,15 @@
        
        function gen_subfolder_select ( $element_id, $field_name, 
$selected_element_id='', $recursion_level=0)
        {
+               if ( isset( $this->cached_gen_subfolders[$element_id]))
+               {
+                       
$my_sub_folders=$this->cached_gen_subfolders[$element_id];
+               }
+               else
+               {
                $my_sub_folders=$this->ged_dm->list_sub_folders($element_id);
+                       
$this->cached_gen_subfolder[$element_id]=$my_sub_folders;
+               }       
                
                if ( $recursion_level == 0)
                {
@@ -195,7 +203,6 @@
                }       
                
                return ( $select_sub_folders_html );
-               
        }
        
        function gen_unplaced_types_select ( $project_root_id, $field_name )