[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /homework inputtags.pm
From:       raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2021-09-05 16:27:16
Message-ID: cvsraeburn1630859236 () cvsserver
[Download RAW message or body]

raeburn		Sun Sep  5 16:27:16 2021 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  - Bug 273 "Show Problem Status" in effect = no. Orange background used for
    feedback for following: MISSING_ANSWER, UNIT_INVALID_STUDENT, UNIT_FAIL,
    UNIT_IRRECONCIBLE, UNIT_NOTNEEDED, NO_UNIT (previously was only SIG_FAIL).
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.353 loncom/homework/inputtags.pm:1.354
--- loncom/homework/inputtags.pm:1.353	Sun Sep  5 05:55:50 2021
+++ loncom/homework/inputtags.pm	Sun Sep  5 16:27:16 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.353 2021/09/05 05:55:50 raeburn Exp $
+# $Id: inputtags.pm,v 1.354 2021/09/05 16:27:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1162,7 +1162,11 @@
         if ($target ne 'tex') {
            $message .= \
&Apache::loncommon::help_open_topic('Some_Items_Were_Not_Submitted');  }
-	$css_class=$possible_class{'not_charged_try'};
+        if (&Apache::lonhomework::show_some_problem_status()) {
+            $css_class=$possible_class{'no_charge_warn'};
+        } else {
+            $css_class=$possible_class{'not_charged_try'};
+        }
 	$button = 1;
     } elsif ($award eq 'WRONG_NUMBOXESCHECKED') {
         $message = &mt('Number of boxes checked outside permissible range (either \
too few or too many).'); @@ -1226,21 +1230,37 @@
     } elsif ($award eq 'UNIT_INVALID_STUDENT') {
 	$message = &mt('Unable to interpret units. Computer reads units as \
"[_1]".',&markup_unit($awardmsg,$target));  if ($target ne 'tex') \
                {$message.=&Apache::loncommon::help_open_topic('Physical_Units');} 
-	$css_class=$possible_class{'not_charged_try'};
+        if (&Apache::lonhomework::show_some_problem_status()) {
+            $css_class=$possible_class{'no_charge_warn'};
+        } else {
+            $css_class=$possible_class{'not_charged_try'};
+        }
 	$button=1;
     } elsif ($award eq 'UNIT_FAIL' || $award eq 'UNIT_IRRECONCIBLE') {
 	$message = &mt('Incompatible units. No conversion found between "[_1]" and the \
required units.',&markup_unit($awardmsg,$target));  if ($target ne 'tex') \
                {$message.=&Apache::loncommon::help_open_topic('Physical_Units');} 
-	$css_class=$possible_class{'not_charged_try'};
+        if (&Apache::lonhomework::show_some_problem_status()) {
+            $css_class=$possible_class{'no_charge_warn'};
+        } else {
+            $css_class=$possible_class{'not_charged_try'};
+        }
 	$button=1;
     } elsif ($award eq 'UNIT_NOTNEEDED') {
 	$message = &mt('Only a number required. Computer reads units of \
                "[_1]".',&markup_unit($awardmsg,$target));
-	$css_class=$possible_class{'not_charged_try'};
+        if (&Apache::lonhomework::show_some_problem_status()) {
+            $css_class=$possible_class{'no_charge_warn'};
+        } else {
+            $css_class=$possible_class{'not_charged_try'};
+        }
 	$button=1;
     } elsif ($award eq 'NO_UNIT') {
 	$message = &mt("Units required").'.';
 	if ($target ne 'tex') \
                {$message.=&Apache::loncommon::help_open_topic('Physical_Units')};
-	$css_class=$possible_class{'not_charged_try'};
+        if (&Apache::lonhomework::show_some_problem_status()) {
+            $css_class=$possible_class{'no_charge_warn'};
+        } else {
+            $css_class=$possible_class{'not_charged_try'};
+        }
 	$button=1;
     } elsif ($award eq 'COMMA_FAIL') {
 	$message = &mt("Proper comma separation is required").'.';


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


[prev in list] [next in list] [prev in thread] [next in thread]