Index: openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/aolserver-3-procs.tcl	24 Apr 2001 22:38:12 -0000	1.2
@@ -123,29 +123,6 @@
     }
 }
 
-ad_proc -deprecated ns_findrowbyid {table rowidset} {
-    db_with_handle db {
-	set sql "select * from [ns_dbquotename $table] where"
-	for {set i 0} {$i < [ns_set size $rowidset]} {incr i} {
-	    if {$i != 0} {
-		append sql " and"
-	    }
-	    set column [ns_urldecode [ns_set key $rowidset $i]]
-	    set value [ns_set value $rowidset $i]
-	    set type [ns_column type $db $table $column]
-	    append sql " [ns_dbquotename $column] = [ns_dbquotevalue $value $type]"
-	}
-	
-	if [catch {   
-	    set row [ns_ora select $db $sql]
-	} errMsg] {
-	    ns_db setexception $db NSINT "Could not find row"
-	    error $errMsg
-	}
-    }
-    return $row
-}
-
 proc _http_read {timeout sock length} {
 
     return [_ns_http_read $timeout $sock $length]