Index: openacs-4/packages/lars-blogger/tcl/category-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/category-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/category-procs.tcl	11 Dec 2003 21:40:05 -0000	1.2
+++ openacs-4/packages/lars-blogger/tcl/category-procs.tcl	14 Dec 2003 16:12:06 -0000	1.3
@@ -46,3 +46,11 @@
     return [db_list short_names {}]
 }
 
+ad_proc lars_blogger::category::get_id_by_name {
+    {-package_id:required}
+    {-name:required}
+} {
+    Returns category ID from name (not short_name)
+} {
+    return [db_string select_category_id {} -default {}]
+}
\ No newline at end of file