(when new-object-p
  (let ((id (adwolf-db:accountid (data ctl))))
;;expands to with-mediawiki with url and credentials specified
    (with-wiki () 
      (ignore-errors
	(cl-mediawiki:create-page
	 #?"Client:${id}"
	 #?"{{Client|id=${id}|name=${ (display-name (data ctl)) }}}\r\n\r\n== ADWClient Notes ==\r\n\r\n"
	 :summary "New Client Created by ${ (get-authenticated-user) } in adwclient"
	 ))
      (ignore-errors
	(cl-mediawiki:create-page
	 #?"Category:Client:${id}"
	 #?"Category Page for Client:${id}"
	 :summary "New Client Category Created by ${ (get-authenticated-user) } in adwclient"
	 ))
      )))

(when (or new-object-p
	  has-new-account-num)
  (with-wiki ()
    (ignore-errors
      (let ((new-dsl-order-template
	     (aif (adwolf-db:adwaccountnumber (data form))
		  #?"{{DslOrder|id=${id}|accountid=${it}|name=${ (adwolf-db:billingname (data form)) }}}"
		  #?"{{DslOrder|id=${id}|name=${ (adwolf-db:billingname (data form)) }}}")))
	(cl-mediawiki:regex-replace-all
	 #?/{{DslOrder[^\}]*}}/ #?"DslOrder:${id}"
	 new-dsl-order-template
	 :summary "New Client Created by ${ (get-authenticated-user) } in adwclient"
	 :default-content #?"${new-dsl-order-template}\r\n\r\n== Dsl Order Notes ==\r\n\r\n"
	 )))
    ))

(with-wiki ()
  (cl-mediawiki:add-new-page-section #?"DslOrder:${db-id}" "Cancellation Notes"
				     #?|${(adwolf-db:notes (data dsl))}

Date Canceled: ${ (clsql-sys:print-date  (clsql-sys:get-time)) } by ${ (get-authenticated-user) }
Former Ip Addresses: ${ (or new-notes "none") }
|
				     ))