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

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2018-01-04 12:07:54
Message-ID: cvsraeburn1515067674 () cvsserver
[Download RAW message or body]

raeburn		Thu Jan  4 12:07:54 2018 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - Bug 6754 LON-CAPA as LTI Consumer
    - Replace "Answer Displayed" on Course Contents screen if item is an
      External Tool set to gradable with "Grade received" or "Grade available"  
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.538 loncom/interface/lonnavmaps.pm:1.539
--- loncom/interface/lonnavmaps.pm:1.538	Thu Dec 21 03:50:57 2017
+++ loncom/interface/lonnavmaps.pm	Thu Jan  4 12:07:53 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.538 2017/12/21 03:50:57 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.539 2018/01/04 12:07:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -702,7 +702,17 @@
     }
     if (($status == $res->ANSWER_OPEN || $status == $res->PARTIALLY_CORRECT)
 	&& $res->handgrade($part) ne 'yes') {
-        return &Apache::lonhtmlcommon::direct_parm_link(&mt("Answer \
available"),$res->symb(),'answerdate,duedate',$part); +        my $msg = &mt('Answer \
available'); +        my $parmlist = 'answerdate,duedate';
+        if (($res->is_tool) && ($res->is_gradable())) {
+            if (($status == $res->PARTIALLY_CORRECT) && \
($res->parmval('retrypartial',$part))) { +                $msg = &mt('Grade \
received'); +                $parmlist = 'retrypartial';
+            } else {
+                $msg = &mt('Grade available');
+            }
+        }
+        return &Apache::lonhtmlcommon::direct_parm_link($msg,$res->symb(),$parmlist,$part);
  }
     if ($status == $res->EXCUSED) {
         return &mt("Excused by instructor");


_______________________________________________
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]