[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm
raeburn
raeburn at source.lon-capa.org
Fri Jun 6 22:26:01 EDT 2014
raeburn Sat Jun 7 02:26:01 2014 EDT
Modified files:
/loncom/interface lonparmset.pm
Log:
- Standard indentiation (4 spaces).
- Change args passed to ¶meter_releasecheck()
- eliminate unused fourth arg: $chostname.
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.543 loncom/interface/lonparmset.pm:1.544
--- loncom/interface/lonparmset.pm:1.543 Wed Jan 15 18:48:35 2014
+++ loncom/interface/lonparmset.pm Sat Jun 7 02:26:01 2014
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.543 2014/01/15 18:48:35 bisitz Exp $
+# $Id: lonparmset.pm,v 1.544 2014/06/07 02:26:01 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2205,9 +2205,9 @@
$name = $1;
my $val = $values[$i];
if ($name eq 'examcode') {
- if (&Apache::lonnet::validCODE($values[$i])) {
- $val = 'valid';
- }
+ if (&Apache::lonnet::validCODE($values[$i])) {
+ $val = 'valid';
+ }
}
$needsrelease =
$Apache::lonnet::needsrelease{"parameter:$name:$val"};
@@ -2218,7 +2218,6 @@
}
$needsnewer = ¶meter_releasecheck($name,$val,
$needsrelease,
- $chostname,
$cmajor,$cminor);
}
}
@@ -2875,8 +2874,7 @@
}
$needsnewer = ¶meter_releasecheck($name,$data,
$needsrelease,
- $chostname,$cmajor,
- $cminor);
+ $cmajor,$cminor);
}
if ($needsnewer) {
$r->print('<br />'.&oldversion_warning($name,$data,
@@ -3230,8 +3228,7 @@
$got_chostname = 1;
}
my $needsnewer=¶meter_releasecheck($name,$parmval,$needsrelease,
- $chostname,$cmajor,
- $cminor);
+ $cmajor,$cminor);
if ($needsnewer) {
$skiptype{$parmval} = 1;
}
@@ -4699,7 +4696,7 @@
}
sub parameter_releasecheck {
- my ($name,$value,$needsrelease,$chostname,$cmajor,$cminor) = @_;
+ my ($name,$value,$needsrelease,$cmajor,$cminor) = @_;
my $needsnewer;
my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
if (($cmajor < $needsmajor) ||
More information about the LON-CAPA-cvs
mailing list