version 1.17, 2005/04/07 06:56:23
|
version 1.19, 2006/04/26 14:52:22
|
Line 41 use Apache::lonlocal;
|
Line 41 use Apache::lonlocal;
|
############################################################### |
############################################################### |
############################################################### |
############################################################### |
sub header { |
sub header { |
my $html=&Apache::lonxml::xmlbegin(); |
my $start_page=&Apache::loncommon::start_page('Access Key Management'); |
my $bodytag=&Apache::loncommon::bodytag('Access Key Management'); |
|
return(<<ENDHEAD); |
return(<<ENDHEAD); |
$html |
$start_page |
<head> |
|
<title>LON-CAPA Access Key Management</title> |
|
</head> |
|
$bodytag |
|
<form method="post" enctype="multipart/form-data" |
<form method="post" enctype="multipart/form-data" |
action="/adm/managekeys" name="keyform"> |
action="/adm/managekeys" name="keyform"> |
ENDHEAD |
ENDHEAD |
Line 228 sub handler {
|
Line 223 sub handler {
|
# --- Actions |
# --- Actions |
if ($env{'form.toggle'}) { |
if ($env{'form.toggle'}) { |
$r->print(&togglekeyaccess(%cenv).'<br />'); |
$r->print(&togglekeyaccess(%cenv).'<br />'); |
%cenv=&Apache::lonnet::coursedescription($env{'form.cid'}); |
%cenv=&Apache::lonnet::coursedescription($env{'form.cid'}, |
|
{'freshen_cache'=> 1}); |
} |
} |
my $batchnumber=''; |
my $batchnumber=''; |
if ($env{'form.genkeys'}) { |
if ($env{'form.genkeys'}) { |
Line 269 Comments/Remarks/Notes/User/Batch Number
|
Line 265 Comments/Remarks/Notes/User/Batch Number
|
<input type="submit" name="listkeys" value="List Keys/Add Comments" /> |
<input type="submit" name="listkeys" value="List Keys/Add Comments" /> |
<input type="submit" name="listkeyscsv" value="CSV List of Keys" /> |
<input type="submit" name="listkeyscsv" value="CSV List of Keys" /> |
ENDKEYMENU |
ENDKEYMENU |
$r->print('</form></body></html>'); |
$r->print('</form>'.&Apache::loncommon::end_page()); |
} |
} |
} else { |
} else { |
# Start page no course id |
# Start page no course id |
Line 283 ENDKEYMENU
|
Line 279 ENDKEYMENU
|
$r->print(&Apache::loncommon::selectcourse_link( |
$r->print(&Apache::loncommon::selectcourse_link( |
'keyform','course','domain')); |
'keyform','course','domain')); |
$r->print('<br /><input type="submit" value="'.&mt('Manage Access Keys').'" />'); |
$r->print('<br /><input type="submit" value="'.&mt('Manage Access Keys').'" />'); |
$r->print('</form></body></html>'); |
$r->print('</form>'.&Apache::loncommon::end_page()); |
} |
} |
return OK; |
return OK; |
} |
} |