Index: openacs-4/packages/assessment/tcl/as-section-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/assessment/tcl/as-section-procs.tcl	7 Jan 2005 16:10:44 -0000	1.10
+++ openacs-4/packages/assessment/tcl/as-section-procs.tcl	14 Jan 2005 13:13:37 -0000	1.11
@@ -117,6 +117,22 @@
     return $new_section_id
 }
 
+ad_proc -public as::section::latest {
+    -section_id:required
+    -assessment_rev_id:required
+    {-default ""}
+} {
+    @author Timo Hentschel (timo@timohentschel.de)
+    @creation-date 2005-01-13
+
+    Returns the latest revision of a section
+} {
+    if {![db_0or1row get_latest_section_id {}] && ![empty_string_p $default]} {
+	return $default
+    }
+    return $section_id
+}
+
 ad_proc -public as::section::copy {
     {-section_id:required}
     {-name ""}