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.12 -r1.13
--- openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl	7 Apr 2005 11:26:59 -0000	1.12
+++ openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl	8 Aug 2006 21:26:42 -0000	1.13
@@ -8,6 +8,7 @@
     @author jopez@galileo.edu
     @cvs-id $Id$
 
+
 } {
     {orderby ""}
 } -validate {
@@ -21,11 +22,15 @@
 set page_title "[_ evaluation.Grades_Report_]"
 set context "[_ evaluation.Grades_Report_]"
 set package_id [ad_conn package_id]
-
+set simple_p [parameter::get -parameter "SimpleVersion"]
 # we have to decide if we are going to show all the users in the system
 # or only the students of a given class (community in dotrln)
 # in order to create the groups
 
+set class "list"
+if { $simple_p } {
+    set class "pbs_list"
+}
 set community_id [dotlrn_community::get_community_id]
 if { [empty_string_p $community_id] } {
     set query_name grades_report
@@ -53,18 +58,22 @@
     append sql_query [db_map grade_total_grade]
 }
 
+
 lappend elements total_grade \
     [list label "[_ evaluation.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 \
+    -main_class $class \
+    -sub_class narrow \
     -elements $elements \
     -pass_properties " $pass_grades " \
     -orderby { default_value student_name } 
@@ -75,6 +84,8 @@
     set orderby " order by student_name asc"
 }
 
+
+
 db_multirow -extend { student_url } grades_report $query_name { *SQL* } {
     set student_url [export_vars -base "student-grades-report" -url { {student_id $user_id} }]
 }