Index: openacs-4/contrib/packages/events/tcl/events-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/tcl/events-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/events/tcl/events-procs.tcl	9 Mar 2003 12:07:42 -0000	1.1
+++ openacs-4/contrib/packages/events/tcl/events-procs.tcl	30 Mar 2004 14:54:51 -0000	1.2
@@ -205,16 +205,15 @@
 	    reg_deadline {
 		set raw_date [db_string select_reg_deadline {}]
 	    }
-
-	    return [template::util::date::create \
+        }
+        return [template::util::date::create \
 		    [lindex $raw_date 0] \
 		    [lindex $raw_date 1] \
 		    [lindex $raw_date 2] \
 		    [lindex $raw_date 3] \
 		    [lindex $raw_date 4] \
 		    $date_format \
-		    ]
-	}
+                   ]
     }
 
     ad_proc -public toggle_available_p {
@@ -369,4 +368,4 @@
         	return 1
             }
      }
-}
\ No newline at end of file
+}
Index: openacs-4/contrib/packages/events/www/admin/venues.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/Attic/venues.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/events/www/admin/venues.tcl	9 Mar 2003 12:08:23 -0000	1.1
+++ openacs-4/contrib/packages/events/www/admin/venues.tcl	30 Mar 2004 14:54:51 -0000	1.2
@@ -23,6 +23,7 @@
 }
 
 set context_bar [ad_context_bar "Venues"]
+set package_id [ad_conn package_id]
 
 #the columns for ad_table
 set col [list venue_name city state max_people connecting]
@@ -40,7 +41,7 @@
     set sql "
     select v.venue_id, v.venue_name, v.city,
     v.usps_abbrev as state, max_people
-    from events_venues v where venue_id not in (select child_venue_id from events_venues_venues_map)
+    from events_venues v where venue_id not in (select child_venue_id from events_venues_venues_map) and package_id = :package_id
     [ad_order_by_from_sort_spec $orderby $table_def]"
 } else {
     if { $parent_p } {
@@ -60,4 +61,4 @@
     }
 }
 
-set table [ad_table -Tcolumns $col -Tmissing_text "<em>There are no venues to display</em>" -Torderby $orderby venues_list $sql $table_def]
\ No newline at end of file
+set table [ad_table -Tcolumns $col -Tmissing_text "<em>There are no venues to display</em>" -Torderby $orderby venues_list $sql $table_def]