Index: openacs-4/packages/acs-admin/www/developer.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/developer.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-admin/www/developer.adp 21 Sep 2003 19:21:47 -0000 1.1 @@ -0,0 +1,102 @@ + + @page_title;noquote@ + @context;noquote@ + + + + + +
+ + + + + + + + + + + + + + + + +
+ Quick Links +
+ Developer Community +
+ OpenACS Q&A forum +
+ Other OpenACS forums +
+ Report a bug +
+
+ + +

Tools For Developers

+ + + + +

Configure This Site

+ +

Thank you for using OpenACS. Please write to us at the OpenACS discussion forums to let + us know of your experience with installing and using OpenACS.

+ + + + +

Learn More

+ Index: openacs-4/packages/acs-admin/www/developer.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/developer.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-admin/www/developer.tcl 21 Sep 2003 19:21:47 -0000 1.1 @@ -0,0 +1,13 @@ +ad_page_contract { + Developer's site-wide admin home page. + + @author Lars Pind (lars@collaboraid.biz) + + @creation-date September 21, 2003 + @cvs-id $Id: developer.tcl,v 1.1 2003/09/21 19:21:47 lars Exp $ +} + +set page_title "Developer's Administration" +set context [list $page_title] + +set acs_root_dir [acs_root_dir] Index: openacs-4/packages/acs-admin/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/index.adp,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/acs-admin/www/index.adp 17 Sep 2003 21:56:22 -0000 1.6 +++ openacs-4/packages/acs-admin/www/index.adp 21 Sep 2003 19:21:47 -0000 1.7 @@ -27,8 +27,6 @@ -

Tools For Developers

- - - - +

+ » Developer's Admin +

Index: openacs-4/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index.adp,v diff -u -N -r1.20 -r1.21 --- openacs-4/www/index.adp 18 Sep 2003 17:13:51 -0000 1.20 +++ openacs-4/www/index.adp 21 Sep 2003 19:21:17 -0000 1.21 @@ -1,138 +1,29 @@ -@system_name;noquote@ + @system_name;noquote@ - - - - - -
+ +
+ +
+ +

Open Architecture Community System @acs_version@ at - @system_name@. Thank you for using OpenACS. Please write to us at the OpenACS discussion forums to let - us know of your experience with installing and using OpenACS.

+ @system_name@.

- You are currently logged in as @name@ (@name@'s - @home_url_name@) (change - login). + You are currently logged in as @user.first_names@ @user.last_name@. Log in in the box on the right, using the email address and password that you have just specified for the administrator.

-

Here are the packages currently available to you

- -

System Services

Installed Packages

 - - - -

Configure This Site

- -
    -
  • - Customize this page. Edit the files - @acs_root_dir@/www/index.adp and - @acs_root_dir@/www/index.tcl. (More information) -
    • -
  • Change the site's overall appearance by editing the master template that wraps every page. The master template is @acs_root_dir@/www/default-master.adp. An ADP file is almost like HTML, except with a few extra bells - and whistles (more information).
    • -
  • Site Administration -
      -
    • Invite Users or create Groups (More information)
      • -
    • Download contributed packages at the OpenACS Software Page.
      • -
    • Install packages. In addition to the Core packages, - which are already installed, OpenACS ships with many Standard - packages with additional functionality. Install these packages - with the Package Manager.
      • + +

      + -

    • Use the Site Map to mount and configure packages.
      • -
    -
- -

Learn More

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

- - - - - -
- - - - - - - - - - - - - - - - -
- Quick Links -
- Developer Community -
- OpenACS Q&A forum -
- Other OpenACS forums -
- Report a bug -
-
-
Index: openacs-4/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/Attic/index.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/www/index.tcl 18 Sep 2003 17:13:51 -0000 1.9 +++ openacs-4/www/index.tcl 21 Sep 2003 19:21:17 -0000 1.10 @@ -25,26 +25,17 @@ set user_id [ad_conn user_id] +set sw_admin_p [acs_user::site_wide_admin_p] + db_multirow nodes site_nodes {} if { $user_id != 0 } { # The user is loged in. - if {[db_0or1row user_name_select { - select first_names || ' ' || last_name as name, email - from persons, parties - where person_id = :user_id - and person_id = party_id - }]} { - set home_url [ad_pvt_home] - set home_url_name [ad_pvt_home_name] - } - set requires_registration_p_clause "" + acs_user::get -array user } set system_name [ad_system_name] set acs_version [ad_acs_version] -set acs_root_dir [acs_root_dir] - set focus {} Index: openacs-4/www/site-master.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/site-master.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/www/site-master.adp 17 Sep 2003 12:13:10 -0000 1.2 +++ openacs-4/www/site-master.adp 21 Sep 2003 19:21:17 -0000 1.3 @@ -42,6 +42,10 @@   Admin + +   + DevAdmin +   @pvt_home_name@ Index: openacs-4/www/site-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/www/site-master.tcl 18 Sep 2003 17:13:51 -0000 1.4 +++ openacs-4/www/site-master.tcl 21 Sep 2003 19:21:17 -0000 1.5 @@ -43,12 +43,11 @@ # Site-wide admin link set admin_url {} if { [ad_conn user_id] != 0 } { - array set swadmin_node [site_node::get -url [apm_package_url_from_key "acs-admin"]] - set swadmin_object_id $swadmin_node(object_id) - set sw_admin_p [permission::permission_p -object_id $swadmin_object_id -privilege admin] + set sw_admin_p [acs_user::site_wide_admin_p] if { $sw_admin_p } { set admin_url "/acs-admin/" - } elseif { [permission::permission_p -object_id [ad_conn subsite_id] -privilege admin] } { + set devhome_url "/acs-admin/developer" + } elseif { [permission::permission_p -object_id [subsite::get_element -element object_id] -privilege admin] } { set admin_url "[subsite::get_element -element url]admin/" } }