-@title@
-@context_bar@
-
-@title@
-
-Are you sure you want to delete @one_person.name@?
-
-Delete
-Return
Index: openacs-4/packages/acs-person/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/delete.tcl,v
diff -u -N
--- openacs-4/packages/acs-person/www/delete.tcl 26 Sep 2002 03:31:00 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,36 +0,0 @@
-ad_page_contract {
-
- Delete Confirmation page for acs-person
-
- @author jon@jongriffin.com
- @creation-date 2002-09-23
- @cvs-id $Id: delete.tcl,v 1.3 2002/09/26 03:31:00 jong Exp $
-
-} {
- acs_person_id:integer,notnull
-} -validate {
- person_exists -requires {acs_person_id} {
- if ![db_0or1row person_exists {
- }] {
- ad_complain "Person $acs_person_id does not exist"
- return 0
- }
- return 1
- }
-} -properties {
- title:onevalue
- one_person:onerow
-}
-
-set title "Delete Person"
-set context_bar [ad_context_bar]
-set package_id [ad_conn package_id]
-set user_id [ad_conn user_id]
-
-# make sure they don't perform URL surgery
-ad_require_permission $acs_person_id delete
-
-db_1row person_select {
-} -column_array one_person
-
-
\ No newline at end of file
Index: openacs-4/packages/acs-person/www/delete.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/delete.xql,v
diff -u -N
--- openacs-4/packages/acs-person/www/delete.xql 26 Sep 2002 03:31:00 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,25 +0,0 @@
-
-
-
-
-
-
- select 1 from acs_persons where acs_person_id = :acs_person_id
-
-
-
-
-
-
-
-
- select acs_person_id,
- given_name || ' ' || family_name as name
- from acs_persons
- where acs_person_id = :acs_person_id
-
-
-
-
-
-
Index: openacs-4/packages/acs-person/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/index-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-person/www/index-oracle.xql 24 Sep 2002 05:34:38 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,23 +0,0 @@
-
-
-
- oracle8.1.6
-
-
-
-
- select acs_person_id,
- family_name,
- given_name,
- middle_name
- from acs_persons p, acs_objects o
- where p.acs_person_id = o.object_id
- and o.context_id = :package_id
- ${search_clause}
- ${starts_with_clause}
- order by $ordering
-
-
-
-
-
Index: openacs-4/packages/acs-person/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/index-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-person/www/index-postgresql.xql 24 Sep 2002 05:23:52 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,21 +0,0 @@
-
-
-
- postgresql7.1
-
-
-
- select acs_person_id,
- family_name,
- given_name,
- middle_name,
- acs_permission__permission_p(acs_person_id,:user_id,'write') as write_p,
- acs_permission__permission_p(acs_person_id,:user_id,'delete') as delete_p
- from acs_objects o,acs_persons p
- where p.acs_person_id = o.object_id
- and o.context_id = :package_id
- order by $ordering
-
-
-
-
Index: openacs-4/packages/acs-person/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/index.tcl,v
diff -u -N
--- openacs-4/packages/acs-person/www/index.tcl 24 Sep 2002 05:23:52 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,124 +0,0 @@
-ad_page_contract {
-
- Displays a list of people
-
- @author Jon Griffin (jon@jongriffin.com)
- @creation-date 2002-09-21
- @cvs-id $Id: index.tcl,v 1.1 2002/09/24 05:23:52 jong Exp $
-} {
- {start:integer "1"}
- {search_p 0}
- {search_string ""}
- {search_in ""}
- {sort ""}
- {starts_with ""}
-} -properties {
- context_bar:onevalue
- package_id:onevalue
- user_id:onevalue
- persons:multirow
- title:onevalue
- first_letter:multirow
- acs_persons_create_p:onevalue
-}
-
-
-set user_id [ad_verify_and_get_user_id]
-set package_id [ad_conn package_id]
-
-set title "People"
-set context_bar [ad_context_bar $title]
-
-set acs_persons_create_p [ad_permission_p $package_id create]
-set admin_p [ad_permission_p $package_id admin]
-
-
-db_multirow first_letter get_first_letters { }
-
-
-switch $sort {
- "fname" { set ordering "given_name, family_name, company_name" }
- "lname" { set ordering "family_name, given_name, company_name" }
- default { set ordering "family_name" }
-}
-
-if { ![empty_string_p $starts_with] } {
- switch $starts_with {
- "all" { set starts_with_clause "" }
- "other" { set starts_with_clause "and family_name is null" }
- default { set starts_with_clause "and upper(family_name) like '${starts_with}%'" }
- }
-
-} else {
- set starts_with_clause ""
-}
-
-
-## should be able to get rid of this with search package
-if { $search_p == 1 && ![string equal $search_string ""]} {
- switch $search_in {
- "fname" { set search_clause "and lower(given_name) like '%' || lower(:search_string) || '%'" }
- "lname" { set search_clause "and lower(family_name) like '%' || lower(:search_string) || '%'" }
- "any" { set search_clause "and (lower(family_name) like '%' || lower(:search_string) || '%' or
- lower(given_name) like '%' || lower(:search_string) || '%')" }
- }
-
-} else {
- set search_clause ""
-}
-
-
-set max_dspl [ad_parameter MaxPersonsShow acs_persons 10]
-set count 0
-
-db_multirow persons acs_persons_select { }
-
-set total_contacts [db_string retrieved_contacts "select count(*)
- from contacts c, acs_objects o
- where c.contact_id = o.object_id
- ${search_clause}
- ${starts_with_clause}"]
-
-# and o.context_id = :package_id
-
-# make paging links
-if { $count < [expr $start + $max_dspl] } {
- set next_start ""
-} else {
- if {[expr $start + 2 * $max_dspl - $total_contacts] < 0 } {
- set next_val $max_dspl
- } else {
- set next_val [expr $total_contacts - $start - $max_dspl + 1]
- }
-
- set next_start "NEXT $next_val"
-}
-
-if { $start == 1 } {
- set prev_start ""
-} else {
- set prev_start "PREV $max_dspl"
-}
-
-if { ![empty_string_p $next_start] && ![empty_string_p $prev_start] } {
- set divider " | "
-} else {
- set divider ""
-}
-
-if { [expr $start + $max_dspl - 1] > $total_contacts } {
- if { $total_contacts == 0 } {
- set start 0 }
- set showing "Showing: $start - $total_contacts"
-} else {
- set showing "Showing: $start - [expr $start + $max_dspl - 1]"
-}
-
-set pagination_link " $prev_start$divider$next_start "
-
-
-## setup a status bar
-# where o.context_id = :package_id
-# and acs_permission.permission_p(contact_id, :user_id, 'read') = 't'
-
-ad_return_template
Index: openacs-4/packages/acs-person/www/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/index.xql,v
diff -u -N
--- openacs-4/packages/acs-person/www/index.xql 24 Sep 2002 05:23:52 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,24 +0,0 @@
-
-
-
-
-
-
- select distinct substr(upper(family_name), 0, 1) as letter from acs_persons
-
-
-
-
-
-
-
- select count(*)
- from acs_persons p, acs_objects o
- where p.acs_person_id = o.object_id
- ${search_clause}
- ${starts_with_clause}
-
-
-
-
-
Index: openacs-4/packages/acs-person/www/one-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/one-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-person/www/one-oracle.xql 24 Sep 2002 05:23:52 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,33 +0,0 @@
-
-
-
- oracle8.1.6
-
-
-
-
- select acs_person_id,
- given_name,
- family_name,
- middle_name,
- preferred_given_name,
- formatted_name,
- given_name || ' ' || family_name as pretty_name,
- decode(acs_permission.permission_p(contact_id,
- :user_id,
- 'write'),
- 't',1,
- 'f',0) as write_p,
- decode(acs_permission.permission_p(contact_id,
- :user_id,
- 'delete'),
- 't',1,
- 'f',0) as delete_p
- from acs_persons p
- where acs_person_id = :acs_person_id
-
-
-
-
-
-
Index: openacs-4/packages/acs-person/www/one-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/one-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-person/www/one-postgresql.xql 24 Sep 2002 05:23:52 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,25 +0,0 @@
-
-
-
- postgresql7.1
-
-
-
- select acs_person_id,
- given_name,
- family_name,
- middle_name,
- preferred_given_name,
- formatted_name,
- given_name || ' ' || family_name as pretty_name,
- case when acs_permission__permission_p(acs_person_id,:user_id,'write') = 't'
- then 1 else 0 end as write_p,
- case when acs_permission__permission_p(acs_person_id,:user_id,'delete') = 't'
- then 1 else 0 end as delete_p
- from acs_persons p
- where acs_person_id = :acs_person_id
-
-
-
-
-
Index: openacs-4/packages/acs-person/www/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/one.adp,v
diff -u -N
--- openacs-4/packages/acs-person/www/one.adp 26 Sep 2002 03:28:51 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,40 +0,0 @@
-
-@page_title@ @person.pretty_name@
-@context_bar@
-
-@page_title@
-
-
-
-
-
- First Name |
- @person.given_name@ |
-
- Middle Name |
- @person.middle_name@ |
-
- Family Name |
- @person.family_name@ |
-
-
- Preferred Name |
- @person.preferred_given_name@ |
-
-
-
- Formatted Name |
- @person.formatted_name@ |
-
-
-
-
- edit info
- |
-
-
- |
-
-
-
-
Index: openacs-4/packages/acs-person/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/one.tcl,v
diff -u -N
--- openacs-4/packages/acs-person/www/one.tcl 24 Sep 2002 05:23:52 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,42 +0,0 @@
-# packages/acs-person/www/one.tcl
-
-ad_page_contract {
- @author Jon Griffin jon@jongriffin.com
- @creation-date 2002-09-21
- @cvs-id $Id: one.tcl,v 1.1 2002/09/24 05:23:52 jong Exp $
-} {
- acs_person_id:integer,notnull
-} -validate {
- person_exists -requires {person_id} {
- if ![db_0or1row person_exists {
- }] {
- ad_complain "$acs_person_id does not exist"
- return 0
- }
- return 1
- }
-} -properties {
- context_bar:onevalue
- page_title:onevalue
- person:onerow
-}
-
-## vars for quasi localization
-## since this isn't available yet this is a reminder to myself
-
-set page_title "Viewing"
-set cbar_title "View One Person"
-
-## set cbar_title "Informacion de una persona"
-
-set context_bar [ad_context_bar $page_title]
-
-set user_id [ad_verify_and_get_user_id]
-
-set person_write_p [ad_permission_p $acs_person_id "write"]
-
-db_1row person_select {
-
-} -column_array person
-
-
Index: openacs-4/packages/acs-person/www/one.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/Attic/one.xql,v
diff -u -N
--- openacs-4/packages/acs-person/www/one.xql 24 Sep 2002 05:23:52 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,13 +0,0 @@
-
-
-
-
-
-
- select 1 from acs_persons where acs_person_id = :acs_person_id
-
-
-
-
-
-
Index: openacs-4/packages/acs-person/www/doc/developer.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/doc/Attic/developer.html,v
diff -u -N
--- openacs-4/packages/acs-person/www/doc/developer.html 27 Sep 2002 00:09:48 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,106 +0,0 @@
-
-
-
-acs-person Developer Docs
-
-
-acs-person Developer Documentation
-
-Version 0.1 By Jon Griffin
- This document is Copyright © 2002 Jon Griffin.
-
-Permission is granted to copy, distribute and/or modify this
-document under the terms of the GNU Free Documentation License,
-Version 1.1 or any later version published by the Free Software
-Foundation with no Invariant Sections, no Front-Cover Texts, and
-no Back-Cover Texts. A copy of the license is included in the
-section entitled "GNU Free Documentation License".
-
-Table of Contents
-
-Introduction
-
-acs-person is a superset of person in the OpenACS system. It can
-be used as a standalone module or to augment/replace person.
-
-Data Model
-Schema
-Changes from HR-XML
-
-The HR-XML specification describes several optional,
-multi-valued attributes. Since we aren't dealing with XML as
-the native format several changes/compromises had to be made.
-
-Certainly, multi-valued attributes could have been completely
-normalized and been technically correct. It wasn't felt that
-this was an efficient or proper use and in most cases only the
-base table acs_persons
will be used.
-
-With that in mind here is a rundown of the differences from
-the specification:
-
-
-
-- FamilyName is a 0=>many attribute that also has an
-attribute of primary. The purpose of this is to designate an
-order when there are multiple family names. In acs-person, a map
-table is created:
family_name_acs_persons_map
. This
-creates an optional space for storing multiple family names. It
-also includes a field called: order
, which allows
-for putting the family names in the correct order for multiple
-family names. By default the family_name in the acs_persons table
-will always appear first. The order field also allows for sorting
-in the case of querys.
-
-- GivenName is a 0=>many attribute. In acs_person, a map
-table is created:
given_name_acs_persons_map
. This
-creates an optional space for storing multiple given names. It
-also includes a field called: order
, which allows
-for putting the given names in the correct order for multiple
-given names. By default the given_name in the acs_persons table
-will always appear first. The order field also allows for sorting
-in the case of querys.
-
-- MiddleName is a 0=>many attribute. In acs_person, a map
-table is created:
middle_name_acs_persons_map
. This
-creates an optional space for storing multiple middle names. It
-also includes a field called: order
, which allows
-for putting the middle names in the correct order for multiple
-middle names. By default the middle_name in the acs_persons table
-will always appear first. The order field also allows for sorting
-in the case of querys.
-
-- Affix is a 0=>many attribute. In acs_person, a map table
-is created:
affix_acs_persons_map
. This creates an
-optional space for storing multiple affixes. It is linked to a
-lookup table that def ines the valid affix_types
.
-This is complicated and may need additional thought as it is
-really storing multiple unrelated attributes in one field. I
-would not have modelled this like it is, but this is the standard
-so I will leave it as is.
-
-- AffixType defines the context for the Affix and is a lookup
-table. This is required if any Affixes are present.
-
-
-Glossary
-
-Formatted Name
-Given Name
-Preferred Given Name
-Family Name
-
-Credits
-
-License
-
-GNU Free
-Documentation License
-Revision History
-
-$Log: developer.html,v $
-Revision 1.1 2002/08/09 23:34:02 jon
-Initial Revision
-
-
-
\ No newline at end of file
Index: openacs-4/packages/acs-person/www/doc/index.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-person/www/doc/Attic/index.html,v
diff -u -N
--- openacs-4/packages/acs-person/www/doc/index.html 27 Sep 2002 00:09:55 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,128 +0,0 @@
-
-
-
-acs-person
-
-
-acs-person Documentation
-Version 0.1 By Jon Griffin
- This document is Copyright © 2002 Jon Griffin.
-
-Permission is granted to copy, distribute and/or modify this
-document under the terms of the GNU Free Documentation License,
-Version 1.1 or any later version published by the Free Software
-Foundation with no Invariant Sections, no Front-Cover Texts, and
-no Back-Cover Texts. A copy of the license is included in the
-section entitled "GNU Free Documentation License".
-
-
-Introduction
-
-acs-person is a superset of person in the OpenACS system. It can
-be used as a standalone module or to augment/replace person.
-
-Table of Contents
-
-Developers Guide
-Administrators Guide
-Users Guide
-
-Design Goal
-
-History
-
-Probably since humankind started writing and keeping track of
-others, there has been a debate about the easy way to store
-information. This problem has only gotten worse as time went on.
-
-The problem (along with addresses) seems relatively simple
-until you think of all the variables that come along with it. Not
-even taking into account alphabets there are many gotchas in
-storing names correctly.
-
-Take for instance names in the Latin American Countries and
-Spain:
-Luis Alvaro Hernandez Garcia
-How would that be stored? In most US-centric databases this is
-stored as either:
-
-
-
-first_name — Luis
-middle_name — Alvaro
-last_name — Hernandez Garcia
-
-
-OR (as the case of OpenACS)
-
-
-first_name — Luis Alvaro
-last_name — Hernandez Garcia
-
-
-While certainly this model is useful, it has its limitations.
-What if you decide to sort your data by Last Name? What is the
-correct part of last_name to sort on? Is it Hernandez or Garcia?
-These are easy Western Language problems that get much more
-complicated when dealing with Eastern European or other cultures
-where names aren't written in a first, middle, last order.
-
-Here are some examples of cultural differences and you can see
-the problems that are created:
-Indonesia — Many (not all) Indonesians have only one
-name.
-Korea — Some put family name first, others put
-family names last.
-Hispanic — As well as the above example the rules
-can get very complex. Spanish men, for example, sometimes use
-their father's name and mother's name and separate them
-with a y (and).
-Luis Alvaro Hernandez y Garcia
-Other times they may hyphenate the last names:
-Luis Alvaro Hernandez-Garcia
-Now onto Hispanic women (and this also changes somewhat by
-country). In general a single women is similar to men. She takes
-her father's last name and adds her mothers maiden name. The
-difference comes about when the women marries. In this case the
-women still has the fathers last name but appends the
-husband's last name preceded by de (of):
-Luisa Benavides Hernandez de Fernandez
-As a side note, in Cuba the Wife keeps her name and so does the
-husband.
-To complicate matters more, the Wife may be refered to as Luisa
-de Fernandez or simply Luisa Fernandez, as well as Sra
-Fernandez.
-
-
-Glossary
-
-Formatted Name
-Given Name
-Preferred Given Name
-Family Name
-
-Credits
-
-License
-
-GNU Free
-Documentation License
-Revision History
-
-$Log: index.html,v $
-Revision 1.4 2002/08/09 23:51:27 jon
-Added new links
-
-Revision 1.3 2002/08/09 23:35:17 jon
-Fixed bad typo in link
-
-Revision 1.2 2002/08/09 23:34:32 jon
-Updated format and fixed typos
-
-Revision 1.1 2002/08/09 23:16:02 jon
-Initial Revision
-
-
-
-
-