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 -N -r1.5 -r1.6
--- openacs-4/packages/acs-admin/www/apm/version-tag.tcl	29 Sep 2008 08:40:33 -0000	1.5
+++ openacs-4/packages/acs-admin/www/apm/version-tag.tcl	4 Oct 2008 20:12:51 -0000	1.6
@@ -9,19 +9,14 @@
     {version_id:integer}
 }
 
-db_1row apm_package_by_version_id {
-    select pretty_name, version_name
-    from apm_package_version_info where version_id = :version_id
-}
+db_1row apm_package_by_version_id {}
 
 if { $installed_p eq "f" } {
     ad_return_complaint 1 "<li>The selected version is not installed"
     return
 }
 
-set files [db_list apm_all_paths {
-	select path from apm_package_files where version_id = :version_id order by path
-}]
+set files [db_list apm_all_paths {}]
 
 if { [llength $files] == 0 } {
     ad_return_complaint 1 "<li>No files in this packages"
@@ -120,18 +115,10 @@
     this page or run the tagging operation again.  This package won't
     be archivable until the tagging is completed with no errors."
 
-    db_dml apm_all_files_untag {
-	update apm_package_versions 
-	set    tagged_p   = 'f' 
-	where  version_id = :version_id
-    }
+    db_dml apm_all_files_untag {}
 } else {
     doc_body_append "<p>All files were tagged successfully."
-    db_dml apm_all_files_tag {
-	update apm_package_versions 
-	set    tagged_p   = 't' 
-	where  version_id = :version_id
-    }
+    db_dml apm_all_files_tag {}
 }
 
 doc_body_append "
Index: openacs-4/packages/acs-admin/www/apm/version-tag.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/version-tag.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/apm/version-tag.xql	29 Sep 2008 08:40:33 -0000	1.2
+++ openacs-4/packages/acs-admin/www/apm/version-tag.xql	4 Oct 2008 20:12:51 -0000	1.3
@@ -1,6 +1,15 @@
 <?xml version="1.0"?>
 <queryset>
 
+  <fullquery name="apm_package_by_version_id">
+    <querytext>
+      select pretty_name, version_name
+      from apm_package_version_info 
+      where version_id = :version_id
+    </querytext>
+  </fullquery>
+
+
 <fullquery name="apm_all_paths">      
       <querytext>