Index: openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl	13 Jan 2005 13:58:42 -0000	1.18
+++ openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl	8 Aug 2006 21:27:12 -0000	1.19
@@ -30,10 +30,11 @@
         {-package_id:required}
         {-content:required}
         {-pretty_name:required}
+	{-format "text/html"}
     } {
         Calls the pl/sql to create the new content item
     } {
-        # Create the content item
+	# Create the content item
         set content_id [db_exec_plsql new_content_item {}]
 
         # Ben's style only cause he was editing here and then changed things back
@@ -72,8 +73,8 @@
 		lappend new_content_ids [static_portal_content::new \
                                     -package_id $package_id \
                                     -content [get_content -content_id $old_content_id] \
-                                    -pretty_name [get_pretty_name -content_id $old_content_id]
-				   ]
+				    -format [get_content_format -content_id $old_content_id] \
+				    -pretty_name [get_pretty_name -content_id $old_content_id]]
 
 	    }
 
@@ -167,10 +168,12 @@
         {-content_id:required}
         {-content:required}
         {-pretty_name:required}
+	{-format "text/html"}
     } {
         updates the content item
     } {
-        db_transaction {
+	
+	db_transaction {
             # update the content item
             db_dml update_content_item {}
             
@@ -225,5 +228,12 @@
     } {
         return [db_string get_package_id.select {}]
     }
-
+    
+    ad_proc -public get_content_format {
+	{-content_id:required}
+    } {
+	Get the format of the content's item
+    } {
+	return [db_string get_content_format.select {} ]
+    }
 }