Index: openacs-4/packages/lab-report/www/iframe/feedback-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report/www/iframe/feedback-view.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/lab-report/www/iframe/feedback-view.tcl	23 Aug 2006 05:43:56 -0000	1.2
+++ openacs-4/packages/lab-report/www/iframe/feedback-view.tcl	24 Aug 2006 10:55:06 -0000	1.3
@@ -29,7 +29,7 @@
 } elseif { $rating eq "satisfactory" } {
     set rating "Satisfactory"
 } else {
-    set rating "None"
+    set rating ""
 }
 
 if { [info exists feedback_id] && $feedback_id ne "" } {
@@ -41,4 +41,21 @@
 # Is the user an instructor?
 set instructor_p [lab_report::instructor_p $user_id]
 
+# Get the author ID for this report.
+set author_id [lab_report::get_author_id -package_id $package_id]
+set user_is_author_p 0
+if { $user_id == $author_id } {
+    set user_is_author_p 1
+}
+
+# Author needs help?
+set needs_help_p 0
+if { $user_is_author_p} {
+    if { $rating eq "Satisfactory" || $rating eq "Needs Work"} {
+	set needs_help_p 1
+    }
+}
+
+set description_url [export_vars -url -base feedback-description {report_id lab_id template_id section_id feedback_criteria_id}]
+
 ad_return_template