[hunchentoot-devel] ht-simple-ajax

[Haris]

I had to move to Internet Explorer again because it stopped working in 
Firefox.
I started to debug javascript and on
alert (response.firstNode.firstNode.nodcValue)
it says that firstNode.firstNode is not an object ?

---------------------------------------------------------------------------------------------------------------

(defpackage ajax (:use :cl :hunchentoot :cl-who :parenscript 
:ht-simple-ajax))
(in-package ajax)

(setf *access-log-pathname* "c:/lisp/hunchentoot-log/access.log")
(setf *message-log-pathname* "c:/lisp/hunchentoot-log/message.log")

(setf *js-string-delimiter* #\")

(defparameter *ajax-processor*
  (make-instance 'ajax-processor :server-uri "/ajax"))

(push (create-ajax-dispatcher *ajax-processor*) *dispatch-table*)
(push (create-prefix-dispatcher "/" 'index) *dispatch-table*)

(defun-ajax show-number () (*ajax-processor*)
  "10")



(defun index ()
  (with-html-output-to-string (*standard-output* nil :prologue t :indent t)
    (:html :xmlns "http://www.w3.org/1999/xhtml"
     (:head
      (:title "ht-simple-ajax demo")
      (princ (generate-prologue *ajax-processor*))
      (:script :type "text/javascript"
       (str
        (ps
          (defun callback (response)
            (alert (chain response first-node first-node node-value)) ; 
ERROR:   firstNode.firstNode
            0))))) 
;                  is not an object

       (:body
      (:p (:a :href (ps-inline (ajax_show_nuimber callback)) "Show 
number"))))))