Diff for /loncom/CrGenerate.pl between versions 1.7 and 1.8

version 1.7, 2004/07/02 10:19:59 version 1.8, 2004/07/05 11:36:52
Line 80  my $DEBUG = 0;   # 1 for on, 0 for off. Line 80  my $DEBUG = 0;   # 1 for on, 0 for off.
 #    $DEBUG - message is only written if this is true.  #    $DEBUG - message is only written if this is true.
 #  #
 sub Debug {  sub Debug {
     my $msg  = shift;      my ($msg)  = @_;
     if($DEBUG) {      if($DEBUG) {
  print STDERR "$msg\n";   print STDERR "$msg\n";
     }      }
Line 101  sub Debug { Line 101  sub Debug {
 sub DecodeEmailFromRequest {  sub DecodeEmailFromRequest {
     Debug("DecodeEmailFromRequest");      Debug("DecodeEmailFromRequest");
   
     my $RequestFile = shift;      my ($RequestFile) = @_;
     Debug("Request file is called $RequestFile");      Debug("Request file is called $RequestFile");
   
     # We need to look for the line that has a "/Email=" in it.      # We need to look for the line that has a "/Email=" in it.

Removed from v.1.7  
changed lines
  Added in v.1.8


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>