ad_page_contract {
} {
    {return_url "/"}
    {mode ""}
    {title ""}
    {available_date ""}
    {type_of_transaction ""}
    {type_of_property ""}
    {price ""}
    {taxes ""}
    {room_qty ""}
    {lavatory_qty ""}
    {bathroom_qty ""}
    {floors_qty ""}
    {surface ""}
    {announcer ""}
    {description ""}
    {charac_required ""}
    {charac_opt_arc ""}
    {charac_opt_vic ""}
    {charac_opt_gen ""}
    {status ""}
    upload_file:trim,optional
    upload_file.tmpfile:tmpfile,optional
}

set page_title "Create Annonce [ad_conn instance_name]"
set context [list [list "." "Annonces"] "Create"]


template::head::add_javascript -src "resources/js/create_annonce_form.js" -order 1

if {[string equal $mode "save"]} {


    set myform [ns_getform]
    if {[string equal "" $myform]} {
        ns_log Notice "No Form was submited"
    } else {
        ns_log Notice "FORM"
        ns_set print $myform
        for {set i 0} {$i < [ns_set size $myform]} {incr i} {
            set varname [ns_set key $myform $i]
            set varvalue [ns_set value $myform $i]
            if {[string match {cat_*} $varname]} {
                #set varname [lindex [split $varname "_"] 1]
                #lappend lchars "$varname $varvalue"
            }
        }
    }




    set available_date1  "[string trim $available_date]"
    set available_date2 "[string map {. -} $available_date1]"
    set available_date3 "[template::util::date::get_property year $available_date2] [template::util::date::get_property month $available_date2] [template::util::date::get_property \
day $available_date2]"


    set annonce_id [1c_annonces::annonce::add \
                        -title $title \
                        -type_of_transaction $type_of_transaction \
                        -type_of_property $type_of_property \
                        -price $price \
                        -taxes $taxes \
                        -available_date $available_date \
                        -room_qty $room_qty \
                        -lavatory_qty $lavatory_qty \
                        -bathroom_qty $bathroom_qty \
                        -floors_qty $floors_qty \
                        -surface $surface \
                        -type_of_announcer $announcer \
                        -description $description \
                        -charac_req $charac_required \
                        -charac_opt_gen $charac_opt_gen \
			-charac_opt_arc $charac_opt_arc \
			-charac_opt_vic $charac_opt_vic \
			-status $status]






    if {[lindex $upload_file 0] ne ""} {
        ns_log Notice "UPDLOAD FILE"
        ns_log Notice "$upload_file"
        ns_log Notice "$upload_file.tmpfile"



        set path [ad_tmpnam]
        file mkdir $path



            # More flexible parameter design could be:
        # zip {unzip -jd {out_path} {in_file}} tar {tar xf {in_file} {out_path}} tgz {tar xzf {in_file} {out_path}}

        set upload_files [list]
        set upload_tmpfiles [list]

     foreach file [glob -nocomplain "$path/*"] {
            lappend upload_files [file tail $file]
            lappend upload_tmpfiles $file
        }

        set mime_type ""



        # ns_log notice "file_add mime_type='${mime_type}'"
        set i 0
        set number_upload_files [llength $upload_files]
        foreach upload_file $upload_files tmpfile $upload_tmpfiles {
            set file_id [db_nextval "acs_object_id_seq"]
            set folder_id $annonce_id
            set this_file_id $file_id
            set this_title $title
            set mime_type [cr_filename_to_mime_type -create -- $upload_file]
            # upload a new file
            # if the user choose upload from the folder view
            # and the file with the same name already exists
            # we create a new revision

            if {$this_title eq ""} {
                set this_title $upload_file
            }

            set existing_item_id [fs::get_item_id -name $upload_file -folder_id $folder_id]




      if {$existing_item_id ne ""} {
                # file with the same name already exists in this folder
                if { [parameter::get -parameter "BehaveLikeFilesystemP" -package_id [ad_conn package_id]] } {
                    # create a new revision -- in effect, replace the existing file
                    set this_file_id $existing_item_id
                    permission::require_permission \
                        -object_id $this_file_id \
                        -party_id $user_id \
                        -privilege write
                } else {
                    # create a new file by altering the filename of the
                    # uploaded new file (append "-1" to filename)
                    set extension [file extension $upload_file]
                    set root [string trimright $upload_file $extension]
                    append new_name $root "-$this_file_id" $extension
                    set upload_file $new_name
                }
            }


#           ns_log Notice "$upload_file \ $this_file_id \n $tmpfile \n"

            fs::add_file \
                -name $upload_file \
                -item_id $this_file_id \
                -parent_id $annonce_id \
                -tmp_filename $tmpfile \
                -creation_user [ad_conn user_id] \
                -creation_ip [ad_conn peeraddr] \
                -title  "fileannonce-${annonce_id}-${file_id}" \
                -description "$this_title - $annonce_id - $this_file_id"   \
                -package_id [1c_annonces::get_fs_package_id] \
                -mime_type $mime_type


            file delete $tmpfile
            incr i


        }
        file delete $upload_file.tmpfile


    }