Index: openacs-4/packages/new-portal/tcl/portal-node-mapping-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/Attic/portal-node-mapping-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/new-portal/tcl/portal-node-mapping-procs-oracle.xql	13 Apr 2002 00:08:08 -0000	1.1
+++ openacs-4/packages/new-portal/tcl/portal-node-mapping-procs-oracle.xql	15 Apr 2002 19:07:48 -0000	1.2
@@ -3,7 +3,7 @@
 <queryset>
 <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="portal::mapping::set.set_node_mapping">
+<fullquery name="portal::mapping::new.set_node_mapping">
 <querytext>
 declare
 begin
@@ -12,7 +12,7 @@
 </querytext>
 </fullquery>
 
-<fullquery name="portal::mapping::unset.unset_node_mapping">
+<fullquery name="portal::mapping::del.unset_node_mapping">
 <querytext>
 declare
 begin
Index: openacs-4/packages/new-portal/tcl/portal-node-mapping-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/Attic/portal-node-mapping-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/new-portal/tcl/portal-node-mapping-procs-postgresql.xql	13 Apr 2002 00:08:08 -0000	1.1
+++ openacs-4/packages/new-portal/tcl/portal-node-mapping-procs-postgresql.xql	15 Apr 2002 19:07:48 -0000	1.2
@@ -3,13 +3,13 @@
 <queryset>
 <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="portal::mapping::set.set_node_mapping">
+<fullquery name="portal::mapping::new.set_node_mapping">
 <querytext>
 select portal_node_mapping__new(:object_id, :node_id)
 </querytext>
 </fullquery>
 
-<fullquery name="portal::mapping::unset.unset_node_mapping">
+<fullquery name="portal::mapping::del.unset_node_mapping">
 <querytext>
 select portal_node_mapping__del(:object_id)
 </querytext>
Index: openacs-4/packages/new-portal/tcl/portal-node-mapping-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/Attic/portal-node-mapping-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/new-portal/tcl/portal-node-mapping-procs.tcl	13 Apr 2002 00:08:08 -0000	1.1
+++ openacs-4/packages/new-portal/tcl/portal-node-mapping-procs.tcl	15 Apr 2002 19:07:07 -0000	1.2
@@ -18,33 +18,32 @@
 
 ad_library {
     Portal Node Mappings
-
+    
     @author Ben Adida (ben@openforce)
     @creation-date April 2002
-    @cvs-id $Id$
 }
 
 namespace eval portal::mapping {
 
-    ad_proc -public set {
+    ad_proc -public new {
         {-object_id:required}
         {-node_id:required}
     } {
         db_exec_plsql set_node_mapping {}
     }
-
-    ad_proc -public unset {
+    
+    ad_proc -public del {
         {-object_id:required}
     } {
         db_exec_plsql unset_node_mapping {}
     }
-
+    
     ad_proc -public get_node_id {
         {-object_id:required}
     } {
         return [db_string select_node_mapping {} -default ""]
     }
-
+    
     ad_proc -public get_url {
         {-object_id:required}
     } {
@@ -53,8 +52,8 @@
         if {[empty_string_p $node_id]} {
             return $node_id
         }
-
+        
         return [site_nodes::get_url_from_node_id -node_id $node_id]
     }
-
+    
 }