Index: openacs-4/packages/faq/www/admin/faq-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/faq-add-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/faq/www/admin/faq-add-edit.tcl	22 Dec 2003 23:24:41 -0000	1.3
+++ openacs-4/packages/faq/www/admin/faq-add-edit.tcl	22 Dec 2003 23:42:33 -0000	1.4
@@ -19,9 +19,6 @@
 set context {[_ faq.Create_an_FAQ]} 
 set submit_label [_ faq.Create_FAQ] 
 set faq_name "" 
-set package_id [ad_conn package_id] 
-set user_id [ad_verify_and_get_user_id] 
-set creation_ip [ad_conn host] 
 
 if { ![ad_form_new_p -key faq_id]} { 
     set context {[_ faq.Edit_an_FAQ]}
@@ -33,28 +30,3 @@
     permission::require_permission -object_id [ad_conn package_id] -privilege faq_create_faq 
 } 
 
-ad_form -name faq_add_edit -form {
-
-        faq_id:key
-	{faq_name:text(text) {label "FAQ Name"} {html { size 50 }}}
-	{separate_p:text(select) {label "Category"} { options {{No f} {Yes t}} } }
-
-    } -select_query {
-	select faq_name,separate_p from faqs where faq_id = :faq_id
-    } -new_data {
-	set faq_id [db_exec_plsql create_faq {}]
-    } -edit_data {
-        db_dml faq_edit {
-            update faqs  
-            set    faq_name = :faq_name, 
-                   separate_p = :separate_p 
-            where  faq_id = :faq_id
-        } 
-    } -after_submit {
-        if { ![exists_and_not_null return_url] } {
-            set return_url [export_vars -base one-faq { faq_id }] 
-        }
-        ad_returnredirect $return_url
-        ad_script_abort
-    }
-