Index: openacs-4/packages/contacts/tcl/contact-complaint-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-complaint-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/tcl/contact-complaint-procs.tcl	8 Aug 2005 21:52:10 -0000	1.1
@@ -0,0 +1,62 @@
+ad_library {
+
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+} 
+
+
+namespace eval contact::complaint:: {}
+
+ad_proc -public contact::complaint::new {
+    {-complaint_id ""}
+    {-title ""}
+    -customer_id:required
+    -turnover:required
+    -percent:required
+    {-description ""}
+    -supplier_id:required
+    -paid:required
+    -object_id:required
+    {-state "open"}
+} {
+    Inserts a new complaint. Creates a new revision if complaint_id is not present, 
+    otherwise creates a new item and revision for the complaint.
+    
+    @param complaint_id  The revision_id of the complaint_id, if not provided then it will create a new one.
+    @param title         The title of the item.
+    @param customer_id   
+    @param turnover
+    @param percent
+    @param description
+    @param supplier_id
+    @param paid
+    @param object_id
+
+} {
+    if { [empty_string_p $complaint_id] } {
+	# We create a new cr_item and revision
+	set item_id [content::item::new \
+			 -name $title \
+			 -creation_user [ad_conn user_id] \
+			 -package_id [ad_conn package_id] \
+			 -description $description \
+			 -title $title \
+			 -is_live t]
+	set complaint_id [content::item::get_live_revision -item_id $item_id]
+	
+    } else {
+	# Create only a new revision
+	set item_id [db_string get_item_id { }]
+	set complaint_id [content::revision::new \
+			      -item_id $item_id \
+			      -title $title \
+			      -description $description \
+			      -creation_user [ad_conn user_id] \
+			      -package_id [ad_conn package_id]]
+
+    }
+    
+    # Insert extra information the table
+    db_dml insert_complaint { }
+
+}
\ No newline at end of file
Index: openacs-4/packages/contacts/tcl/contact-complaint-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-complaint-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/tcl/contact-complaint-procs.xql	8 Aug 2005 21:52:10 -0000	1.1
@@ -0,0 +1,27 @@
+<? xml version="1.0" ?>
+
+<queryset>
+
+<fullquery name="contact::complaint::new.insert_complaint">
+    <querytext>
+	insert into
+		contact_complaint_tracking 
+		(complaint_id,customer_id,turnover,percent,supplier_id,paid,object_id,state)
+		values
+		(:complaint_id,:customer_id,:turnover,:percent,:supplier_id,:paid,:object_id,:state)
+    </querytext>
+</fullquery>
+
+<fullquery name="contact::complaint::new.get_item_id">
+    <querytext>
+	select
+		item_id
+	from 
+		cr_revisions
+	where
+		revision_id = :complaint_id
+    </querytext>
+</fullquery>
+
+</queryset>
+