[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[albertel]

albertel		Thu Apr 13 17:32:23 2006 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - style police
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.284 loncom/interface/lonparmset.pm:1.285
--- loncom/interface/lonparmset.pm:1.284	Thu Apr 13 16:54:35 2006
+++ loncom/interface/lonparmset.pm	Thu Apr 13 17:32:23 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.284 2006/04/13 20:54:35 www Exp $
+# $Id: lonparmset.pm,v 1.285 2006/04/13 21:32:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -396,24 +396,26 @@
 
 {
     my $logid;
-    sub logparmset {
+    sub log_parmset {
 	my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
 	$logid++;
-	my $id=time.'00000'.$$.'00000'.$logid;
-	&Apache::lonnet::put('parameterlog',{
-			     $id.'_exe_uname' => $env{'user.name'},
-			     $id.'_exe_udom' => $env{'user.domain'},
-			     $id.'_exe_time' => time,
-			     $id.'_exe_ip' => $ENV{'REMOTE_ADDR'},
-			     $id.'_symb' => $symb,
-                             $id.'_spnam' => $spnam,
-                             $id.'_snum' => $snum,
-			     $id.'_nval' => $nval,
-			     $id.'_ntype' => $ntype,
-                             $id.'_uname' => $uname,
-			     $id.'_udom' => $udom,
-			     $id.'_csec' => $csec,
-			     $id.'_cgroup' => $cgroup},
+	my $id=time().'00000'.$$.'00000'.$logid;
+	&Apache::lonnet::put('parameterlog',
+			     {
+				 $id.'_exe_uname' => $env{'user.name'},
+				 $id.'_exe_udom'  => $env{'user.domain'},
+				 $id.'_exe_time'  => time(),
+				 $id.'_exe_ip'    => $ENV{'REMOTE_ADDR'},
+				 $id.'_symb'      => $symb,
+				 $id.'_spnam'     => $spnam,
+				 $id.'_snum'      => $snum,
+				 $id.'_nval'      => $nval,
+				 $id.'_ntype'     => $ntype,
+				 $id.'_uname'     => $uname,
+				 $id.'_udom'      => $udom,
+				 $id.'_csec'      => $csec,
+				 $id.'_cgroup'    => $cgroup
+			     },
 			     $env{'course.'.$env{'request.course.id'}.'.domain'},
 			     $env{'course.'.$env{'request.course.id'}.'.num'}
 			     );
@@ -423,7 +425,7 @@
 sub storeparm_by_symb_inner {
 # ---------------------------------------------------------- Get symb, map, etc
     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
-    &logparmset(@_);
+    &log_parmset(@_);
 # ---------------------------------------------------------- Construct prefixes
     $spnam=~s/\_([^\_]+)$/\.$1/;
     my $map=(&Apache::lonnet::decode_symb($symb))[0];    
@@ -3314,7 +3316,7 @@
     return;
 }
 
-sub parmchangelog {
+sub parm_change_log {
     my ($r)=@_;
     &startpage($r);
     $r->print(&Apache::loncommon::end_page());
@@ -3415,7 +3417,7 @@
         } elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
 						    text=>"Parameter Change Log and Course Blog Posting"});
-	    &parmchangelog($r);
+	    &parm_change_log($r);
 	}       
     } else {
 # ----------------------------- Not in a course, or not allowed to modify parms