Index: openacs.org-dev/templates/dotlrn/dotlrn-header.adp =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/templates/dotlrn/dotlrn-header.adp,v diff -u -r1.4 -r1.5 --- openacs.org-dev/templates/dotlrn/dotlrn-header.adp 8 Nov 2002 23:26:27 -0000 1.4 +++ openacs.org-dev/templates/dotlrn/dotlrn-header.adp 8 Nov 2002 23:49:10 -0000 1.5 @@ -34,8 +34,8 @@ - - + + Index: openacs.org-dev/templates/dotlrn/user-status.adp =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/templates/dotlrn/user-status.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs.org-dev/templates/dotlrn/user-status.adp 8 Nov 2002 23:49:10 -0000 1.1 @@ -0,0 +1,22 @@ + + + +logged in as
@name@ +
+ +Register + + +
+ + + + + +Log Out + + +Log In + + + Index: openacs.org-dev/templates/dotlrn/user-status.adp.~1.4.~ =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/templates/dotlrn/user-status.adp.~1.4.~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs.org-dev/templates/dotlrn/user-status.adp.~1.4.~ 8 Nov 2002 23:49:10 -0000 1.1 @@ -0,0 +1,22 @@ + + + +logged in as
@name@ +
+ +Log In + + +
+ + + + + +Log Out + + + Register + + + Index: openacs.org-dev/templates/dotlrn/user-status.adp~ =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/templates/dotlrn/user-status.adp~,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs.org-dev/templates/dotlrn/user-status.adp~ 8 Nov 2002 23:49:10 -0000 1.1 @@ -0,0 +1,22 @@ + + + +logged in as
@name@ +
+ +Register + + +
+ + + + + +Log Out + + +Log In + + + Index: openacs.org-dev/templates/dotlrn/user-status.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/templates/dotlrn/user-status.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs.org-dev/templates/dotlrn/user-status.tcl 8 Nov 2002 23:49:10 -0000 1.1 @@ -0,0 +1,9 @@ + +set user_id [ad_conn user_id] + +if !$user_id { + set login_p 0 +} else { + set login_p 1 + set name [db_string get_user_name "select first_names || ' ' || last_name from persons where person_id = $user_id" -default "unknown user"] +} \ No newline at end of file