Index: openacs-4/contrib/packages/portal/tcl/theme-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/theme-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/portal/tcl/theme-procs.tcl	27 Feb 2004 01:13:15 -0000	1.3
+++ openacs-4/contrib/packages/portal/tcl/theme-procs.tcl	14 Mar 2004 01:16:32 -0000	1.4
@@ -42,4 +42,16 @@
         return [array get theme]
     }
 
+    ad_proc -public get_id {
+        {-name:required}
+    } {
+        Return a theme's id
+ 
+        @name The name of the theme
+        @return The theme_id
+
+    } {
+        return [db_string select_theme_id {}]
+    }
+
 }