[LON-CAPA-cvs] cvs: loncom /interface loncoursedata.pm

[matthew]

matthew		Tue Sep 30 11:45:57 2003 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  Only store the update time if the updates were successful.
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.94 loncom/interface/loncoursedata.pm:1.95
--- loncom/interface/loncoursedata.pm:1.94	Tue Sep 30 11:35:56 2003
+++ loncom/interface/loncoursedata.pm	Tue Sep 30 11:45:57 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.94 2003/09/30 15:35:56 matthew Exp $
+# $Id: loncoursedata.pm,v 1.95 2003/09/30 15:45:57 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1353,8 +1353,10 @@
     my @Results = &store_student_data($sname,$sdom,$courseid,\%student_data);
     #
     # Set the students update time
-    &Apache::lonmysql::replace_row($studentdata_table,
+    if ($Results[0] !~ /^error/) {
+        &Apache::lonmysql::replace_row($studentdata_table,
                          [$student_id,$time_of_retrieval,undef,undef,undef]);
+    }
     #
     return @Results;
 }