--- loncom/interface/slotrequest.pm 2006/02/06 22:42:11 1.45 +++ loncom/interface/slotrequest.pm 2006/02/09 18:04:51 1.47 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler for requesting to have slots added to a students record # -# $Id: slotrequest.pm,v 1.45 2006/02/06 22:42:11 albertel Exp $ +# $Id: slotrequest.pm,v 1.47 2006/02/09 18:04:51 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -694,8 +694,13 @@ sub show_table { 'order' => 'scalar', 'deleted' => 'scalar', ); - &Apache::loncommon::store_course_settings('slotrequest',\%Saveable_Parameters); - &Apache::loncommon::restore_course_settings('slotrequest',\%Saveable_Parameters); + &Apache::loncommon::store_course_settings('slotrequest', + \%Saveable_Parameters); + &Apache::loncommon::restore_course_settings('slotrequest', + \%Saveable_Parameters); + &Apache::grades::init_perm(); + my ($classlist,$section,$fullname)=&Apache::grades::getclasslist('all'); + &Apache::grades::reset_perm(); my %show_fields=&Apache::lonlocal::texthash( 'name' => 'Slot Name', @@ -709,10 +714,11 @@ sub show_table { 'ip' => 'IP or DNS restrictions', 'symb' => 'Resource slot is restricted to.', 'uniqueperiod' => 'Period of time slot is unique', + 'scheduled' => 'Scheduled Students', 'proctor' => 'List of proctors'); my @show_order=('name','description','type','starttime','endtime', 'startreserve','secret','maxspace','ip','symb', - 'uniqueperiod','proctor'); + 'uniqueperiod','scheduled','proctor'); my @show = (exists($env{'form.show'})) ? &Apache::loncommon::get_env_multiple('form.show') : keys(%show_fields); @@ -731,6 +737,16 @@ sub show_table { my $when = (exists($env{'form.when'})) ? $env{'form.when'} : 'now'; + my %stu_display_fields= + &Apache::lonlocal::texthash('username' => 'User name', + 'fullname' => 'Full name', + ); + my @stu_display_order=('fullname','username'); + my @stu_display = + (exists($env{'form.studisplay'})) ? &Apache::loncommon::get_env_multiple('form.studisplay') + : keys(%stu_display_fields); + my %stu_display = map { $_ => 1 } (@stu_display); + my $hide_radio = &Apache::lonhtmlcommon::radio('deleted',$env{'form.deleted'},'hide'); my $show_radio = @@ -741,11 +757,17 @@ sub show_table { $r->print('
'.&mt('Show').' | +'.&mt('Student Display').' | '.&mt('Open').' | '.&mt('Options').' | ||
---|---|---|---|---|---|
'.&Apache::loncommon::multiple_select_form('show',\@show,6,\%show_fields,\@show_order). ' | ++ '.&Apache::loncommon::multiple_select_form('studisplay',\@stu_display, + 6,\%stu_display_fields, + \@stu_display_order).' + | '.&Apache::loncommon::select_form($when,'when',%when_fields). ' | @@ -772,7 +794,6 @@ sub show_table { $r->print(' | '.$linkstart.$which.'">'.$show_fields{$which}.' | '); } } - $r->print('Scheduled Students | $unique | \n"); } - $colspan++;$r->print("$ids | \n\n"); + if (exists($show{'scheduled'})) { + $colspan++;$r->print("$ids | \n\n"); + } if (exists($show{'proctor'})) { $r->print(<