--- loncom/interface/slotrequest.pm 2009/10/15 23:53:46 1.104 +++ loncom/interface/slotrequest.pm 2009/10/31 05:39:25 1.105 @@ -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.104 2009/10/15 23:53:46 raeburn Exp $ +# $Id: slotrequest.pm,v 1.105 2009/10/31 05:39:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1026,6 +1026,7 @@ sub show_table { my ($r,$mgr)=@_; my ($cnum,$cdom)=&get_course(); + my $crstype=&Apache::loncommon::course_type($cdom.'_'.$cnum); my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum); if ( (keys(%slots))[0] =~ /^error: 2 /) { undef(%slots); @@ -1085,6 +1086,10 @@ sub show_table { 'uniqueperiod' => 'Period of time slot is unique', 'scheduled' => 'Scheduled Students', 'proctor' => 'List of proctors'); + if ($crstype eq 'Community') { + $show_fields{'startreserve'} = &mt('Time members can start reserving'); + $show_fields{'scheduled'} = &mt('Scheduled Members'); + } my @show_order=('name','description','type','starttime','endtime', 'startreserve','secret','space','ip','symb', 'allowedsections','allowedusers','uniqueperiod', @@ -1429,7 +1434,7 @@ STUFF } sub manage_reservations { - my ($r,$type) = @_; + my ($r,$crstype) = @_; my $navmap = Apache::lonnavmaps::navmap->new(); $r->print('
' .&mt('Instructors may use a reservation system to place restrictions on when and where assignments can be worked on.') @@ -1438,10 +1443,14 @@ sub manage_reservations { .'
' ); if (!defined($navmap)) { - $r->print(''. &mt('Reservation History').'
'); @@ -1632,12 +1647,21 @@ sub show_reservations { my $formname = 'slotlog'; my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + my $crstype = &Apache::loncommon::course_type(); my %log=&Apache::lonnet::dump('nohist_'.$cdom.'_'.$cnum.'_slotlog',$udom,$uname); if ($env{'form.origin'} eq 'aboutme') { - $r->print('