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

[raeburn]

raeburn		Mon Dec  9 21:39:48 2024 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - Bug 6907. "Content in a course can be set to be deep-link only".
    Use correct value for linkprot in item hash.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.798 loncom/homework/grades.pm:1.799
--- loncom/homework/grades.pm:1.798	Mon Dec  9 02:46:01 2024
+++ loncom/homework/grades.pm	Mon Dec  9 21:39:48 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.798 2024/12/09 02:46:01 raeburn Exp $
+# $Id: grades.pm,v 1.799 2024/12/09 21:39:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1458,7 +1458,7 @@
                                             'format'   => $scoretype,
                                             'scope'    => $scope,
                                             'clientip' => $pb{'clientip'},
-                                            'linkprot' => $linkprotector,
+                                            'linkprot' => $linkprotector.':'.$linkuri,
                                             'total'    => $total,
                                             'possible' => $possible,
                                             'score'    => $score,
@@ -1836,7 +1836,7 @@
                                         'format'     => $pb{'scoretype'},
                                         'scope'      => $pb{'scope'},
                                         'clientip'   => $pb{'clientip'},
-                                        'linkprot'   => $pb{'linkprotector'},
+                                        'linkprot'   => $pb{'linkprotector'}.':'.$pb{'linkuri'},
                                         'total_s'    => \%total_by_symb,
                                         'possible_s' => \%possible_by_symb,
                         };
@@ -1908,7 +1908,7 @@
                            'format'   => $pb{'scoretype'},
                            'scope'    => $pb{'scope'},
                            'clientip' => $pb{'clientip'},
-                           'linkprot' => $pb{'linkprotector'},
+                           'linkprot' => $pb{'linkprotector'}.':'.$pb{'linkuri'},
                            'total'    => $total,
                            'possible' => $possible,
                            'score'    => $score,