Index: openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/Attic/site-nodes-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	3 Apr 2002 00:33:12 -0000	1.11
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	11 Apr 2002 02:36:04 -0000	1.12
@@ -111,7 +111,6 @@
         return [db_string select_parent_name_by_id {} -default ""]
     }
 
-
     # site_nodes_list procs
 
     ad_proc -public get_site_nodes_list {
@@ -132,8 +131,7 @@
         {-site_nodes_list:required}
         {-index:required}
     } {
-        # ns_log notice "llength [llength $site_nodes_list] [lindex $site_nodes_list [expr $index + 1 ]] "
-        return [lindex $site_nodes_list [expr $index + 1 ]]
+        return [lindex $site_nodes_list [expr $index + 1]]
     }
 
 
@@ -295,9 +293,8 @@
     } {
         if {[package_mount_count -package_key $package_key] == 1} {
             return 1
-        } else {
-            return 0
         }
+        return 0
     }
 
     ad_proc -public site_node_create {
@@ -310,13 +307,13 @@
     } {
         set node_id [db_exec_plsql create_node {
             begin
-            :1 := site_node.new(
-            node_id => :node_id,
-            parent_id => :parent_node_id,
-            name => :name,
-            directory_p => :directory_p,
-            pattern_p => 't'
-            );
+                :1 := site_node.new(
+                    node_id => :node_id,
+                    parent_id => :parent_node_id,
+                    name => :name,
+                    directory_p => :directory_p,
+                    pattern_p => 't'
+                );
             end;
         }]