version 1.17, 2005/04/07 06:56:23
|
version 1.21, 2006/12/05 02:55:53
|
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 198 sub handler {
|
Line 193 sub handler {
|
($cenv{'domain'},$cenv{'num'})=split(/\_/,$env{'form.cid'}); |
($cenv{'domain'},$cenv{'num'})=split(/\_/,$env{'form.cid'}); |
$keytype='auth'; |
$keytype='auth'; |
} elsif ($cenv{'keyauth'}) { |
} elsif ($cenv{'keyauth'}) { |
($cenv{'num'},$cenv{'domain'})=split(/\W/,$cenv{'keyauth'}); |
($cenv{'num'},$cenv{'domain'})=split(/:/,$cenv{'keyauth'}); |
$keytype='auth'; |
$keytype='auth'; |
} else { |
} else { |
$keytype='course'; |
$keytype='course'; |
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 281 ENDKEYMENU
|
Line 277 ENDKEYMENU
|
$r->print(&mt('Domain').': '.&Apache::loncommon::select_dom_form( |
$r->print(&mt('Domain').': '.&Apache::loncommon::select_dom_form( |
$env{'request.role.domain'},'domain')); |
$env{'request.role.domain'},'domain')); |
$r->print(&Apache::loncommon::selectcourse_link( |
$r->print(&Apache::loncommon::selectcourse_link( |
'keyform','course','domain')); |
'keyform','course','domain', |
|
undef,undef,undef,'Course')); |
$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; |
} |
} |