Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl,v diff -u -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl 17 Oct 2002 10:41:07 -0000 1.2.2.1 +++ openacs-4/packages/dotlrn-syllabus/www/syllabus-portlet.tcl 12 Mar 2003 02:34:13 -0000 1.2.2.2 @@ -28,12 +28,16 @@ } array set config $cf +set community_id [dotlrn_community::get_community_id] -set syllabus_info_list [syllabus_portlet::get_syllabus_info_list \ - -community_id [dotlrn_community::get_community_id] -] -set public_folder_id [lindex $syllabus_info_list 0] -set syllabus_id [lindex $syllabus_info_list 1] -set type [lindex $syllabus_info_list 2] -set live_revision [lindex $syllabus_info_list 3] -set file_upload_name [lindex $syllabus_info_list 4] +# DRB: community_id will be blank if we're called by the portal package portal preview +# code for the generic class portlet template. + +if { ![string equal $community_id ""] } { + set syllabus_info_list [syllabus_portlet::get_syllabus_info_list -community_id $community_id + set public_folder_id [lindex $syllabus_info_list 0] + set syllabus_id [lindex $syllabus_info_list 1] + set type [lindex $syllabus_info_list 2] + set live_revision [lindex $syllabus_info_list 3] + set file_upload_name [lindex $syllabus_info_list 4] +}