version 1.117, 2006/05/18 01:08:51
|
version 1.118, 2006/05/30 12:46:09
|
Line 65 use Apache::lonnet;
|
Line 65 use Apache::lonnet;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::longroup; |
use Apache::longroup; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
my $loginscript; # piece of javascript used in two separate instances |
my $loginscript; # piece of javascript used in two separate instances |
my $generalrule; |
my $generalrule; |
Line 1226 END
|
Line 1228 END
|
&Apache::lonnet::critical('put:'. |
&Apache::lonnet::critical('put:'. |
$env{'course.'.$cid.'.domain'}.':'. |
$env{'course.'.$cid.'.domain'}.':'. |
$env{'course.'.$cid.'.num'}.':classlist:'. |
$env{'course.'.$cid.'.num'}.':classlist:'. |
&Apache::lonnet::escape($env{'form.ccuname'}.':'. |
&escape($env{'form.ccuname'}.':'. |
$env{'form.ccdomain'}).'='. |
$env{'form.ccdomain'}).'='. |
&Apache::lonnet::escape($now.':'), |
&escape($now.':'), |
$env{'course.'.$cid.'.home'}).'</b><br />'); |
$env{'course.'.$cid.'.home'}).'</b><br />'); |
} |
} |
} |
} |
Line 1253 END
|
Line 1255 END
|
&Apache::lonnet::critical('put:'. |
&Apache::lonnet::critical('put:'. |
$env{'course.'.$cid.'.domain'}.':'. |
$env{'course.'.$cid.'.domain'}.':'. |
$env{'course.'.$cid.'.num'}.':classlist:'. |
$env{'course.'.$cid.'.num'}.':classlist:'. |
&Apache::lonnet::escape($env{'form.ccuname'}.':'. |
&escape($env{'form.ccuname'}.':'. |
$env{'form.ccdomain'}).'='. |
$env{'form.ccdomain'}).'='. |
&Apache::lonnet::escape($now.':'), |
&escape($now.':'), |
$env{'course.'.$cid.'.home'}).'</b><br />'); |
$env{'course.'.$cid.'.home'}).'</b><br />'); |
} |
} |
} |
} |