Index: openacs-4/packages/logger/lib/master.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/master.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/logger/lib/master.adp 5 Jan 2004 20:23:50 -0000 1.1 @@ -0,0 +1,22 @@ + +@title;noquote@ +@context;noquote@ +@focus;noquote@ + + @header_stuff@ + + + + + + + + + + + + + Index: openacs-4/packages/logger/lib/master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/master.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/logger/lib/master.tcl 5 Jan 2004 20:23:50 -0000 1.1 @@ -0,0 +1,5 @@ +if [template::util::is_nil context] { set context {}} + +set package_url [ad_conn package_url] + +if { ![info exists header_stuff] } { set header_stuff {} } Index: openacs-4/packages/logger/lib/nav-bar.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/nav-bar.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/logger/lib/nav-bar.adp 5 Jan 2004 20:23:50 -0000 1.1 @@ -0,0 +1,18 @@ + + + + + +
+ + + + +
+ +  |  + @links.name@ + +    +
+
Index: openacs-4/packages/logger/lib/nav-bar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/nav-bar.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/logger/lib/nav-bar.tcl 5 Jan 2004 20:23:50 -0000 1.1 @@ -0,0 +1,55 @@ +# Set up links in the navbar that the user has access to + +set user_id [ad_conn user_id] +set package_id [ad_conn package_id] +set package_url [ad_conn package_url] +set page_url [ad_conn url] + +set admin_p [permission::permission_p -object_id $package_id -privilege admin] + +# The links used in the navbar on format url1 label1 url2 label2 ... +set link_list {} + +# Log entries page +set index_urls [list "${package_url}" "${package_url}."] +lappend link_list $index_urls +lappend link_list {} +lappend link_list "List" + +# My log entrie page +if { [ad_conn user_id] != 0 } { + lappend link_list $index_urls + lappend link_list [list [list user_id $user_id]] + lappend link_list "My Entries" + + lappend link_list [list "${package_url}project-select"] + lappend link_list {} + lappend link_list "Add Entry" +} + +# The admin index page +if { $admin_p } { + lappend link_list [list "${package_url}admin/"] + lappend link_list {} + lappend link_list "Admin" +} + +# Convert the list to a multirow and add the selected_p attribute +multirow create links name url selected_p +foreach {url_list param_list label} $link_list { + set selected_p 0 + foreach url $url_list { + set selected_p [logger::ui::navbar_link_selected_p $url $param_list] + if { $selected_p } { + break + } + } + + if { ![empty_string_p $param_list] } { + append url "?[export_vars $param_list]" + } + + multirow append links $label $url $selected_p +} + +ad_return_template Index: openacs-4/packages/logger/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/index.adp,v diff -u -r1.13 -r1.14 --- openacs-4/packages/logger/www/index.adp 4 Jan 2004 21:27:48 -0000 1.13 +++ openacs-4/packages/logger/www/index.adp 5 Jan 2004 20:23:50 -0000 1.14 @@ -1,4 +1,4 @@ - + @instance_name@ + @page_title@ @context@ Index: openacs-4/packages/logger/www/log.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/log.adp,v diff -u -r1.10 -r1.11 --- openacs-4/packages/logger/www/log.adp 4 Jan 2004 21:27:48 -0000 1.10 +++ openacs-4/packages/logger/www/log.adp 5 Jan 2004 20:23:50 -0000 1.11 @@ -1,4 +1,4 @@ - + @page_title;noquote@ @context;noquote@ log_entry_form.value Index: openacs-4/packages/logger/www/project-select.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/project-select.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/logger/www/project-select.adp 22 May 2003 15:01:52 -0000 1.2 +++ openacs-4/packages/logger/www/project-select.adp 5 Jan 2004 20:23:50 -0000 1.3 @@ -1,4 +1,4 @@ - + @page_title;noquote@ @context;noquote@ Index: openacs-4/packages/logger/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/admin/index.adp,v diff -u -r1.12 -r1.13 --- openacs-4/packages/logger/www/admin/index.adp 4 Jan 2004 17:24:38 -0000 1.12 +++ openacs-4/packages/logger/www/admin/index.adp 5 Jan 2004 20:23:50 -0000 1.13 @@ -1,4 +1,4 @@ - + @page_title;noquote@
Index: openacs-4/packages/logger/www/admin/map-variable-to-project.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/admin/map-variable-to-project.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/logger/www/admin/map-variable-to-project.adp 4 Jan 2004 17:24:38 -0000 1.4 +++ openacs-4/packages/logger/www/admin/map-variable-to-project.adp 5 Jan 2004 20:23:50 -0000 1.5 @@ -1,4 +1,4 @@ - + @page_title;noquote@ @context;noquote@ Index: openacs-4/packages/logger/www/admin/project.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/admin/project.adp,v diff -u -r1.7 -r1.8 --- openacs-4/packages/logger/www/admin/project.adp 4 Jan 2004 17:24:38 -0000 1.7 +++ openacs-4/packages/logger/www/admin/project.adp 5 Jan 2004 20:23:50 -0000 1.8 @@ -1,4 +1,4 @@ - + @page_title;noquote@ @context;noquote@ project_form.name Index: openacs-4/packages/logger/www/admin/projection.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/admin/projection.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/logger/www/admin/projection.adp 22 May 2003 15:02:07 -0000 1.4 +++ openacs-4/packages/logger/www/admin/projection.adp 5 Jan 2004 20:23:50 -0000 1.5 @@ -1,4 +1,4 @@ - + @page_title;noquote@ @context;noquote@ projection_form.variable_id Index: openacs-4/packages/logger/www/admin/variable.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/admin/variable.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/logger/www/admin/variable.adp 22 May 2003 15:02:07 -0000 1.4 +++ openacs-4/packages/logger/www/admin/variable.adp 5 Jan 2004 20:23:50 -0000 1.5 @@ -1,4 +1,4 @@ - + @page_title;noquote@ @context;noquote@ variable_form.name Fisheye: Tag 1.7 refers to a dead (removed) revision in file `openacs-4/packages/logger/www/lib/master.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/logger/www/lib/master.tcl'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/logger/www/lib/nav-bar.adp'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.9 refers to a dead (removed) revision in file `openacs-4/packages/logger/www/lib/nav-bar.tcl'. Fisheye: No comparison available. Pass `N' to diff?