# packages/contacts/www/add-edit.tcl

ad_page_contract {
  @author Jon Griffin jon@jongriffin.com
  @creation-date 2002-01-11
  @cvs-id $Id: add-edit.tcl.sav,v 1.1 2002/09/24 05:23:52 jong Exp $
} {
    contact_id:integer,notnull,optional
    {family_name ""}
    {given_name ""}
    {middle_name ""}
    {formatted_name ""}
    {preferred_given_name ""}
    {affix ""}
    {company_name  ""}
    {company_type_id  ""}
    {category_id  ""}
    {notes ""}
} -properties {
  context_bar:onevalue
}

set package_id [ad_conn package_id]

# get the company types
# note make sure this is subsite aware.

query company_types multilist "select company_type_name, company_type_id from company_types"
query categories multilist "select category_name, category_id from contact_categories"


if {[info exists contact_id]} {
  ad_require_permission $contact_id write
  set context_bar [ad_context_bar "Edit Contact"]
} else {
  ad_require_permission $package_id create
  set context_bar [ad_context_bar "New contact"]
}

template::form create new_contact

if {[template::form is_request new_contact] && [info exists contact_id]} {

  template::element create new_contact contact_id \
      -widget hidden \
      -datatype number \
      -value $contact_id

  db_1row contact_select {
    select c.contact_id,
        family_name, 
        given_name,
        middle_name,
        formatted_name,
        preferred_given_name,
        affix,
        company_name,
        company_type_id,
        notes
    from contacts c 
    where c.contact_id = :contact_id
  }
}

template::element create new_contact family_name \
    -datatype text \
    -label "Last Name" \
    -html { size 20 } \
    -value $family_name

template::element create new_contact given_name \
    -datatype text \
    -label "First Name" \
    -html { size 10 } \
    -value $given_name

template::element create new_contact middle_name \
    -datatype text \
    -label "Middle" \
    -html { size 30 } \
    -value $middle_name

template::element create new_contact formatted_name \
    -datatype text \
    -label "Formatted Name" \
    -html { size 40 } \
    -value $formatted_name

template::element create new_contact preferred_given_name \
    -datatype text \
    -label "Preferred Name" \
    -html { size 40 } \
    -value $preferred_given_name

template::element create new_contact affix \
    -datatype text \
    -label "Affix" \
    -html { size 30 } \
    -value $affix

template::element create new_contact company_name \
    -datatype text \
    -label "Company Name" \
    -html { size 40 } \
    -value $company_name

template::element create new_contact company_type_id \
    -datatype text \
    -widget select \
    -label "Company Type" \
    -options $company_types \
    -value $company_type_id
    


## category
template::element create new_contact category_id \
    -datatype text \
    -widget select \
    -label "Contact Category" \
    -options $categories \
    -value $category_id

template::element create new_contact hr_add \
    -datatype text \
    -widget inform \
    -label "" \
    -value <hr>

if { [info exists contact_id] } {
    set link "<p><a href=\"addresses/.?contact_id=$contact_id\">Edit Addresses</a><p>"
} else {
    set link ""
}

template::element create new_contact address_link \
    -datatype text \
    -widget inform \
    -label "" \
    -value $link

if { [info exists contact_id] } {
  set phono_link "<a href=\"phones/.?contact_id=$contact_id\">Edit Phones</a>"
} else {
    set phono_link ""
}

template::element create new_contact phone_link \
    -datatype text \
    -widget inform \
    -label "" \
    -value $phono_link

##address
#template::form::section new_contact "Address Info"

#######################################
### start of processing of update/new
#######################################
## this will only  update the contact part
## seperate functions are needed for phone/address

if [template::form is_valid new_contact] {
  set user_id [ad_conn user_id]
  set peeraddr [ad_conn peeraddr]

  if [info exists contact_id] {
    db_dml note_update {
      update contacts
      set family_name     = :family_name,
          given_name      = :given_name,
	  middle_name     = :middle_name,
	  formatted_name  = :formatted_name,
	  preferred_given_name = :preferred_given_name,
	  affix           = :affix,
	  company_name    = :company_name,
	  company_type_id = :company_type_id,
          category_id     = :category_id,
	  notes           = :notes
      where contact_id = :contact_id
    }
} else {
    db_dml new_contact {
      declare
        id integer;
      begin
        id := contact.new (
        given_name      => :given_name,
        middle_name     => :middle_name,
	formatted_name  => :formatted_name,
	preferred_given_name => :preferred_given_name,
	affix           => :affix,
	company_name    => :company_name,
	company_type_id => :company_type_id,
        category_id     => :category_id,
        notes           => :notes,
        creation_user   => :user_id,
        creation_ip     => :peeraddr,
        context_id      => :package_id
        );

        acs_permission.grant_permission(
          object_id  => id,
          grantee_id => :user_id,
          privilege  => 'write'
        );

        acs_permission.grant_permission (
          object_id  => id,
          grantee_id => :user_id,
          privilege  => 'delete'
        );
      end;
    }
}

  ad_returnredirect "."
}

ad_return_template