[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