Well, there is an Croatian saying that goes something like this - "the
devil wouldn't leave me at peace"... :-)

I have partial success. The login widget is now present, and I can
login. From the log that I have put in, I can see that the login has
been successfull, even on-success has been "active", but there is no
navigation menu, and the login widget still remains on screen. And I
can re-login as much as I want, but still no navigation, only
persistent login widget.

Leslie, I have used your example as you have written it here
http://paste.lisp.org/+2JQR/2 , and modified only the following (and I
have disabled all of the methods that I have used, I've used only your
render-navigation-menu):

(defun init-user-session (root)
  (setf (widget-children root)
        (list
          (make-instance 'flash :messages (list (weblocks:make-widget
"Some welcome message")))
          (make-navigation "Main nav"
                               (list "Main page" (main-page) "mainpage")
                               :navigation-class 'protected-navigation
                               :extra-args `(:user-fn
                                               ,(f0
(webapp-session-value 'user))
                                             :login-widget-generator
                                               ,(f0
                                                   (make-instance 'login-maybe
                                                                   :view 
'login-form-view
                                                                   :on-login 
'authenticate-user
                                                                   :on-success 
(f-underscore:f_%

          (logiraj +DEBUG+ "we are successfull!")
                                                                                
 (setf (webapp-session-value 'user) t)))))

(defun main-page ()
(format nil "we are now in main page"))

When I first connect to the site, I get flash message, and under it
the login widget. When I login, I can see in the log that
authenticate-user has been called, that the username/password is ok,
and I can see the "we are successful" message in the log. I have used
logging that I have found here http://paste.lisp.org/+1YN2/2 that
someone using nick rayservers put there, and modified it for my needs.
Rayservers, who ever you are, thank you very much, it is very very
usefull.

So, when login is successfull, the flash widget dissapears, but the
login widget remains, and there is no menu whatsoever. Not even in the
webpage source, I can't see any menu elements being generated there.
>From the log file I can see that navigation goes through all of the
menu options.

My goal is to put the functional code to paste.lisp.org, so that other
people can use it too. As I can see from my beginner point of view,
login and navigation are "a bit" of an issue in weblocks. My longterm
goal is to use navigation based on user rights, for example, certain
user classes (as in rights, not as in objects) will only be able to
use some menus. So the login and navigation are very important issues
for me.

Leslie, I would ask you to help me please to make your example
functional using login widget, I think it will be benefitial for
everyone, and it bugs me that I'm so close to the solution and yet I
don't know how to make it work.

BTW, I'm using jquery (or trying to in any case). Is there an
possibility that there lies my problem? That jquery in some way
conflicts with default weblocks js libraries? I have read about it in
this newsgroup. I guess this probably isn't the case since js
manipulates existing html elements, and there are no menu elements...

-- 
You received this message because you are subscribed to the Google Groups 
"weblocks" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to 
[email protected].
For more options, visit this group at 
http://groups.google.com/group/weblocks?hl=en.

Reply via email to