[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 &parameter_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 = &parameter_releasecheck($name,$val,
                                                           $needsrelease,
-                                                          $chostname,
                                                           $cmajor,$cminor);
                 }
             }
@@ -2875,8 +2874,7 @@
                     }
                     $needsnewer = &parameter_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=&parameter_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