Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs-oracle.xql 28 May 2001 20:43:37 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+select ttl_top_privilege_for_object(:package_id, :user_id) as privilege from dual
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs-postgresql.xql 28 May 2001 20:43:37 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select ttl_top_privilege_for_object(:package_id, :user_id) as privilege
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/tcl/ticket-tracker-lite-procs.tcl 28 May 2001 20:43:37 -0000 1.2
@@ -7,7 +7,7 @@
set user_id [ad_maybe_redirect_for_registration]
set package_id [ad_conn package_id]
- db_1row t {
+ db_1row get_privilege {
select
ttl_top_privilege_for_object(:package_id, :user_id) as privilege
from dual
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+insert into ttl_assignments (user_id, ticket_id)
+ select :user_id, :ticket_id from dual
+ where not exists (select 1 from ttl_assignments
+ where user_id = :user_id and ticket_id = :ticket_id)
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ postgresql7.1
+
+
+
+
+insert into ttl_assignments (user_id, ticket_id)
+ select :user_id, :ticket_id where not exists (select 1 from ttl_assignments
+ where user_id = :user_id and
+ ticket_id = :ticket_id)
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -10,7 +10,7 @@
if [string equal $action add] {
- db_dml t {
+ db_dml insert_assignment {
insert into ttl_assignments (user_id, ticket_id)
select :user_id, :ticket_id
from dual
@@ -21,7 +21,7 @@
} else {
- db_dml t {
+ db_dml delete_assignment {
delete from ttl_assignments
where user_id = :user_id
and ticket_id = :ticket_id
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/assignment-ae.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+
+
+
+delete from ttl_assignments where user_id = :user_id and ticket_id = :ticket_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+select name as ticket_name,
+ person.name(:caller_id) as sender_fullname,
+ (select email from parties
+ where party_id = :caller_id) as sender_email
+ from ttl_v_tickets where ticket_id = :ticket_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select name as ticket_name,
+ person__name(:caller_id) as sender_fullname,
+ (select email from parties
+ where party_id = :caller_id) as sender_email
+ from ttl_v_tickets where ticket_id = :ticket_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -9,7 +9,7 @@
set caller_id [ad_conn user_id]
-db_dml t {
+db_dml update_comment {
update ttl_comments set
message = :message,
message_format = :message_format
@@ -18,7 +18,7 @@
if {[db_resultrows] == 0} {
- db_dml t {
+ db_dml insert_comment {
insert into ttl_comments (
comment_id, ticket_id, creation_user,
message, message_format
@@ -28,7 +28,7 @@
)
}
- db_foreach t {
+ db_foreach get_email {
select p.email
from parties p, ttl_assignments ta
where ta.ticket_id = :ticket_id
@@ -46,7 +46,7 @@
set formatted_message [ttl_format_text_for_display -format $message_format -wrap 60 $message]
- db_1row t {
+ db_1row get_recipient_info {
select
name as ticket_name,
person.name(:caller_id) as sender_fullname,
@@ -68,7 +68,7 @@
# We need to get the ticket_id so we know where to redirect
# the user
- db_1row t {
+ db_1row get_ticket {
select ticket_id from ttl_comments where comment_id = :comment_id
}
}
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae-2.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,59 @@
+
+
+
+
+
+
+update ttl_comments
+set message = :message,
+ message_format = :message_format
+where comment_id = :comment_id
+
+
+
+
+
+
+
+
+
+insert into ttl_comments
+ (comment_id, ticket_id, creation_user, message, message_format)
+values
+ (:comment_id, :ticket_id, :caller_id, :message, :message_format)
+
+
+
+
+
+
+
+
+
+select p.email
+ from parties p, ttl_assignments ta
+ where ta.ticket_id = :ticket_id and
+ ta.user_id = p.party_id
+UNION
+select p.email
+ from ttl_v_tickets t, parties p
+ where t.ticket_id = :ticket_id and
+ t.creation_user = p.party_id
+
+
+
+
+
+
+
+
+
+select ticket_id from ttl_comments where comment_id = :comment_id
+
+
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -17,7 +17,7 @@
if [info exists comment_id] {
- db_1row t {
+ db_1row get_comment {
select
c.message,
c.message_format,
@@ -36,7 +36,7 @@
} else {
- db_1row t {
+ db_1row get_ticket {
select
acs_object_id_seq.nextval as comment_id,
name as ticket_name
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comment-ae.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,32 @@
+
+
+
+
+
+
+select c.message,
+ c.message_format,
+ t.ticket_id,
+ t.name as ticket_name
+ from ttl_comments c, ttl_v_tickets t
+ where comment_id = :comment_id and
+ c.ticket_id = t.ticket_id
+
+
+
+
+
+
+
+
+
+select acs_object_id_seq.nextval as comment_id,
+ name as ticket_name
+ from ttl_v_tickets t
+ where ticket_id = :ticket_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comments.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comments.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comments.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comments.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -1,6 +1,6 @@
set caller_id [ad_conn user_id]
-db_multirow comments t {
+db_multirow comments get_comments {
select
r.comment_id,
p.first_names || ' ' || p.last_name as comment_username,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comments.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comments.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/comments.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,22 @@
+
+
+
+
+
+
+select r.comment_id,
+ p.first_names || ' ' || p.last_name as comment_username,
+ r.message,
+ r.message_format,
+ ttl_relative_date(r.creation_date) as comment_date,
+ case when :caller_id = r.creation_user then 1 else 0 end as can_edit_p,
+ null as edit_url
+ from ttl_va_comments r, persons p
+ where r.ticket_id = :ticket_id and
+ r.creation_user = p.person_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,79 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+select t.ticket_id,
+ a.name as area_name,
+ decode(t.priority, 1, 'High',
+ 2, 'Medium',
+ 3, 'Low',
+ t.priority) as ticket_priority,
+ t.status,
+ s.sort_key,
+ t.name as ticket_name,
+ ttl_relative_date(nvl(c.creation_date, t.last_modified)) as last_comment,
+ decode(deadline, null, null, to_char(deadline, 'Mon DD')) as ticket_deadline
+ from ttl_va_tickets t, ttl_status s, ttl_va_areas a, ttl_v_comments_latest c
+ where a.context_id = :package_id and
+ a.area_id = t.area_id and
+ t.status = s.status and
+ t.ticket_id = c.ticket_id(+)
+ $user_id_clause
+ $status_clause
+ $area_clause
+ $order_clause
+
+
+
+
+
+
+
+order by deadline asc, nvl(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
+
+
+
+order by nvl(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
+
+
+order by lower(area_name) asc, priority asc, nvl(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
+
+
+order by lower(s.sort_key) asc, priority asc, nvl(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
+
+
+order by priority asc, nvl(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,81 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select t.ticket_id,
+ a.name as area_name,
+ case when t.priority=1
+ then 'High' else (case when t.priority=2
+ then 'Medium' else (case when t.priority=3
+ then 'Low' else t.priority::varchar end) end ) end as ticket_priority,
+ t.status,
+ s.sort_key,
+ t.name as ticket_name,
+ ttl_relative_date(coalesce(c.creation_date, t.last_modified)) as last_comment,
+ case when deadline is null then null else to_char(deadline, 'Mon DD') end
+ as ticket_deadline
+ from ttl_va_tickets t left join ttl_v_comments_latest c using (ticket_id),
+ ttl_status s,
+ ttl_va_areas a
+ where a.context_id = :package_id and
+ a.area_id = t.area_id and
+ t.status = s.status
+ $user_id_clause
+ $status_clause
+ $area_clause
+ $order_clause
+
+
+
+
+
+
+
+
+order by deadline asc, coalesce(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
+
+
+order by coalesce(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
+
+
+order by lower(area_name) asc, priority asc, coalesce(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
+
+
+order by lower(s.sort_key) asc, priority asc, coalesce(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
+
+
+order by priority asc, coalesce(c.creation_date, t.last_modified) desc
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -13,7 +13,7 @@
set navbar_list [ttl_navbar_list -nohome]
-db_0or1row t {
+db_0or1row get_prefs {
select
sort,
mine_p,
@@ -69,22 +69,22 @@
switch $sort {
deadline {
- set order_clause "order by deadline asc, nvl(c.creation_date, t.last_modified) desc"
+ set order_clause "[db_map order_deadline]"
}
activity {
- set order_clause "order by nvl(c.creation_date, t.last_modified) desc"
+ set order_clause "[db_map order_activity]"
}
name {
set order_clause "order by upper(ticket_name)"
}
area {
- set order_clause "order by lower(area_name) asc, priority asc, nvl(c.creation_date, t.last_modified) desc"
+ set order_clause "[db_map order_area]"
}
status {
- set order_clause "order by lower(s.sort_key) asc, priority asc, nvl(c.creation_date, t.last_modified) desc"
+ set order_clause "[db_map order_status]"
}
default {
- set order_clause "order by priority asc, nvl(c.creation_date, t.last_modified) desc"
+ set order_clause "[db_map order_default]"
}
}
@@ -113,7 +113,7 @@
append title " in \"$area_name\""
}
-db_multirow tickets t "
+db_multirow tickets get_tickets "
select
t.ticket_id,
a.name as area_name,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+select sort, mine_p, status, area_id,
+ (select name from ttl_va_areas a
+ where a.area_id = p.area_id) as area_name
+ from ttl_prefs p
+ where user_id = :caller_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -18,7 +18,7 @@
if [info exists update_clause] {
- db_dml t "update ttl_prefs set [string trimright $update_clause ,] where user_id = :caller_id"
+ db_dml update_prefs "update ttl_prefs set [string trimright $update_clause ,] where user_id = :caller_id"
if {[db_resultrows] == 0} {
@@ -27,7 +27,7 @@
set mine_p [ttl_util_default mine_p t]
set area_id [ttl_util_default area_id]
- db_dml t {
+ db_dml insert_pref {
insert into ttl_prefs (user_id, sort, status, mine_p, area_id)
values (:caller_id, :sort, :status, :mine_p, :area_id)}
}
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/prefs-ae.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,26 @@
+
+
+
+
+
+
+update ttl_prefs set [string trimright $update_clause ,] where user_id = :caller_id
+
+
+
+
+
+
+
+
+
+insert into ttl_prefs
+ (user_id, sort, status, mine_p, area_id)
+values
+ (:caller_id, :sort, :status, :mine_p, :area_id)
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,32 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+declare
+ v_object_id integer;
+begin
+ v_object_id := acs_object.new (
+ object_id => :ticket_id,
+ object_type => 'ticket_tracker_lite_ticket',
+ creation_user => :caller_id,
+ creation_ip => :caller_ip,
+ context_id => :area_id
+ );
+
+ insert into ttl_tickets
+ (ticket_id, area_id, name, type, status, deadline,
+ message, message_format, priority)
+ values
+ (:ticket_id, :area_id, :name, :type, :status, :deadline_date,
+ :message, :message_format, :priority);
+end;
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,29 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select acs_object__new (
+ :ticket_id,
+ 'ticket_tracker_lite_ticket',
+ now(),
+ :caller_id,
+ :caller_ip,
+ :area_id
+ );
+
+ insert into ttl_tickets
+ (ticket_id, area_id, name, type, status, deadline,
+ message, message_format, priority)
+ values
+ (:ticket_id, :area_id, :name, :type, :status, :deadline_date,
+ :message, :message_format, :priority);
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -19,7 +19,7 @@
db_transaction {
- db_dml t {
+ db_dml add_ticket {
declare
v_object_id integer;
begin
@@ -41,7 +41,7 @@
end;
}
- db_dml t {
+ db_dml insert_assignment {
insert into ttl_assignments (user_id, ticket_id)
select user_id, :ticket_id
from ttl_area_assignments
@@ -51,7 +51,7 @@
# now that the transaction is over, let's send out the email
-db_foreach t {
+db_foreach get_recipient_email {
select p.email
from parties p, ttl_assignments a
where a.ticket_id = :ticket_id
@@ -61,7 +61,7 @@
}
if [exists_and_not_null people_to_email] {
- db_1row t {
+ db_1row get_sender_email {
select
p1.first_names || ' ' || p1.last_name as ticket_creator_name,
p2.email as ticket_creator_email,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,46 @@
+
+
+
+
+
+
+insert into ttl_assignments (user_id, ticket_id)
+ select user_id, :ticket_id
+ from ttl_area_assignments
+ where area_id = :area_id
+
+
+
+
+
+
+
+
+
+select p.email
+ from parties p, ttl_assignments a
+ where a.ticket_id = :ticket_id and
+ a.user_id = p.party_id
+
+
+
+
+
+
+
+
+
+select p1.first_names || ' ' || p1.last_name as ticket_creator_name,
+ p2.email as ticket_creator_email,
+ (select name from ttl_va_areas where area_id = :area_id) as area_name
+ from persons p1, parties p2
+ where p1.person_id = p2.party_id and
+ p1.person_id = :caller_id
+
+
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+select acs_object_id_seq.nextval as ticket_id,
+ (select count(*) from ttl_va_areas where context_id = :package_id)
+ as num_areas
+ from dual
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select acs_object_id_seq.nextval as ticket_id,
+ (select count(*)
+ from ttl_va_areas
+ where context_id = :package_id) as num_areas
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -5,7 +5,7 @@
set master_template [ttl_master_template]
-db_1row t {
+db_1row get_ticket_id {
select
acs_object_id_seq.nextval as ticket_id,
(select count(*)
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,27 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+begin
+ update acs_objects
+ set last_modified = sysdate,
+ modifying_user = :caller_id,
+ modifying_ip = :caller_ip
+ where object_id = :ticket_id;
+
+ update ttl_tickets
+ set name = :name,
+ message = :message,
+ message_format = :message_format
+ where ticket_id = :ticket_id;
+end;
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,25 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ update acs_objects
+ set last_modified = current_timestamp,
+ modifying_user = :caller_id,
+ modifying_ip = :caller_ip
+ where object_id = :ticket_id;
+
+ update ttl_tickets
+ set name = :name,
+ message = :message,
+ message_format = :message_format
+ where ticket_id = :ticket_id;
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit-2.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -11,7 +11,7 @@
set package_id [ad_conn package_id]
set caller_ip [ns_conn peeraddr]
-db_dml t {
+db_dml edit_ticket {
begin
update acs_objects set
last_modified = sysdate,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -9,7 +9,7 @@
set master_template [ttl_master_template]
-db_1row t {
+db_1row get_ticket_info {
select
t.name,
t.message,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-edit.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+select t.name, t.message,t.message_format
+ from ttl_v_tickets t, ttl_va_areas a
+ where a.context_id = :package_id and
+ t.ticket_id = :ticket_id and
+ t.area_id = a.area_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,51 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+select t.area_id,
+ a.name as area_name,
+ t.name,
+ t.type,
+ t.status,
+ t.message,
+ t.message_format,
+ t.priority,
+ t.deadline,
+ t.url,
+ ttl_relative_date(t.creation_date) as posting_date,
+ person.name(t.creation_user) as posting_name
+ from ttl_v_tickets t, ttl_va_areas a
+ where a.context_id = :package_id and
+ t.ticket_id = :ticket_id and
+ t.area_id = a.area_id
+
+
+
+
+
+
+
+
+
+select * from (select p.first_names || ' ' || p.last_name as full_name,
+ t.user_id,
+ case when a.user_id = null then 0 else 1 end
+ as already_assigned_p
+ from persons p, ttl_v_users t, (select user_id
+ from ttl_assignments
+ where ticket_id = :ticket_id) a
+ where t.package_id = :package_id and
+ p.person_id = t.user_id and
+ t.user_id = a.user_id(+)
+ order by upper(full_name))
+ where rownum < 50
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,51 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select t.area_id,
+ a.name as area_name,
+ t.name,
+ t.type,
+ t.status,
+ t.message,
+ t.message_format,
+ t.priority,
+ t.deadline,
+ t.url,
+ ttl_relative_date(t.creation_date) as posting_date,
+ person__name(t.creation_user) as posting_name
+ from ttl_v_tickets t, ttl_va_areas a
+ where a.context_id = :package_id and
+ t.ticket_id = :ticket_id and
+ t.area_id = a.area_id
+
+
+
+
+
+
+
+
+
+select * from (select p.first_names || ' ' || p.last_name as full_name,
+ t.user_id,
+ case when a.user_id = null then 0 else 1 end
+ as already_assigned_p
+ from ttl_v_users t left join (select user_id
+ from ttl_assignments
+ where ticket_id = :ticket_id) a
+ using (user_id), persons p
+ where t.package_id = :package_id and
+ p.person_id = t.user_id
+ order by upper(p.first_names)) b
+limit 50
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,29 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+begin
+ update ttl_tickets
+ set area_id = :area_id,
+ type = :type,
+ status = :status,
+ deadline = :deadline_date,
+ priority = :priority
+ where ticket_id = :ticket_id;
+
+ update acs_objects
+ set last_modified = sysdate,
+ modifying_user = :caller_id,
+ modifying_ip = :caller_ip
+ where object_id = :ticket_id;
+end;
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,27 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ update ttl_tickets
+ set area_id = :area_id,
+ type = :type,
+ status = :status,
+ deadline = :deadline_date,
+ priority = :priority
+ where ticket_id = :ticket_id;
+
+ update acs_objects
+ set last_modified = current_timestamp,
+ modifying_user = :caller_id,
+ modifying_ip = :caller_ip
+ where object_id = :ticket_id;
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-update.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -20,7 +20,7 @@
set deadline_date $deadline(date)
-db_dml t {
+db_dml update_ticket {
begin
update ttl_tickets set
area_id = :area_id,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -15,7 +15,7 @@
# 1) Get the ticket info
#
-db_1row t {
+db_1row get_one_ticket {
select
t.area_id,
a.name as area_name,
@@ -44,7 +44,7 @@
# 2) Get people assigned to this ticket
#
-db_foreach t {
+db_foreach get_people {
select * from (
select
p.first_names || ' ' || p.last_name as full_name,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,22 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+begin
+ :1 := acs_object.new(
+ object_type => 'ticket_tracker_lite_area',
+ creation_user => :caller_id,
+ creation_ip => :caller_ip,
+ context_id => :package_id
+ );
+end;
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+ postgresql7.1
+
+
+
+
+declare
+ area_id integer;
+begin
+ select acs_object__new (
+ null,
+ 'ticket_tracker_lite_area',
+ now(),
+ :caller_id,
+ :caller_ip,
+ :package_id
+ ) into area_id;
+
+ return area_id;
+end;
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -14,7 +14,7 @@
db_transaction {
- set area_id [db_exec_plsql T {
+ set area_id [db_exec_plsql new_area {
begin
:1 := acs_object.new(
object_type => 'ticket_tracker_lite_area',
@@ -25,14 +25,14 @@
end;
}]
- db_dml t {
+ db_dml insert_area {
insert into ttl_areas (area_id, name)
values (:area_id, :name)
}
}
} else {
- db_dml t {
+ db_dml update_area {
update ttl_areas set name = :name where area_id = :area_id
}
}
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae-2.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,22 @@
+
+
+
+
+
+
+insert into ttl_areas (area_id, name) values (:area_id, :name)
+
+
+
+
+
+
+
+
+
+update ttl_areas set name = :name where area_id = :area_id
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -13,7 +13,7 @@
if [info exists area_id] {
- db_1row t {
+ db_1row get_area {
select name from ttl_v_areas where area_id = :area_id
}
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-ae.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+
+
+
+select name from ttl_v_areas where area_id = :area_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -15,11 +15,11 @@
if [string equal $action restore] {
- db_dml t {
+ db_dml activate_area {
update ttl_areas set active_p = 't' where area_id = :area_id
}
} else {
- db_dml t {
+ db_dml inactivate_area {
update ttl_areas set
active_p = 'f'
where area_id = :area_id
@@ -33,10 +33,10 @@
# so we'll really delete it.
db_transaction {
- db_dml t {
+ db_dml delete_assignment {
delete from ttl_area_assignments where area_id = :area_id
}
- db_dml t {
+ db_dml delete_area {
delete from ttl_areas where area_id = :area_id
}
}
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/area-delete.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,48 @@
+
+
+
+
+
+
+update ttl_areas set active_p = 't' where area_id = :area_id
+
+
+
+
+
+
+
+
+
+update ttl_areas
+set active_p = 'f'
+where area_id = :area_id and
+ exists (select 1 from ttl_v_tickets
+ where area_id = :area_id)
+
+
+
+
+
+
+
+
+
+delete from ttl_area_assignments where area_id = :area_id
+
+
+
+
+
+
+
+
+
+delete from ttl_areas where area_id = :area_id
+
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+insert into ttl_area_assignments (area_id, user_id)
+ select :area_id, :user_id from dual
+ where not exists (select 1 from ttl_area_assignments
+ where user_id = :user_id and area_id = :area_id)
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ postgresql7.1
+
+
+
+
+insert into ttl_area_assignments (area_id, user_id)
+ select :area_id, :user_id where not exists (select 1 from ttl_area_assignments
+ where user_id = :user_id and
+ area_id = :area_id)
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -5,7 +5,7 @@
}
if [string equal $action add] {
- db_dml t {
+ db_dml add_assignee {
insert into ttl_area_assignments (area_id, user_id)
select :area_id, :user_id
from dual
@@ -16,7 +16,7 @@
}
} else {
- db_dml t {
+ db_dml delete_assignee {
delete from ttl_area_assignments
where user_id = :user_id
and area_id = :area_id
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/default-assignee-ae.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+delete from ttl_area_assignments
+ where user_id = :user_id and area_id = :area_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/deleted.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/deleted.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/deleted.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/deleted.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -12,7 +12,7 @@
set master_template [ttl_master_template]
-db_multirow areas t {
+db_multirow areas get_inactive_areas {
select
area_id,
name,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/deleted.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/deleted.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/deleted.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+
+
+
+select area_id,
+ name,
+ 'area-delete?area_id=' || area_id || '&action=restore' as restore_url
+ from ttl_v_areas
+ where context_id = :package_id and
+ active_p = 'f'
+ order by lower(name)
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,29 @@
+
+
+ oracle8.1.6
+
+
+
+
+select v.area_id,
+ v.name,
+ v.full_name,
+ v.user_id,
+ decode(a.user_id, null, 0, 1) as already_assigned_p
+ from ttl_area_assignments a,
+ (select ta.area_id,
+ ta.name,
+ p.first_names || ' ' || p.last_name as full_name,
+ tu.user_id
+ from ttl_va_areas ta, ttl_v_users tu, persons p
+ where ta.context_id = :package_id and
+ tu.package_id = :package_id and
+ tu.user_id = p.person_id) v
+ where v.area_id = a.area_id(+) and
+ v.user_id = a.user_id(+)
+ order by v.name, v.full_name
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,29 @@
+
+
+
+ postgresql7.1
+
+
+
+
+select v.area_id,
+ v.name,
+ v.full_name,
+ v.user_id,
+ case when a.user_id is null then 0 else 1 end as already_assigned_p
+ from (select ta.area_id,
+ ta.name,
+ p.first_names || ' ' || p.last_name as full_name,
+ tu.user_id
+ from ttl_va_areas ta, ttl_v_users tu, persons p
+ where ta.context_id = :package_id and
+ tu.package_id = :package_id and
+ tu.user_id = p.person_id) v
+ left join ttl_area_assignments a using (area_id, user_id)
+ order by v.name, v.full_name
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -6,7 +6,7 @@
set master_template [ttl_master_template]
-db_1row t {
+db_1row count_users {
select count(*) as num_users from ttl_v_users where package_id = :package_id
}
@@ -37,6 +37,19 @@
and v.user_id = a.user_id(+)
order by v.name, v.full_name"
+ db_foreach get_users $query {
+
+ set name_of_area($area_id) $name
+
+ if [info exists already_assigned_p] {
+ if { $already_assigned_p } {
+ append assigned_list($area_id) "
$full_name
+ (remove)"
+ } else {
+ append unassigned_optionlist($area_id) ""
+ }
+ }
+ }
} else {
set query "
@@ -47,20 +60,19 @@
where ta.context_id = :package_id
order by ta.name"
-}
+ db_foreach get_area $query {
-db_foreach t $query {
+ set name_of_area($area_id) $name
- set name_of_area($area_id) $name
-
- if [info exists already_assigned_p] {
- if { $already_assigned_p } {
- append assigned_list($area_id) "
$full_name
+ if [info exists already_assigned_p] {
+ if { $already_assigned_p } {
+ append assigned_list($area_id) "
$full_name
(remove)"
- } else {
- append unassigned_optionlist($area_id) ""
- }
- }
+ } else {
+ append unassigned_optionlist($area_id) ""
+ }
+ }
+ }
}
foreach area_id [array names name_of_area] {
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/index.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,26 @@
+
+
+
+
+
+
+select count(*) as num_users from ttl_v_users where package_id = :package_id
+
+
+
+
+
+
+
+
+
+select ta.area_id,
+ ta.name
+ from ttl_va_areas ta
+ where ta.context_id = :package_id
+ order by ta.nameselect
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae-oracle.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,18 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+insert into acs_permissions (object_id, privilege, grantee_id)
+ select :package_id, 'write', :user_id from dual
+ where not exists (select 1 from ttl_v_users where user_id = :user_id and
+ package_id = :package_id)
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae-postgresql.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+ postgresql7.1
+
+
+
+
+insert into acs_permissions (object_id, privilege, grantee_id)
+ select :package_id, 'write', :user_id
+ where not exists (select 1 from ttl_v_users
+ where user_id = :user_id and
+ package_id = :package_id)
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -7,7 +7,7 @@
set package_id [ad_conn package_id]
if [string equal $action add] {
- db_dml t {
+ db_dml set_permission {
insert into acs_permissions (object_id, privilege, grantee_id)
select :package_id, 'write', :user_id
from dual
@@ -16,7 +16,7 @@
and package_id = :package_id)
}
} else {
- db_dml t {
+ db_dml delete_users {
delete from ttl_v_users where user_id = :user_id and package_id = :package_id
}
}
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/member-ae.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+
+
+
+delete from ttl_v_users where user_id = :user_id and package_id = :package_id
+
+
+
+
+
+
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/users.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/users.tcl 20 Apr 2001 20:51:23 -0000 1.1
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/users.tcl 28 May 2001 20:43:16 -0000 1.2
@@ -15,7 +15,7 @@
set master_template [ttl_master_template]
-db_multirow users t {
+db_multirow users get_users {
select
t.user_id,
p1.first_names || ' ' || p1.last_name as full_name,
@@ -33,7 +33,7 @@
if ![string equal "" $last_name_start] {
set user_search_p 1
- db_multirow user_search t {
+ db_multirow user_search search_users {
select
u.user_id,
p2.email,
Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/users.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/users.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/admin/users.xql 28 May 2001 20:43:16 -0000 1.1
@@ -0,0 +1,43 @@
+
+
+
+
+
+
+select t.user_id,
+ p1.first_names || ' ' || p1.last_name as full_name,
+ p2.email,
+ null as remove_link
+ from ttl_v_users t, persons p1, parties p2
+ where t.package_id = :package_id and
+ t.user_id = p1.person_id and
+ p1.person_id = p2.party_id
+ order by lower(p1.first_names), lower(p1. last_name)
+
+
+
+
+
+
+
+
+
+select u.user_id,
+ p2.email,
+ p1.first_names,
+ p1.last_name,
+ null as add_link
+ from users u, persons p1, parties p2
+ where u.user_id = p1.person_id and
+ p1.person_id = p2.party_id and
+ not exists (select 1 from ttl_v_users t
+ where t.package_id = :package_id and
+ t.user_id = u.user_id) and
+ lower(last_name) like lower(:last_name_start) || '%'
+ order by lower(last_name), lower(first_names)
+
+
+
+
+
+