Index: openacs-4/packages/acs-admin/www/apm/version-tag.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/version-tag.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/version-tag.tcl	10 Jan 2007 21:21:59 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/version-tag.tcl	29 Sep 2008 08:40:33 -0000	1.5
@@ -10,7 +10,7 @@
 }
 
 db_1row apm_package_by_version_id {
-    select package_name, version_name, package_id 
+    select pretty_name, version_name
     from apm_package_version_info where version_id = :version_id
 }
 
@@ -36,14 +36,13 @@
 
 # Path to the CVS executable
 
-set cvs [ad_parameter CvsPath vc]
+set cvs [parameter::get  -package_id [ad_acs_kernel_id] -parameter CvsPath]
 
-doc_body_append "[apm_header [list "version-view?version_id=$version_id" "$package_name $version_name"] [list "version-files?version_id=$version_id" "Files"] "Tag"]
-
-<p> We're going to write the CVS tag <code>$version_tag</code> into
+doc_body_append [apm_header [list "version-view?version_id=$version_id" "$pretty_name $version_name"] [list "version-files?version_id=$version_id" "Files"] "Tag"] \
+"<p> We're going to write the CVS tag <code>$version_tag</code> into
 the repository for each file in this package.  This will let you
 retrieve the exact set of revisions that make up
-$package_name $version_name in the future.  You can repeat
+$pretty_name $version_name in the future.  You can repeat
 this operation as often as you want, to tag new files for example.
 
 <p>Here goes: