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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N -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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N -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 -N -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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N -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 -N -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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N -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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N --- /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 -N --- /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 -N -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 -N --- /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 -N -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 -N --- /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) + + + + + +