Index: openacs-4/contrib/obsolete-packages/bboard/sql/postgresql/bboard-packages.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/sql/postgresql/bboard-packages.sql,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/obsolete-packages/bboard/sql/postgresql/bboard-packages.sql 29 Jun 2001 20:50:17 -0000 1.2 +++ openacs-4/contrib/obsolete-packages/bboard/sql/postgresql/bboard-packages.sql 24 Sep 2001 23:45:12 -0000 1.3 @@ -569,4 +569,4 @@ perform acs_message__delete(message_id); return 0; end; -' language 'plpgsql'; \ No newline at end of file +' language 'plpgsql'; Index: openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql,v diff -u -r1.26 -r1.27 --- openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql 31 Aug 2001 02:28:40 -0000 1.26 +++ openacs-4/packages/acs-content-repository/sql/postgresql/content-revision.sql 24 Sep 2001 23:45:12 -0000 1.27 @@ -422,6 +422,16 @@ end;' language 'plpgsql'; +create function content_revision__revision_name(integer) +returns text as ' +declare + p_revision_id alias for $1; +begin + return ''Revision '' || content_revision__get_number(revision_id) || + '' of '' || (select count(*) from cr_revisions where item_id = r.item_id) || '' for item: '' + || content_item__get_title(item_id) + from cr_revisions r where r.revision_id = p_revision_id; +end;' language 'plpgsql'; -- procedure index_attributes create function content_revision__index_attributes (integer) Index: openacs-4/packages/acs-content-repository/sql/postgresql/types-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/postgresql/types-create.sql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-content-repository/sql/postgresql/types-create.sql 30 Mar 2001 05:31:33 -0000 1.3 +++ openacs-4/packages/acs-content-repository/sql/postgresql/types-create.sql 24 Sep 2001 23:45:12 -0000 1.4 @@ -318,7 +318,7 @@ 'Basic Items', 'cr_revisions', 'revision_id', - null + 'content_revision.revision_name' ); select content_type__create_attribute ( Index: openacs-4/packages/acs-kernel/sql/oracle/acs-metadata-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/acs-metadata-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-kernel/sql/oracle/acs-metadata-create.sql 11 May 2001 00:14:48 -0000 1.2 +++ openacs-4/packages/acs-kernel/sql/oracle/acs-metadata-create.sql 24 Sep 2001 23:45:12 -0000 1.3 @@ -42,7 +42,7 @@ id_column varchar2(30) not null, package_name varchar2(30) not null constraint acs_object_types_pkg_name_un unique, - name_method varchar2(30), + name_method varchar2(100), type_extension_table varchar2(30), dynamic_p char(1) default 'f' constraint acs_obj_types_dynamic_p_ck Index: openacs-4/packages/acs-kernel/sql/postgresql/acs-metadata-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/acs-metadata-create.sql,v diff -u -r1.8 -r1.9 --- openacs-4/packages/acs-kernel/sql/postgresql/acs-metadata-create.sql 1 Sep 2001 18:30:27 -0000 1.8 +++ openacs-4/packages/acs-kernel/sql/postgresql/acs-metadata-create.sql 24 Sep 2001 23:45:12 -0000 1.9 @@ -40,7 +40,7 @@ id_column varchar(30) not null, package_name varchar(30) not null constraint acs_object_types_pkg_name_un unique, - name_method varchar(30), + name_method varchar(100), type_extension_table varchar(30), dynamic_p boolean default 'f', tree_sortkey varchar(4000) Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl 13 Mar 2001 22:59:26 -0000 1.1 +++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl 24 Sep 2001 23:45:12 -0000 1.2 @@ -87,6 +87,7 @@ set hashed_password [ns_sha1 "$password$salt"] db_transaction { + db_exec_plsql user_insert { begin :1 := acs.add_user(user_id => :user_id, @@ -103,6 +104,7 @@ member_state => :member_state); end; } + } on_error { # we got an error. log it and signal failure. ns_log Error "Problem creating a new user: $errmsg"