version 1.11, 2003/05/02 19:00:29
|
version 1.12, 2003/09/21 21:40:06
|
Line 36 use Apache::loncommon();
|
Line 36 use Apache::loncommon();
|
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
|
use Apache::lonlocal; |
|
|
############################################################### |
############################################################### |
############################################################### |
############################################################### |
Line 174 sub addcom {
|
Line 175 sub addcom {
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
Line 207 sub handler {
|
Line 208 sub handler {
|
# |
# |
# Normal web stuff |
# Normal web stuff |
# |
# |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print(&header()); |
$r->print(&header()); |
|
|
Line 232 sub handler {
|
Line 233 sub handler {
|
&addcom(%cenv); |
&addcom(%cenv); |
} |
} |
# --- Menu |
# --- Menu |
$r->print('<h3>Key Access</h3>'); |
$r->print('<h3>'.&mt('Key Access').'</h3>'); |
if ($cenv{'keyaccess'} eq 'yes') { |
if ($cenv{'keyaccess'} eq 'yes') { |
$r->print('Access to this course is key controlled.<br /><input type="submit" name="toggle" value="Open Access" />') |
$r->print(&mt('Access to this course is key controlled.'). |
|
'<br /><input type="submit" name="toggle" value="'.&mt('Open Access').'" />') |
} else { |
} else { |
$r->print('Access to this course is open, no access keys.<br /><input type="submit" name="toggle" value="Control Access" />'); |
$r->print(&mt('Access to this course is open, no access keys').'<br /><input type="submit" name="toggle" value="'.&mt('Control Access').'" />'); |
} |
} |
$r->print(<<ENDKEYMENU); |
$r->print(<<ENDKEYMENU); |
<hr /><h3>Generate New Keys</h3> |
<hr /><h3>Generate New Keys</h3> |