Index: openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl	28 Apr 2004 11:06:42 -0000	1.1
+++ openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl	12 May 2004 02:07:45 -0000	1.2
@@ -9,6 +9,7 @@
 	@cvs-id $Id$
 
 } {
+	{orderby ""}
 } -validate {
 	grades_for_package {
 		if { [string eq [db_string package_grades { *SQL* }] 0] } {
@@ -23,7 +24,9 @@
 
 set elements [list student_name \
 				  [list label "Name" \
-					   link_url_col student_url ] \
+					   link_url_col student_url \
+					   orderby_asc {student_name asc} \
+					   orderby_desc {student_name desc}] \
 				 ]
 
 db_foreach grade_type { *SQL* } {
@@ -34,16 +37,28 @@
 }
 
 lappend elements total_grade \
-	[list label "Total Grade"]
+	[list label "Total Grade" \
+		 orderby_asc {total_grade asc} \
+		 orderby_desc {total_grade desc} \
+   ]
 
 append sql_query [db_map class_total_grade]
 
 template::list::create \
 	-name grades_report \
 	-multirow grades_report \
 	-key grade_id \
-	-elements $elements
-	
-db_multirow grades_report grades_report { *SQL* } {
+	-elements $elements \
+	-orderby { default_value student_name }
 
+if { ![empty_string_p $orderby] } {
+    set orderby "[template::list::orderby_clause -orderby -name grades_report]"
+} else {
+    set orderby " order by student_name asc"
 }
+
+
+		
+db_multirow grades_report grades_report { *SQL* } {
+	
+}