Index: openacs-4/packages/logger/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/package-procs.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/logger/tcl/package-procs.tcl	11 Jan 2004 17:52:40 -0000	1.6
+++ openacs-4/packages/logger/tcl/package-procs.tcl	17 Sep 2004 21:06:04 -0000	1.6.2.1
@@ -75,3 +75,65 @@
 
     db_multirow variables select_variables {}    
 }
+
+
+ad_proc -public logger::package::map_project {
+    -project_id:required
+    {-package_id ""}
+} {
+    Maps a project to a package
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-05-20
+    
+    @param project_id
+
+    @param package_id A package ID (must be present in the
+    apm_packages table)
+
+    @return 
+    
+    @error 
+} {
+
+    if {[empty_string_p $package_id]} {
+        set package_id [ad_conn package_id]
+    }
+
+    permission::require_permission -object_id $project_id -privilege "read"
+    
+    db_dml map_project {
+        insert into logger_project_pkg_map (project_id, package_id) values (:project_id, :package_id)
+    }
+
+    return 1
+}
+
+
+ad_proc -public logger::package::unmap_project {
+    -project_id:required
+    -package_id:required
+} {
+    Unmaps a project from a package
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-05-20
+    
+    @param project_id
+
+    @param package_id
+
+    @return 
+    
+    @error 
+} {
+    
+    db_dml map_project {
+        delete 
+        from   logger_project_pkg_map 
+        where  project_id = :project_id
+        and    package_id = :package_id
+    }
+
+    return 1
+}