Index: openacs-4/packages/glossar/www/glossar-file-upload.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/Attic/glossar-file-upload.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/glossar-file-upload.xql 24 May 2006 06:15:28 -0000 1.1.2.1
@@ -0,0 +1,14 @@
+
+
+
+
+
+ select r.title as glossar_title
+ from gl_glossars g, cr_revisions r, cr_items i
+ where i.latest_revision = r.revision_id
+ and g.glossar_id = r.revision_id
+ and i.item_id = :glossar_id
+
+
+
+
Index: openacs-4/packages/glossar/www/glossar-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/Attic/glossar-master.adp,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/glossar-master.adp 24 May 2006 06:15:28 -0000 1.1.2.1
@@ -0,0 +1,12 @@
+
+@title;noquote@
+@context;noquote@
+
+
+
+@navbar;noquote@
+
+@focus@
+
+
+
Index: openacs-4/packages/glossar/www/glossar-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/Attic/glossar-master.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/glossar-master.tcl 24 May 2006 06:15:28 -0000 1.1.2.1
@@ -0,0 +1,121 @@
+# @author Matthew Geddert openacs@geddert.com
+# @creation-date 2005-05-09
+# @cvs-id $Id: glossar-master.tcl,v 1.1.2.1 2006/05/24 06:15:28 maltes Exp $
+
+
+# Set up links in the navbar that the user has access to
+set name [contact::name -party_id $party_id]
+if { ![exists_and_not_null name] } {
+ ad_complain "[_ contacts.lt_The_contact_specified]"
+}
+
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set package_url [ad_conn package_url]
+set tasks_url [site_node::get_package_url -package_key "tasks"]
+set page_url [ad_conn url]
+set page_query [ad_conn query]
+set title $name
+set freelancer_p [group::member_p -user_id $party_id -group_name "Freelancer" -cascade]
+
+if {![exists_and_not_null context]} {
+ set context [list $name]
+}
+
+if {![empty_string_p $tasks_url]} {
+ set prefix "/contacts/${party_id}/"
+} else {
+ set prefix "${package_url}${party_id}/"
+}
+set link_list [list]
+
+
+if { [ad_conn user_id] != 0} {
+ lappend link_list "${prefix}" "[_ contacts.Summary]"
+ set organization_p [organization::organization_p -party_id $party_id]
+ if {$organization_p} {
+ lappend link_list [export_vars -base "/invoices/price-list" {{organization_id $party_id}}] "[_ invoices.iv_price_list]"
+ }
+
+ if {[empty_string_p $tasks_url]} {
+ lappend link_list "${prefix}comments" "[_ contacts.Comments]"
+ }
+
+ lappend link_list "${prefix}files" "[_ contacts.Files]"
+
+ if {![empty_string_p $tasks_url]} {
+ lappend link_list "${prefix}history" "[_ contacts.History]"
+ lappend link_list "/tasks/contact" "[_ contacts.Tasks]"
+ }
+
+ if {$freelancer_p} {
+ lappend link_list [export_vars -base "/wieners/freelancer-bookings" {party_id}] "[_ contacts.Freelancer_bookings]"
+ }
+
+ lappend link_list "${prefix}message" "[_ contacts.Mail]"
+ lappend link_list "${prefix}mail-tracking" "[_ mail-tracking.Mail_Tracking]"
+
+ # The following adds a link to all projects of a customer, if the
+ # project manager is linked
+ if {$organization_p} {
+ set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "dotlrn_club"] 0]
+
+ if {$dotlrn_club_id > 0} {
+ set pm_package_id [dotlrn_community::get_package_id_from_package_key -package_key "project-manager" -community_id $dotlrn_club_id]
+ if {![empty_string_p $pm_package_id]} {
+ lappend link_list "[export_vars -base "[apm_package_url_from_id $pm_package_id]/index" -url {{assignee_id "-1"}}]" "[_ project-manager.Projects]"
+ }
+ set club_url [dotlrn_community::get_community_url $dotlrn_club_id]
+ lappend link_list "$club_url" "[_ contacts.Visit_Club]"
+ } elseif {[group::party_member_p -party_id $party_id -group_name "Customers"]} {
+ lappend link_list "create-club" "[_ contacts.Create_Club]"
+ }
+
+ } else {
+ set employer_id [lindex [lindex [contact::util::get_employers -employee_id $party_id] 0] 0]
+ if {$employer_id > 0} {
+ set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $employer_id -to_object_type "dotlrn_club"] 0]
+ if {$dotlrn_club_id > 0} {
+ set pm_package_id [dotlrn_community::get_package_id_from_package_key -package_key "project-manager" -community_id $dotlrn_club_id]
+ if {![empty_string_p $pm_package_id]} {
+ lappend link_list "[export_vars -base "[apm_package_url_from_id $pm_package_id]/index" -url {{assignee_id "-1"} {contact_id $party_id}}]" "[_ project-manager.Projects]"
+ }
+ }
+ }
+ }
+}
+
+# not yet implemented
+# lappend link_list "/contacts/contact-files"
+# lappend link_list "Files"
+# lappend link_list "/contacts/contact-history"
+# lappend link_list "History"
+
+
+
+
+
+# Convert the list to a multirow and add the selected_p attribute
+multirow create links label url selected_p
+
+foreach {url label} $link_list {
+ set selected_p 0
+ if {[string equal $page_url $url]} {
+ set selected_p 1
+ if { $url != "/contacts/contact" } {
+ set context [list [list [contact::url -party_id $party_id] $name] $label]
+ }
+ }
+ # MGEDDERT CUSTOMIZATION
+ if { $url == "/tasks/contact" } {
+ set url [export_vars -base $url -url {party_id}]
+ }
+ lappend navbar [list [subst $url] $label]
+ multirow append links $label [subst $url] $selected_p
+}
+
+if { [contact::type -party_id $party_id] == "user" } {
+ set public_url [acs_community_member_url -user_id $party_id]
+}
+
+ad_return_template
Index: openacs-4/packages/glossar/www/glossar-term-add.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/Attic/glossar-term-add.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/glossar-term-add.xql 24 May 2006 06:15:28 -0000 1.1.2.1
@@ -0,0 +1,14 @@
+
+
+
+
+
+ select r.title as glossar_title
+ from gl_glossars g, cr_revisions r, cr_items i
+ where i.latest_revision = r.revision_id
+ and g.glossar_id = r.revision_id
+ and i.item_id = :glossar_id
+
+
+
+
Index: openacs-4/packages/glossar/www/glossar-term-list.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/Attic/glossar-term-list.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/glossar-term-list.xql 24 May 2006 06:15:28 -0000 1.1.2.1
@@ -0,0 +1,14 @@
+
+
+
+
+
+ select r.title as glossar_title
+ from gl_glossars g, cr_revisions r, cr_items i
+ where i.latest_revision = r.revision_id
+ and g.glossar_id = r.revision_id
+ and i.item_id = :glossar_id
+
+
+
+
Index: openacs-4/packages/glossar/www/glossar-term-rev-list.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/Attic/glossar-term-rev-list.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/glossar-term-rev-list.xql 24 May 2006 06:15:28 -0000 1.1.2.1
@@ -0,0 +1,23 @@
+
+
+
+
+
+ select r.title as glossar_title
+ from gl_glossars g, cr_revisions r, cr_items i
+ where i.latest_revision = r.revision_id
+ and g.glossar_id = r.revision_id
+ and i.item_id = :glossar_id
+
+
+
+
+
+ select t.source_text as term_title
+ from gl_glossar_terms t, cr_items i
+ where i.latest_revision = t.term_id
+ and i.item_id = :term_id
+
+
+
+