--- loncom/interface/lonmanagekeys.pm 2003/05/01 02:12:43 1.6 +++ loncom/interface/lonmanagekeys.pm 2003/05/02 13:00:19 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to manage course access keys # -# $Id: lonmanagekeys.pm,v 1.6 2003/05/01 02:12:43 www Exp $ +# $Id: lonmanagekeys.pm,v 1.8 2003/05/02 13:00:19 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -54,13 +54,30 @@ ENDHEAD # =================================================== Show student list to drop sub show_key_list { - my ($r,$comment,%cenv)=@_; - + my ($r,$comment,$newonly,$checkonly,%cenv)=@_; + $comment=~s/\W/\./g; my %accesskeys=&Apache::lonnet::dump ('accesskeys',$cenv{'domain'},$cenv{'num'}); + $r->print('
Key | Checked Out | Comments/Remarks/Notes | Enter Additional Comments/Remarks/Notes |
---|---|---|---|
No keys have been generated yet. | |||
".$_.' | '.($checkout? + $checkout:'-').' | '.
+ join(' ',split(/\s*\;\s*/,$com)). + ' |