[LON-CAPA-cvs] cvs: loncom / CrGenerate.pl

foxr lon-capa-cvs@mail.lon-capa.org
Mon, 05 Jul 2004 11:36:52 -0000


foxr		Mon Jul  5 07:36:52 2004 EDT

  Modified files:              
    /loncom	CrGenerate.pl 
  Log:
  Fix up some stuff to bring it closer to the lonCAPA code standard.
  
  
Index: loncom/CrGenerate.pl
diff -u loncom/CrGenerate.pl:1.7 loncom/CrGenerate.pl:1.8
--- loncom/CrGenerate.pl:1.7	Fri Jul  2 06:19:59 2004
+++ loncom/CrGenerate.pl	Mon Jul  5 07:36:52 2004
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # CrGenerate - Generate a loncapa certificate request.
 #
-# $Id: CrGenerate.pl,v 1.7 2004/07/02 10:19:59 foxr Exp $
+# $Id: CrGenerate.pl,v 1.8 2004/07/05 11:36:52 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -80,7 +80,7 @@
 #    $DEBUG - message is only written if this is true.
 #
 sub Debug {
-    my $msg  = shift;
+    my ($msg)  = @_;
     if($DEBUG) {
 	print STDERR "$msg\n";
     }
@@ -101,7 +101,7 @@
 sub DecodeEmailFromRequest {
     Debug("DecodeEmailFromRequest");
 
-    my $RequestFile = shift;
+    my ($RequestFile) = @_;
     Debug("Request file is called $RequestFile");
 
     # We need to look for the line that has a "/Email=" in it.