Index: openacs-4/contrib/packages/cop-ui/www/clipboards/ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-ui/www/clipboards/ae.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/cop-ui/www/clipboards/ae.tcl	28 Mar 2004 21:17:10 -0000	1.1
+++ openacs-4/contrib/packages/cop-ui/www/clipboards/ae.tcl	18 Mar 2005 14:36:48 -0000	1.2
@@ -18,21 +18,21 @@
     {title:text(text)             {label "Clipboard name"}
         {html {size 60}}}
 } -select_query {
-    select title from acs_objects where object_id = :clipboard_id and object_type = 'cop_clipboard'
+    select title from acs_objects where object_id = :clipboard_id and object_type = 'clipboard'
 } -validate {
     {title
         {![string is space $title]} 
         "You must provide a name for the clipboard"
     }
 } -new_data {
-    cop::clipboard::new -title $title
+    clipboard::new -title $title
 } -edit_data {
     set peeraddr [ad_conn peeraddr]
     permission::require_permission -object_id $clipboard_id -privilege admin
     db_dml do_update {
         UPDATE acs_objects 
            SET title = :title, last_modified = now(), modifying_user = :user_id, modifying_ip = :peeraddr
-         WHERE object_id = :clipboard_id and object_type = 'cop_clipboard'
+         WHERE object_id = :clipboard_id and object_type = 'clipboard'
     }
 } -after_submit {
     if {![empty_string_p $object_id]} {