Index: openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.0.0a4-5.0.0a5.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.0.0a4-5.0.0a5.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.0.0a4-5.0.0a5.sql	9 Nov 2003 12:57:10 -0000	1.1
@@ -0,0 +1,32 @@
+-- for postgresql 7.4 the || op needs an explicit cast.
+
+create or replace function tree_left(varbit) returns varbit as '
+
+-- Create a key less than or equal to that of any child of the
+-- current key.
+
+declare
+  key      alias for $1;
+begin
+  if key is null then
+    return ''X00''::varbit;
+  else
+    return key || ''X00''::varbit;
+  end if;
+end;' language 'plpgsql' with(iscachable);
+
+create or replace function tree_right(varbit) returns varbit as '
+
+-- Create a key greater or equal to that of any child of the current key.
+-- Used in BETWEEN expressions to select the subtree rooted at the given
+-- key. 
+
+declare
+  key      alias for $1;
+begin
+  if key is null then
+    return ''XFFFFFFFF''::varbit;
+  else
+    return key || ''XFFFFFFFF''::varbit;
+  end if;
+end;' language 'plpgsql' with(iscachable);
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.0a4-5.0a5.sql'.
Fisheye: No comparison available.  Pass `N' to diff?