version 1.17, 2001/02/26 21:37:52
|
version 1.19, 2001/04/11 13:37:39
|
Line 11
|
Line 11
|
# 2/8 Gerd Kortemeyer |
# 2/8 Gerd Kortemeyer |
# Dec 00 Scott Harrison |
# Dec 00 Scott Harrison |
# 12/23 Gerd Kortemeyer |
# 12/23 Gerd Kortemeyer |
# 02/12/2001 Scott Harrison |
# 02/12/2001, 04/11/2001 Scott Harrison |
|
|
use IO::File; |
use IO::File; |
use IO::Socket; |
use IO::Socket; |
Line 56 ENDERROUT
|
Line 56 ENDERROUT
|
$perlvar{$varname}=$varvalue; |
$perlvar{$varname}=$varvalue; |
} |
} |
} |
} |
|
delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed |
|
delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed |
} |
} |
|
|
# --------------------------------------- Make sure that LON-CAPA is configured |
# --------------------------------------- Make sure that LON-CAPA is configured |
Line 278 print $fh "</pre>";
|
Line 280 print $fh "</pre>";
|
# |
# |
# Do not run for now |
# Do not run for now |
# |
# |
if ($perlvar{'lonRole'} eq "library" && 1==0) { |
if ($perlvar{'lonRole'} eq "library") { |
|
|
print $fh '<hr><a name="lonsql"><h2>lonsql</h2><h3>Log</h3><pre>'; |
print $fh '<hr><a name="lonsql"><h2>lonsql</h2><h3>Log</h3><pre>'; |
|
|