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.3 -r1.4
--- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl	31 May 2001 21:50:21 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/ticket-add-2.tcl	1 Mar 2002 19:47:15 -0000	1.4
@@ -14,6 +14,7 @@
 
 set caller_id [ad_conn user_id]
 set caller_ip [ad_conn peeraddr]
+set package_id [ad_conn package_id]
 
 set deadline_date $deadline(date)
 
@@ -28,7 +29,7 @@
                 object_type   => 'ticket_tracker_lite_ticket',
                 creation_user => :caller_id,
                 creation_ip   => :caller_ip,
-                context_id    => :area_id
+                context_id    => :package_id
             );
 
             insert into ttl_tickets (