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

[raeburn]

raeburn		Thu Apr 17 10:51:45 2008 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  Modify calls to &lonnet::GetFileTimestamp() to us the updated routine, which makes no assumptions session-server side about the directory structure for userfiles on the homeserver. 
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.186 loncom/interface/loncoursedata.pm:1.187
--- loncom/interface/loncoursedata.pm:1.186	Sun Jan  6 22:00:00 2008
+++ loncom/interface/loncoursedata.pm	Thu Apr 17 10:51:43 2008
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.186 2008/01/07 03:00:00 raeburn Exp $
+# $Id: loncoursedata.pm,v 1.187 2008/04/17 14:51:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1669,9 +1669,9 @@
     #
     # Get the update time for the user
     my $updatetime = 0;
+    my $getuserdir = 1;
     my $modifiedtime = &Apache::lonnet::GetFileTimestamp
-        ($sdom,$sname,$courseid.'.db',
-         $Apache::lonnet::perlvar{'lonUsersDir'});
+        ($sdom,$sname,$courseid.'.db',$getuserdir);
     #
     if ($modifiedtime == -1) {
 	return ('no data',undef);
@@ -1721,9 +1721,9 @@
     &ensure_tables_are_set_up($courseid);
     #
     # Get the update time for the user
+    my $getuserdir = 1;
     my $modifiedtime = &Apache::lonnet::GetFileTimestamp
-        ($sdom,$sname,$courseid.'.db',
-         $Apache::lonnet::perlvar{'lonUsersDir'});
+        ($sdom,$sname,$courseid.'.db',$getuserdir);
     #
     my $student_id = &get_student_id($sname,$sdom);
     my @Result = &Apache::lonmysql::get_rows($student_table,