--- loncom/homework/lonhomework.pm	2004/11/29 22:13:34	1.184
+++ loncom/homework/lonhomework.pm	2004/11/30 22:57:16	1.185
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.184 2004/11/29 22:13:34 albertel Exp $
+# $Id: lonhomework.pm,v 1.185 2004/11/30 22:57:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -385,6 +385,12 @@ sub setuppermissions {
                                                '/'.$ENV{'request.course.sec'});
     }
     $Apache::lonhomework::viewgrades = $viewgrades;
+    if ($Apache::lonhomework::browse eq 'F' && 
+	$ENV{'form.devalidatecourseresdata'} eq 'on') {
+	my (undef,$courseid) = &Apache::lonxml::whichuser();
+	&Apache::lonnet::devalidatecourseresdata($ENV{"course.$courseid.num"},
+					      $ENV{"course.$courseid.domain"});
+    }
     return ''
 }