Index: openacs-4/packages/acs-content-repository/sql/oracle/content-revision.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/content-revision.sql,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-content-repository/sql/oracle/content-revision.sql	12 May 2002 20:57:02 -0000	1.5
+++ openacs-4/packages/acs-content-repository/sql/oracle/content-revision.sql	16 May 2003 14:05:27 -0000	1.5.2.1
@@ -321,6 +321,25 @@
 
 end get_number;
 
+function revision_name(
+  revision_id IN cr_revisions.revision_id%TYPE
+) return varchar2 is
+
+  v_text varchar2(500);
+  v_sql  varchar2(500);
+
+begin
+
+  v_sql := 'select ''Revision '' || content_revision.get_number(r.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 = ' || revision_name.revision_id;
+
+  execute immediate v_sql into v_text;
+
+  return v_text;
+
+end revision_name;
+
 procedure index_attributes(
   revision_id IN cr_revisions.revision_id%TYPE
 ) is
Index: openacs-4/packages/acs-content-repository/sql/oracle/packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/packages-create.sql,v
diff -u -r1.7.2.2 -r1.7.2.3
--- openacs-4/packages/acs-content-repository/sql/oracle/packages-create.sql	15 Apr 2003 15:27:18 -0000	1.7.2.2
+++ openacs-4/packages/acs-content-repository/sql/oracle/packages-create.sql	16 May 2003 14:05:27 -0000	1.7.2.3
@@ -894,6 +894,12 @@
   revision_id   in cr_revisions.revision_id%TYPE
 ) return number;
 
+function revision_name (
+  --/** Return a pretty string 'revision x of y'
+  --*/
+  revision_id   in cr_revisions.revision_id%TYPE
+) return varchar2;
+
 procedure index_attributes(
   --/** Generates an XML document for insertion into cr_revision_attributes,
   --    which is indexed by Intermedia for searching attributes.
Index: openacs-4/packages/acs-content-repository/sql/oracle/types-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/oracle/types-create.sql,v
diff -u -r1.1 -r1.1.4.1
--- openacs-4/packages/acs-content-repository/sql/oracle/types-create.sql	24 Mar 2001 22:00:48 -0000	1.1
+++ openacs-4/packages/acs-content-repository/sql/oracle/types-create.sql	16 May 2003 14:05:27 -0000	1.1.4.1
@@ -235,7 +235,8 @@
    pretty_name   => 'Basic Item',
    pretty_plural => 'Basic Items',
    table_name    => 'cr_revisions',
-   id_column     => 'revision_id'
+   id_column     => 'revision_id',
+   name_method   => 'content_revision.revision_name'
  );
 
  attr_id := content_type.create_attribute (
Index: openacs-4/packages/bug-tracker/sql/oracle/bug-tracker-create-packages.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/sql/oracle/bug-tracker-create-packages.sql,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/bug-tracker/sql/oracle/bug-tracker-create-packages.sql	11 May 2003 20:05:44 -0000	1.1.2.3
+++ openacs-4/packages/bug-tracker/sql/oracle/bug-tracker-create-packages.sql	16 May 2003 14:05:56 -0000	1.1.2.4
@@ -56,6 +56,10 @@
         bug_id          in integer
     );
 
+    function name (
+        bug_id        in integer
+    ) return varchar2;
+
 end bt_bug;
 /
 show errors
@@ -429,6 +433,20 @@
         return;
     end delete;
 
+    function name (
+        bug_id         in integer
+    ) return varchar2
+    is
+        v_name          bt_bugs.summary%TYPE;
+    begin
+        select summary
+        into   v_name
+        from   bt_bugs
+        where  bug_id = name.bug_id;
+
+        return v_name;
+    end name;
+
 end bt_bug;
 /
 show errors