--- loncom/homework/lonhomework.pm	2000/12/04 22:08:57	1.18
+++ loncom/homework/lonhomework.pm	2000/12/12 22:35:52	1.20
@@ -52,10 +52,36 @@ sub send_footer {
   $request->print(&Apache::lontexconvert::footer());
 }
 
+sub check_date {
+  my ($type,$id) = @_;
+  my $date ='';
+  my $passed = '';
+  &Apache::lonxml::debug("checking :$type: for part :$id:");
+  if ($type eq 'OPEN_DATE') {
+    $date = &Apache::lonnet::EXT("resource.$id.opendate");
+  } elsif ($type eq 'DUE_DATE') {
+    $date = &Apache::lonnet::EXT("resource.$id.duedate");
+  } elsif ($type eq 'START_DATE') {
+    $date = &Apache::lonnet::EXT("resource.$id.duedate");
+  } else {
+    &Apache::lonxml::error("Unknown date request $type");
+    $date = '';
+  }
+  &Apache::lonxml::debug("found :$date:");
+  if ($date eq '') {
+    $date = "an unknown date"; $passed = 0;
+  } else {
+    if (time < $date) { $passed = 0; } else { $passed = 1; }
+    $date = localtime $date;
+  }
+  &Apache::lonxml::debug("sending back :$date:$passed:");
+  return ($date,$passed);
+}
+
 sub handler {
   my $request=$_[0];
 
-  $Apache::lonxml::debug=1;
+  if ( $ENV{'user.name'} eq 'albertel' ) { $Apache::lonxml::debug=1; }
   
   my (@targets) = &get_target();
 
@@ -69,6 +95,8 @@ sub handler {
   
   &Apache::lonhomework::send_header($request);
   
+  #check if allowed to see
+  
   foreach my $target (@targets) {
     my $file=&Apache::lonnet::filelocation("",$request->uri);
     my $problem=&Apache::lonnet::getfile($file);
@@ -85,7 +113,9 @@ sub handler {
     #ignore error conditions
     my ($temp)=keys %Apache::lonhomework::history ;
     if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); } 
-    
+    if ($target eq 'web' && &Apache::lonnet::symbread() eq '') {
+      $request->print("Vieiwing this problem as not a student, submissions will be ignored.");
+    }
     if ($target eq 'grade') {
       my $resultkey;
       foreach $resultkey (sort keys %Apache::lonhomework::history) {