<% # domain-edit-2.adp -- commit changes made to a domains in the # glassroom_domains table # (this is an ADP instead of a Tcl file to be consistent # with domain-edi.adp) set_the_usual_form_variables # Expects old_domain_name, domain_name, by_whom_paid; # last_paid, epires, ns_db magic vars that # can be stitched together to form expires if {[ad_read_only_p]} { ad_return_read_only_maintenance_message return } # check for user set user_id [ad_verify_and_get_user_id] if { $user_id == 0 } { ns_returnredirect "/register.tcl?return_url=[ns_urlencode [ns_conn url]]" return } # check for bad input # set happy_p [glassroom_check_domain_args $domainname $ip_address $further_docs_url] if [catch { ns_dbformvalue [ns_conn form] expires date expires } errmsg] { ad_return_complaint 1 "

The expiration date wasn't well-formed" ns_adp_abort } if [catch { ns_dbformvalue [ns_conn form] last_paid date last_paid } errmsg] { ad_return_complaint 1 "

The Last-paid date wasn't well-formed" ns_adp_abort } set happy_p 1 if $happy_p { set update_sql " update glassroom_domains set domain_name='$QQdomain_name', by_whom_paid='$QQby_whom_paid', last_paid = to_date('$last_paid', 'YYYY-MM-DD'), expires = to_date('$expires', 'YYYY-MM-DD') where domain_name='$old_domain_name'" set db [ns_db gethandle] ns_db dml $db $update_sql ns_db releasehandle $db # and redirect back to index.tcl so folks can see the new domain ns_returnredirect "domain-view.tcl?[export_url_vars domain_name]" } %>