Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.68 -r1.69
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	1 Nov 2003 08:45:37 -0000	1.68
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	7 Nov 2003 11:29:23 -0000	1.69
@@ -1840,11 +1840,20 @@
     }
 }
 
+ad_proc -public apm_get_repository_channel {} {
+    Returns the channel to use when installing software from the repository.
+    Based on the version of the acs-kernel package, e.g. if acs-kernel is 
+    version 5.0.1, then this will return 5-0.
+} {
+    set kernel_versionv [split [ad_acs_version] .]
+    return [join [lrange $kernel_versionv 0 1] "-"]
+}
 
 
 
 
 
+
 ##############
 #
 # Deprecated Procedures