--- loncom/CrGenerate.pl	2004/07/02 10:19:59	1.7
+++ loncom/CrGenerate.pl	2004/07/05 11:36:52	1.8
@@ -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 @@ my $DEBUG = 0;			# 1 for on, 0 for off.
 #    $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 Debug {
 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.