Index: openacs-4/packages/contacts/tcl/contacts-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-install-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/contacts/tcl/contacts-install-procs.tcl	14 Oct 2005 20:43:35 -0000	1.15
+++ openacs-4/packages/contacts/tcl/contacts-install-procs.tcl	14 Oct 2005 23:04:38 -0000	1.16
@@ -127,7 +127,24 @@
 	-sort_order 7 \
 	-column_spec "varchar(7) constraint cct_state_ck
                                   check (state in ('valid','invalid','open'))"
+
+    content::type::attribute::new \
+	-content_type "contact_complaint" \
+	-attribute_name "employee_id" \
+	-datatype "integer" \
+	-pretty_name "Employee ID" \
+	-sort_order 8 \
+	-column_spec "integer constraint contact_complaint_track_employee_fk
+                                  references parties(party_id) on delete cascade"
     
+    content::type::attribute::new \
+	-content_type "contact_complaint" \
+	-attribute_name "refund" \
+	-datatype "money" \
+	-pretty_name "Refund" \
+	-sort_order 9 \
+	-column_spec "float"
+    
 }
 
 ad_proc -public contacts::install::package_instantiate {
@@ -422,5 +439,26 @@
 		# Now we just delete the table contact_complaint_tracking
 		db_dml drop_table { drop table contact_complaint_tracking } 
 	    }
+	    
+	    1.0d21 1.0d22 {
+
+		content::type::attribute::new \
+		    -content_type "contact_complaint" \
+		    -attribute_name "employee_id" \
+		    -datatype "integer" \
+		    -pretty_name "Employee ID" \
+		    -sort_order 8 \
+		    -column_spec "integer constraint contact_complaint_track_employee_fk
+                                  references parties(party_id) on delete cascade"
+
+		content::type::attribute::new \
+		    -content_type "contact_complaint" \
+		    -attribute_name "refund_amount" \
+		    -datatype "money" \
+		    -pretty_name "Refund" \
+		    -sort_order 9 \
+		    -column_spec "float"
+
+	    }
 	}
 }
\ No newline at end of file