Index: openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl	10 Nov 2002 18:16:48 -0000	1.3
+++ openacs-4/packages/dotlrn-syllabus/www/syllabus-admin-portlet.tcl	29 May 2003 18:05:05 -0000	1.4
@@ -33,7 +33,17 @@
 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 community_id [dotlrn_community::get_community_id]
 
 set title [_ dotlrn-syllabus.pretty_name]
 set upload_url "file-storage/file-add?folder_id=$public_folder_id&lock_title_p=1&title=[ad_urlencode $title]"
 set link_to_url "file-storage/simple-add?folder_id=$public_folder_id&lock_title_p=1&title=[ad_urlencode $title]"
+# 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]
+}