Index: openacs-4/packages/acs-content-repository/sql/content-util.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/Attic/content-util.sql,v
diff -u -N
--- openacs-4/packages/acs-content-repository/sql/content-util.sql	13 Mar 2001 22:59:26 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,128 +0,0 @@
--- Data model to support content repository of the ArsDigita
--- Publishing System
-
--- Copyright (C) 1999-2000 ArsDigita Corporation
--- Author: Karl Goldstein (karlg@arsdigita.com)
-
--- $Id: content-util.sql,v 1.1 2001/03/13 22:59:26 ben Exp $
-
--- This is free software distributed under the terms of the GNU Public
--- License.  Full text of the license is available from the GNU Project:
--- http://www.fsf.org/copyleft/gpl.html
-
-create or replace function table_exists (
-  table_name varchar2
-) return boolean is
-
-  v_count integer;
-  v_exists boolean;
-
-begin
-
-  select decode(count(*),0,0,1) into v_count 
-    from user_tables where table_name = upper(table_exists.table_name);
-
-  if v_count = 1 then
-    v_exists := true;
-  else
-    v_exists := false;
-  end if;
-
-  return v_exists;
-
-end table_exists;
-/
-show errors
-
-create or replace function column_exists (
-  table_name varchar2,
-  column_name varchar2
-) return boolean is
-
-  v_count integer;
-  v_exists boolean;
-
-begin
-
- select decode(count(*),0,0,1) into v_count from user_tab_columns
-   where table_name = upper(column_exists.table_name)
-   and column_name = upper(column_exists.column_name);
-
-  if v_count = 1 then
-    v_exists := true;
-  else
-    v_exists := false;
-  end if;
-
-  return v_exists;
-
-end column_exists;
-/
-show errors
-
-create or replace procedure clob_to_blob(
-  clob_loc clob, blob_loc blob) 
-as language 
-  java 
-name 
-  'com.arsdigita.content.Util.clobToBlob(
-    oracle.sql.CLOB, oracle.sql.BLOB
-   )';
-/
-show errors
-
-create or replace procedure blob_to_clob(
-  blob_loc blob, clob_loc clob) 
-as language 
-  java 
-name 
-  'com.arsdigita.content.Util.blobToClob(
-    oracle.sql.BLOB, oracle.sql.CLOB
-   )';
-/
-show errors
-
-
-create or replace procedure string_to_blob(
-  s varchar2, blob_loc blob) 
-as language 
-  java 
-name 
-  'com.arsdigita.content.Util.stringToBlob(
-    java.lang.String, oracle.sql.BLOB
-   )';
-/
-show errors
-
-create or replace procedure string_to_blob_size(
-  s varchar2, blob_loc blob, blob_size number) 
-as language 
-  java 
-name 
-  'com.arsdigita.content.Util.stringToBlob(
-    java.lang.String, oracle.sql.BLOB, int
-   )';
-/
-show errors
-
-create or replace function blob_to_string(
-  blob_loc blob) return varchar2
-as language 
-  java 
-name 
-  'com.arsdigita.content.Util.blobToString(
-    oracle.sql.BLOB
-   ) return java.lang.String';
-/
-show errors
-
-create or replace procedure blob_to_file(
-s varchar2, blob_loc blob)
-as language
-  java
-name
-  'com.arsdigita.content.Util.blobToFile(
-  java.lang.String, oracle.sql.BLOB
-  )';
-/
-show errors