Index: openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.tcl 4 Aug 2003 11:19:46 -0000 1.2 +++ openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.tcl 27 Aug 2003 17:23:27 -0000 1.3 @@ -1,10 +1,10 @@ ad_library { - Provide functions for Content Repository folders - - @author Jun Yamog - @creation-date 10 Aug 2002 - @cvs-id $Id$ + Provide functions for Content Repository folders + + @author Jun Yamog + @creation-date 10 Aug 2002 + @cvs-id $Id$ } namespace eval bcms::folder {} @@ -26,10 +26,10 @@ } { set bcms_root_folder [parameter::get -parameter root_folder_id -default 0] if {($bcms_root_folder > 0) || ($bcms_root_folder == [bcms::folder::get_cr_root_folder])} { - return $bcms_root_folder + return $bcms_root_folder } else { - ns_log warning "bcms root folder id not properly set, please set on the admin pages" - return 0 + ns_log warning "bcms root folder id not properly set, please set on the admin pages" + return 0 } }