[LON-CAPA-cvs] cvs: loncom /homework inputtags.pm

[raeburn]

raeburn		Tue Jun 12 22:02:24 2012 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  - Change wording in message displayed to student recording submission, 
    if "Show Problem Status" is no and "due date" is based on a time interval.
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.303 loncom/homework/inputtags.pm:1.304
--- loncom/homework/inputtags.pm:1.303	Fri Jun  8 12:25:54 2012
+++ loncom/homework/inputtags.pm	Tue Jun 12 22:02:24 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.303 2012/06/08 12:25:54 raeburn Exp $
+# $Id: inputtags.pm,v 1.304 2012/06/12 22:02:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1139,7 +1139,17 @@
     if (&Apache::lonhomework::hide_problem_status()
 	&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER'
 	&& &hide_award($award)) {
-	$message = &mt("Answer Submitted: Your final submission will be graded after the due date.");
+        $message = &mt("Answer Submitted: Your final submission will be graded after the due date.");
+        my @interval= &Apache::lonnet::EXT("resource.$part.interval");
+        if ($interval[0] =~ /\d+/) {
+            my $first_access=&Apache::lonnet::get_first_access($interval[1]);
+            if (defined($first_access)) {
+                my $due_date= &Apache::lonnet::EXT("resource.$part.duedate");
+                unless (($due_date) && ($due_date < $first_access + $interval[0])) { 
+                    $message = &mt("Answer Submitted: Your final submission will be graded when the time limit is reached.");
+                }
+            }
+        }
 	$css_class=$possible_class{'no_grade'};
 	$button=1;
     }