Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/workflow-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/workflow-copy.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/workflow-copy.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/workflow-copy.tcl	16 May 2001 00:40:41 -0000	1.2
@@ -25,7 +25,7 @@
 set context_bar [ad_context_bar [list "workflow?[export_url_vars workflow_key]" "$workflow_name"] "Copy process"]
 
 
-db_1row pretty_names {
+db_1row pretty_name {
     select pretty_name, pretty_plural
     from acs_object_types
     where object_type = :workflow_key
@@ -49,7 +49,7 @@
 	$pretty_name ""]
 
 set new_workflow_pretty_plural [wf_make_unique -maxlen 100 \
-	-taken_names [db_list pretty_names "select pretty_plural from acs_object_types"] \
+	-taken_names [db_list pretty_plural_names "select pretty_plural from acs_object_types"] \
 	$pretty_plural ""]
 
 set export_vars [export_vars -form {workflow_key new_workflow_key new_table_name new_workflow_pretty_plural}]