![[BACK]](/icons/back.gif){kind=icon}
Return to lonlocal.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to lonlocal.pm CVS log | Up to [LON-CAPA] / loncom |
| version 1.5, 2004/06/17 09:27:23 | version 1.7, 2004/09/17 03:00:42 |
|---|---|
| Line 58 my $lastError; # Reason for last failu | Line 58 my $lastError; # Reason for last failu |
| # Debugging: | # Debugging: |
| my $DEBUG = 1; | my $DEBUG = 0; |
| sub Debug { | sub Debug { |
| my $msg = shift; | my $msg = shift; |
| print STDERR "$msg\n"; | if ($DEBUG) { print STDERR "$msg\n"; } |
| } | } |
| # Initialization | # Initialization |