Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	12 Dec 2001 19:25:52 -0000	1.2
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	13 Dec 2001 21:10:02 -0000	1.3
@@ -123,7 +123,7 @@
   </querytext>
 </fullquery> 
 
-<fullquery name="portal::configure_dispatch.toggle_lock_select">
+<fullquery name="portal::configure_dispatch.toggle_pinned_select">
   <querytext>
     select state
     from portal_element_map 
@@ -132,16 +132,16 @@
   </querytext>
 </fullquery> 
 
-<fullquery name="portal::configure_dispatch.toggle_lock_update_1">
+<fullquery name="portal::configure_dispatch.toggle_pinned_update_pin">
   <querytext>
     update portal_element_map
-    set state = 'locked'
+    set state = 'pinned'
     where portal_id = :portal_id
     and element_id = :element_id
   </querytext>
 </fullquery> 
 
-<fullquery name="portal::configure_dispatch.toggle_lock_update_2">
+<fullquery name="portal::configure_dispatch.toggle_pinned_update_unpin">
   <querytext>
     update portal_element_map
     set state = 'full'
@@ -243,7 +243,7 @@
           where portal_id = :portal_id 
           and region = :region 
           and sort_key < :sort_key
-          and state != 'locked'
+          and state != 'pinned'
           order by sort_key desc) where rownum = 1
   </querytext>
 </fullquery> 
@@ -256,7 +256,7 @@
           where portal_id = :portal_id 
           and region = :region 
           and sort_key > :sort_key 
-          and state != 'locked'
+          and state != 'pinned'
           order by sort_key) where rownum = 1 
   </querytext>
 </fullquery>