Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.235 -r1.236
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Feb 2019 14:16:40 -0000	1.235
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Feb 2019 14:31:14 -0000	1.236
@@ -393,9 +393,9 @@
     } {
         db_dml update_package_id {}
         db_dml update_application_group_package_id {}
-        
+
         ::dotlrn::dotlrn_community_cache flush -partition_key $community_id \
-            $community_id-package_id        
+            $community_id-package_id
     }
 
     ad_proc -public get_url {
@@ -434,7 +434,7 @@
         ::dotlrn::dotlrn_community_cache eval -partition_key $community_id \
             $community_id-default_roles {
                 dotlrn_community::get_default_roles_not_cached -community_type $community_type
-            }        
+            }
     }
 
     ad_proc -private get_default_roles_not_cached {
@@ -528,10 +528,10 @@
     ad_proc -public get_all_roles {} {
         Return the list of roles used in dotLRN.
     } {
-        
+
         ::dotlrn::dotlrn_cache eval get_all_roles {
             dotlrn_community::get_all_roles_not_cached
-        }            
+        }
     }
 
     ad_proc -private get_all_roles_not_cached {} {
@@ -779,12 +779,12 @@
     } {
         Check membership.
     } {
-        
+
         ::dotlrn::dotlrn_community_cache eval -partition_key $community_id \
             $community_id-member-$user_id {
                 db_string select_count_membership {} -default 0
-            }        
-        
+            }
+
     }
 
     ad_proc -public member_pending_p {
@@ -885,11 +885,11 @@
         #
         # Flush all permission checks pertaining to this user.
         #
-        permission::cache_flush -party_id $user_id        
-        
+        permission::cache_flush -party_id $user_id
+
         # Remove record of this membership in the cache
         ::dotlrn::dotlrn_community_cache flush -partition_key $community_id \
-            $community_id-member-$user_id        
+            $community_id-member-$user_id
 
     }
 
@@ -1063,10 +1063,10 @@
         Returns the community type key depending on the node we're at.
     } {
         set package_id [ad_conn package_id]
-        
+
         ::dotlrn::dotlrn_cache eval pkg_id-$package_id-community_type {
             dotlrn_community::get_community_type_not_cached -package_id $package_id
-        }        
+        }
     }
 
     ad_proc -private get_community_type_not_cached {
@@ -1147,7 +1147,7 @@
 
         ::dotlrn::dotlrn_cache eval pkg_id-$package_id-parent_community_id {
             dotlrn_community::get_parent_community_id_not_cached -package_id $package_id
-        }           
+        }
     }
 
     ad_proc -private get_parent_community_id_not_cached {
@@ -1567,11 +1567,11 @@
     } {
         Get the key for a community.
     } {
-        
+
        ::dotlrn::dotlrn_community_cache eval -partition_key $community_id \
             $community_id-community_key {
                 db_string select_community_key {} -default 0
-            }               
+            }
     }
 
     ad_proc -public not_closed_p {
@@ -1733,11 +1733,10 @@
             # Delete from the DB
             set applet_id [dotlrn_applet::get_applet_id_from_key -applet_key $applet_key]
             db_dml delete_applet_from_community {}
-            
+
             # flush "applet_active" entry from the cache
             ::dotlrn::dotlrn_community_cache flush -partition_key $community_id \
                 $community_id-applet_active-$applet_key
-            
         }
     }
 
@@ -2164,7 +2163,7 @@
         # candidate general cache
         ::dotlrn::dotlrn_cache eval available_attributes {
             dotlrn_community::get_available_attributes_not_cached
-        }               
+        }
     }
 
     ad_proc -private get_available_attributes_not_cached {} {
@@ -2259,7 +2258,7 @@
             db_dml update_attribute_value {}
         }
 
-        ::dotlrn::dotlrn_community_cache flush -partition_key $community_id $community_id-attributes         
+        ::dotlrn::dotlrn_community_cache flush -partition_key $community_id $community_id-attributes
     }
 
     ad_proc -public unset_attribute {
@@ -2291,7 +2290,7 @@
     } {
         db_dml delete_attributes {}
 
-        ::dotlrn::dotlrn_community_cache flush -partition_key $community_id $community_id-attributes        
+        ::dotlrn::dotlrn_community_cache flush -partition_key $community_id $community_id-attributes
     }
 
     ad_proc -public get_attribute_id {
@@ -2488,7 +2487,7 @@
         db_dml update_portal_theme {}
         set portal_id [get_admin_portal_id -community_id $community_id]
         db_dml update_portal_theme {}
-        ::dotlrn::dotlrn_community_cache flush -partition_key $community_id $community_id-site_template 
+        ::dotlrn::dotlrn_community_cache flush -partition_key $community_id $community_id-site_template
     }
 
     ad_proc -public get_dotlrn_master {
@@ -2562,12 +2561,11 @@
         set new_theme_id [db_string select_portal_theme {}]
         db_dml update_portal_themes {}
         db_dml update_portal_admin_themes {}
-        
+
         foreach community_id [db_list affected_portals {}] {
             ::dotlrn::dotlrn_community_cache flush -partition_key $community_id $community_id-site_template
         }
     }
-
 }
 
 # Local variables: