Index: openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl	29 May 2002 23:00:25 -0000	1.6
+++ openacs-4/packages/dotlrn-syllabus/tcl/dotlrn-syllabus-procs.tcl	13 Jun 2002 19:50:57 -0000	1.7
@@ -70,7 +70,7 @@
                                  -community_id $community_id
         ]
                 
-        syllabus_admin_portlet::add_self_to_page $admin_portal_id
+        syllabus_admin_portlet::add_self_to_page -portal_id $admin_portal_id
 
         # set up the syllabus portlet
         set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
Index: openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl	29 May 2002 23:00:25 -0000	1.4
+++ openacs-4/packages/dotlrn-syllabus/tcl/syllabus-admin-portlet-procs.tcl	13 Jun 2002 19:50:57 -0000	1.5
@@ -46,7 +46,8 @@
     } {
         Adds a syllabus admin portlet element to the specified portal
     } {
-        return [portal::add_element_parameters \
+        # this is simple, just use add_element, not add_element_parameters
+        return [portal::add_element \
                 -portal_id $portal_id \
                 -portlet_name [get_my_name]
         ]
@@ -72,4 +73,13 @@
             -config_list $cf
     }
 
+
+
+    ad_proc -public link {
+        cf
+    } {
+    } {
+        # noop
+    }
+
 }
Index: openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl	24 May 2002 01:58:46 -0000	1.4
+++ openacs-4/packages/dotlrn-syllabus/tcl/syllabus-portlet-procs.tcl	13 Jun 2002 19:50:57 -0000	1.5
@@ -58,7 +58,6 @@
     } {
         return [portal::add_element_parameters \
                     -portal_id $portal_id \
-                    -page_id $page_id \
                     -portlet_name [get_my_name] \
                     -pretty_name [get_pretty_name] \
                     -key "package_id" \
@@ -110,30 +109,31 @@
 
         set community_id [dotlrn_community::get_community_id]
         set element_id [portal::get_element_ids_by_ds \
-                [dotlrn_community::get_portal_template_id $community_id] \
+                [dotlrn_community::get_portal_id] \
                 [fs_portlet::get_my_name]
         ]
         set root_folder_id \
-                [portal::get_element_param [lindex $element_id 0] "folder_id"]
+                [portal::get_element_param [lindex $element_id 0] folder_id]
         set public_folder_id \
-                [fs::get_folder -parent_id $root_folder_id -name "public"]
+                [fs::get_folder -parent_id $root_folder_id -name public]
         
         lappend out_list $public_folder_id
 
         set rows [fs::get_folder_contents -folder_id $public_folder_id \
                 -user_id [dotlrn::get_users_rel_segment_id] 
         ]
         
-        # this could move to fs::
+        # this should move to fs::
         foreach row $rows {
-            set name [ns_set get $row "name"]
-            if {[string equal -nocase $name "syllabus"]} {
-                lappend out_list [ns_set get $row "object_id"]
-                lappend out_list [ns_set get $row "type"]
-                lappend out_list [ns_set get $row "live_revision"]
+            if {[string equal -nocase [ns_set get $row name] syllabus]} {
+                lappend out_list [ns_set get $row object_id]
+                lappend out_list [ns_set get $row type]
+                lappend out_list [ns_set get $row live_revision]
             }
         }
-        
+
+        # ns_log notice "aks11 $out_list"
+
         return $out_list
     }