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
|