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

raeburn raeburn at source.lon-capa.org
Tue Dec 3 18:20:59 EST 2024


raeburn		Tue Dec  3 23:20:59 2024 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - Coding style.
    - Change scalar name from $key to $skey to distinguish from another scalar 
      in a nearby foreach loop which is already called $key.  
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.384 loncom/homework/lonhomework.pm:1.385
--- loncom/homework/lonhomework.pm:1.384	Thu Nov 21 07:26:01 2024
+++ loncom/homework/lonhomework.pm	Tue Dec  3 23:20:59 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.384 2024/11/21 07:26:01 raeburn Exp $
+# $Id: lonhomework.pm,v 1.385 2024/12/03 23:20:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2026,7 +2026,7 @@
                         if ($sent) {
                             if ($code == 200) {
                                 if ($item->{'linkprot'}) {
-                                    my $key = join("\0",($linkuri,$linkprotector,$scope));
+                                    my $skey = join("\0",($linkuri,$linkprotector,$scope));
                                     my $namespace = $cdom.'_'.$cnum.'_lp_passback';
                                     my $store = {
                                                  'score' => $score,
@@ -2046,7 +2046,7 @@
                                     }
                                     $value=~s/\&$//;
                                     &Apache::lonnet::courselog(&escape($linkuri).':'.$uname.':'.$udom.':EXPORT:'.$value);
-                                    &Apache::lonnet::cstore({'score' => $score},$key,$namespace,$udom,$uname,'',$ip,1);
+                                    &Apache::lonnet::cstore({'score' => $score},$skey,$namespace,$udom,$uname,'',$ip,1);
                                 }
                             } else {
                                 if ($item->{'linkprot'}) {




More information about the LON-CAPA-cvs mailing list