[BACK]Return to slotrequest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/slotrequest.pm between versions 1.128 and 1.131

version 1.128, 2015/09/25 16:13:00 version 1.131, 2015/10/05 02:35:45
Line 261  function uncheckSlotRadio() { Line 261  function uncheckSlotRadio() {
     }      }
 }  }
   
 function toggleSlotMap(maprownum) {  function toggleSlotMap(maprownum,rownum) {
     if (document.getElementById('arrow'+maprownum)) {      if (document.getElementById('arrow'+maprownum)) {
         var img = document.getElementById('arrow'+maprownum);          var img = document.getElementById('arrow'+maprownum);
         var rowdisplay;          var rowdisplay;
Line 278  function toggleSlotMap(maprownum) { Line 278  function toggleSlotMap(maprownum) {
         var resrows;          var resrows;
         var maptext;          var maptext;
         if (document.getElementsByClassName) {          if (document.getElementsByClassName) {
             resrows = document.getElementsByClassName('LC_slotmaprow_'+maprownum);              resrows = document.getElementsByClassName('LC_slotresrow_'+maprownum);
             maptext = document.getElementsByClassName('LC_slotmaptext_'+maprownum);              maptext = document.getElementsByClassName('LC_slotmaptext_'+maprownum);
         } else {          } else {
             resrows = getElementsByClassName(document.body,'LC_slotmaprow_'+maprownum);              resrows = getElementsByClassName(document.body,'LC_slotresrow_'+maprownum);
             maptext = getElementsByClassName(document.body,'LC_slotmaptext_'+maprownum);              maptext = getElementsByClassName(document.body,'LC_slotmaptext_'+maprownum);
         }          }
           if (maptext.length) {
               for (var i=0; i<maptext.length; i++) {
                   maptext[i].style.display = celldisplay;
               }
           }
         if (resrows.length) {          if (resrows.length) {
              var mapbgidx = 0;
              var rowclasses = ['LC_even_row','LC_odd_row'];
              var mapbgClass = 'LC_even_row';
              var regExpBg = /LC_odd_row/i;
              if (rowdisplay == 'table-row') {
                   if (document.getElementById('LC_slotmaprow_'+rownum)) {
                       mapbgClass = document.getElementById('LC_slotmaprow_'+rownum).className;
                       if (regExpBg.test(mapbgClass)) {
                           mapbgidx = 1;
                       }
                   }
               }
             for (var i=0; i<resrows.length; i++) {              for (var i=0; i<resrows.length; i++) {
                 resrows[i].style.display = rowdisplay;                     resrows[i].style.display = rowdisplay;
                   if (rowdisplay == 'table-row') {
                       mapbgidx ++;        
                       var bgcolnew = mapbgidx % 2;
                       var bgcolold = (mapbgidx+1) % 2;
                       var k = i+parseInt(rownum)+1; 
                       if (document.getElementById('LC_slotresrow_'+k)) {
                           document.getElementById('LC_slotresrow_'+k).className = document.getElementById('LC_slotresrow_'+k).className.replace(rowclasses[bgcolold],rowclasses[bgcolnew]);
                       }
                   }
             }              }
         }              if (document.getElementById('LC_slot_reservations')) {
         if (maptext.length) {                   var numrowsOdd = resrows.length % 2;
             for (var i=0; i<maptext.length; i++) {                  if (numrowsOdd) {
                 maptext[i].style.display = celldisplay;                      var lastbgClass = 'LC_even_row';
                       var idx = 0;
                       var lastresnum = parseInt(rownum) + resrows.length; 
                       if (rowdisplay == 'none') {
                           lastresnum = rownum;
                           if (document.getElementById('LC_slotmaprow_'+rownum)) {
                               lastbgClass = document.getElementById('LC_slotmaprow_'+rownum).className;
                           }
                       } else {
                           lastresnum = parseInt(rownum) + resrows.length;
                           if (document.getElementById('LC_slotresrow_'+lastresnum)) {
                               lastbgClass = document.getElementById('LC_slotresrow_'+lastresnum).className;
                           }
                       }
                       if (regExpBg.test(lastbgClass)) {
                           idx = 1;
                       }
                       var table = document.getElementById('LC_slot_reservations');
                       if ((table.rows.length) && (table.rows.length >= lastresnum)) {
                           for (var i=lastresnum; i<table.rows.length; i++) {
                               if (table.rows[i].style.display != 'none') {
                                   idx ++;
                                   var bgcolnew = idx % 2;
                                   var bgcolold = (idx+1) % 2;  
                                   j = i+1;
                                   if (document.getElementById('LC_slotmaprow_'+j)) {
                                       document.getElementById('LC_slotmaprow_'+j).className = rowclasses[bgcolnew];
                                   } else {
                                       if (document.getElementById('LC_slotresrow_'+j)) {
                                           document.getElementById('LC_slotresrow_'+j).className = document.getElementById('LC_slotresrow_'+j).className.replace(rowclasses[bgcolold],rowclasses[bgcolnew]);
                                       }
                                   }
                               }
                           }
                       }
                   }
             }              }
         }          }
     }      }
Line 1053  sub allowed_slot { Line 1114  sub allowed_slot {
     # not allowed for this resource      # not allowed for this resource
     if (defined($slot->{'symb'})) {      if (defined($slot->{'symb'})) {
         my $exclude = 1;          my $exclude = 1;
         my ($slotmap,$slotid,$sloturl) = &Apache::lonnet::decode_symb($slot->{'symb'});          my @symbs;
         if ($sloturl=~/\.(page|sequence)$/) {          if ($slot->{'symb'} =~ /,/) {
             my ($map,$id,$url) = &Apache::lonnet::decode_symb($symb);              @symbs = split(/\s*,\s*/,$slot->{'symb'});
             if (($map ne '') && ($map eq $slotmap)) {          } else {
               @symbs = ($slot->{'symb'});
           }
           my ($map,$id,$url) = &Apache::lonnet::decode_symb($symb);
           foreach my $reqsymb (@symbs) {
               next if ($reqsymb eq '');
               my ($slotmap,$slotid,$sloturl) = &Apache::lonnet::decode_symb($reqsymb);
               if ($sloturl=~/\.(page|sequence)$/) {
                   if (($map ne '') && ($map eq $sloturl)) {
                       $exclude = 0;
                       last;
                   }
               } elsif ($reqsymb eq $symb) {
                 $exclude = 0;                  $exclude = 0;
                   last;
             }              }
         } elsif ($slot->{'symb'} eq $symb) {  
             $exclude = 0;  
         }          }
         if ($exclude) {          if ($exclude) {
             unless ((ref($toskip) eq 'HASH') && ($toskip->{'symb'})) {              unless ((ref($toskip) eq 'HASH') && ($toskip->{'symb'})) {
Line 1417  sub show_table { Line 1489  sub show_table {
      'secret'          => 'Secret Word',       'secret'          => 'Secret Word',
      'space'           => '# of students/max',       'space'           => '# of students/max',
      'ip'              => 'IP or DNS restrictions',       'ip'              => 'IP or DNS restrictions',
      'symb'            => 'Resource/Map slot is restricted to.',       'symb'            => 'Resource(s)/Map(s) slot is restricted to.',
      'allowedsections' => 'Sections slot is restricted to.',       'allowedsections' => 'Sections slot is restricted to.',
      'allowedusers'    => 'Users slot is restricted to.',       'allowedusers'    => 'Users slot is restricted to.',
      'uniqueperiod'    => 'Period of time slot is unique',       'uniqueperiod'    => 'Period of time slot is unique',
      'scheduled'       => 'Scheduled Students',       'scheduled'       => 'Scheduled Students',
      'proctor'         => 'List of proctors');       'proctor'         => 'List of proctors',
        'iptied'          => 'Unique IP each student',);
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         $show_fields{'startreserve'} = &mt('Time members can start reserving');          $show_fields{'startreserve'} = &mt('Time members can start reserving');
         $show_fields{'endreserve'} = &mt('Time members can no longer reserve');          $show_fields{'endreserve'} = &mt('Time members can no longer reserve');
Line 1430  sub show_table { Line 1503  sub show_table {
     }      }
     my @show_order=('name','description','type','starttime','endtime',      my @show_order=('name','description','type','starttime','endtime',
     'startreserve','endreserve','reservationmsg','secret','space',      'startreserve','endreserve','reservationmsg','secret','space',
     'ip','symb','allowedsections','allowedusers','uniqueperiod',      'ip','iptied','symb','allowedsections','allowedusers','uniqueperiod',
     'scheduled','proctor');      'scheduled','proctor');
     my @show =       my @show = 
  (exists($env{'form.show'})) ? &Apache::loncommon::get_env_multiple('form.show')   (exists($env{'form.show'})) ? &Apache::loncommon::get_env_multiple('form.show')
Line 1632  sub show_table { Line 1705  sub show_table {
  localtime($slots{$slot}{'uniqueperiod'}[1]);   localtime($slots{$slot}{'uniqueperiod'}[1]);
  }   }
   
  my $title;   my @titles;
  if (exists($slots{$slot}{'symb'})) {   if (exists($slots{$slot}{'symb'})) {
     my (undef,undef,$res)=              my @symbs;
  &Apache::lonnet::decode_symb($slots{$slot}{'symb'});              if ($slots{$slot}{'symb'} =~ /,/) {
     $res =   &Apache::lonnet::clutter($res);                  @symbs = split(/\s*,\s*/,$slots{$slot}{'symb'});
     $title = &Apache::lonnet::gettitle($slots{$slot}{'symb'});              } else {
     $title='<a href="'.$res.'?symb='.$slots{$slot}{'symb'}.'">'.$title.'</a>';                  @symbs = ($slots{$slot}{'symb'});
               }
               foreach my $reqsymb (@symbs) {
           my (undef,undef,$res) =
       &Apache::lonnet::decode_symb($reqsymb);
           $res = &Apache::lonnet::clutter($res);
           my $title = &Apache::lonnet::gettitle($reqsymb);
           push(@titles,'<a href="'.$res.'?symb='.$reqsymb.'">'.$title.'</a>');
               }
  }   }
   
  my $allowedsections;   my $allowedsections;
Line 1754  LOGLINK Line 1835  LOGLINK
  if (exists($show{'ip'})) {   if (exists($show{'ip'})) {
     $colspan++;$r->print("<td>$slots{$slot}{'ip'}</td>\n");      $colspan++;$r->print("<td>$slots{$slot}{'ip'}</td>\n");
  }   }
           if (exists($show{'iptied'})) {
               $colspan++;
               if ($slots{$slot}{'iptied'} eq 'yes') {
                   $r->print('<td>'.&mt('Yes')."</td>\n");
               } elsif ($slots{$slot}{'iptied'} eq 'answer') {
                   $r->print('<td>'.&mt('Yes, including post-answer date')."</td>\n");
               } else {
                   $r->print('<td>'.&mt('No')."</td>\n");
               }
           }
  if (exists($show{'symb'})) {   if (exists($show{'symb'})) {
     $colspan++;$r->print("<td>$title</td>\n");      $colspan++;$r->print("<td>".join('<br />',@titles)."</td>\n");
  }   }
  if (exists($show{'allowedsections'})) {   if (exists($show{'allowedsections'})) {
     $colspan++;$r->print("<td>$allowedsections</td>\n");      $colspan++;$r->print("<td>$allowedsections</td>\n");
Line 1816  sub manage_reservations { Line 1907  sub manage_reservations {
         return;          return;
     }      }
     my (%parent,%shownparent,%container,%container_title,%contents);      my (%parent,%shownparent,%container,%container_title,%contents);
     my ($depth,$count,$reservable,$lastcontainer,$rownum) = (0,0,0,0,0);      my ($depth,$count,$reservable,$lastcontainer,$rownum,$shown) = (0,0,0,0,0,0);
     my @backgrounds = ("LC_odd_row","LC_even_row");      my @backgrounds = ("LC_odd_row","LC_even_row");
     my $numcolors = scalar(@backgrounds);      my $numcolors = scalar(@backgrounds);
     my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace_21.gif");      my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace_21.gif");
     my $slotheader = '<p>'.      my $slotheader = '<p>'.
                  &mt('Your reservation status for any such assignments is listed below:').                   &mt('Your reservation status for any such assignments is listed below:').
                  '</p>'.                   '</p>'.
                  '<table class="LC_data_table LC_tableOfContent">'."\n";                   '<table class="LC_data_table LC_tableOfContent" id="LC_slot_reservations">'."\n";
     my $shownheader = 0;      my $shownheader = 0;
     my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);      my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
     my (@ordered,%output,$mapitem,$got_map_slot,$currmapoutput,$mapnum);      my (@ordered,%output,$mapitem,$got_map_slot,$currmapoutput,$mapnum);
     $mapnum = 0;      $mapnum = 0;
       $shown = 0;
     while (my $resource = $it->next()) {      while (my $resource = $it->next()) {
         if ($resource == $it->BEGIN_MAP()) {          if ($resource == $it->BEGIN_MAP()) {
             @ordered=();  
             undef(%output);  
             $currmapoutput = '';  
             $got_map_slot = '';  
             $mapitem = '';  
             $depth++;              $depth++;
             $parent{$depth} = $lastcontainer;              $parent{$depth} = $lastcontainer;
         }          }
Line 1881  sub manage_reservations { Line 1968  sub manage_reservations {
                                     '</span></td>';                                      '</span></td>';
                     }                      }
                 }                  }
                   my $counter = 0;
                 foreach my $symb (@ordered) {                  foreach my $symb (@ordered) {
                     if (ref($output{$symb}) eq 'HASH') {                      if (ref($output{$symb}) eq 'HASH') {
                         my $bgcolor = $backgrounds[$output{$symb}{'rownum'} % $numcolors];                          $counter ++;
                           my $bgcolor = $backgrounds[($output{$symb}{'shown'} + $counter) % $numcolors];
                         $currmapoutput .= $output{$symb}{'header'}.                          $currmapoutput .= $output{$symb}{'header'}.
                                           '<tr class="'.$bgcolor.' LC_slotmaprow_'.$output{$symb}{'mapnum'}.'"'.                                            '<tr class="'.$bgcolor.' LC_slotresrow_'.$output{$symb}{'mapnum'}.'"'.
                                           ' style="display:none">'.$output{$symb}{'info'}.                                            ' style="display:none" id="LC_slotresrow_'.$output{$symb}{'rownum'}.'">'.
                                             $output{$symb}{'info'}.
                                           $output{$symb}{'data'}.'</tr>'."\n";                                            $output{$symb}{'data'}.'</tr>'."\n";
                     }                      }
                 }                  }
             } else {              } else {
                   my $counter = 0;
                 foreach my $symb (@ordered) {                  foreach my $symb (@ordered) {
                     if (ref($output{$symb}) eq 'HASH') {                      if (ref($output{$symb}) eq 'HASH') {
                         my $bgcolor = $backgrounds[$output{$symb}{'rownum'} % $numcolors];                          $counter ++;
                           my $bgcolor = $backgrounds[($output{$symb}{'shown'} + $counter) % $numcolors];
                         $currmapoutput .= $output{$symb}{'header'}.                          $currmapoutput .= $output{$symb}{'header'}.
                                           '<tr class="'.$bgcolor.' LC_slotmaprow_'.$output{$symb}{'mapnum'}.'"'.                                            '<tr class="'.$bgcolor.' LC_slotresrow_'.$output{$symb}{'mapnum'}.'"'.
                                           ' style="display:table-row">'.$output{$symb}{'info'}.                                            ' style="display:table-row" id="LC_slotresrow_'.$output{$symb}{'rownum'}.'">'.
                                             $output{$symb}{'info'}.
                                           $output{$symb}{'data'}.'</tr>'."\n";                                            $output{$symb}{'data'}.'</tr>'."\n";
                           $shown ++;
                     }                      }
                 }                  }
             }              }
Line 1910  sub manage_reservations { Line 2004  sub manage_reservations {
                 }                  }
             }              }
             $r->print($mapitem.$currmapoutput);              $r->print($mapitem.$currmapoutput);
               @ordered=();
               undef(%output);
               $currmapoutput = '';
               $got_map_slot = '';
               $mapitem = '';
         }          }
         if (ref($resource)) {          if (ref($resource)) {
             my $symb = $resource->symb();              my $symb = $resource->symb();
Line 2003  sub manage_reservations { Line 2102  sub manage_reservations {
                     for (my $i=0; $i<@maprows; $i++) {                      for (my $i=0; $i<@maprows; $i++) {
                         $mapnum ++;                          $mapnum ++;
                         $rownum ++;                          $rownum ++;
                         my $bgcolor = $backgrounds[$rownum % $numcolors];                          $shown ++;
                           my $bgcolor = $backgrounds[$shown % $numcolors];
                         if (!$shownheader) {                          if (!$shownheader) {
                             $mapitem .= $slotheader;                              $mapitem .= $slotheader;
                             $shownheader = 1;                              $shownheader = 1;
                         }                          }
                         if (ref($maprows[$i]) eq 'ARRAY') {                          if (ref($maprows[$i]) eq 'ARRAY') {
                             if ($i < scalar(@maprows)-1) {                              if ($i < scalar(@maprows)-1) {
                                 $mapitem .= '<tr class="'.$bgcolor.'"><td>'.join('',@{$maprows[$i]}).'</td>'.                                  $mapitem .= '<tr class="'.$bgcolor.'" id="LC_slotmaprow_'.$rownum.'">'.
                                               '<td>'.join('',@{$maprows[$i]}).'</td>'.
                                             '<td colspan="2">&nbsp;</td></tr>'."\n";                                              '<td colspan="2">&nbsp;</td></tr>'."\n";
                             } else {                              } else {
                                 $mapitem .=                                   $mapitem .= 
                                    '<tr class="'.$bgcolor.'"><td>'.$maprows[$i][0].                                     '<tr class="'.$bgcolor.'" id="LC_slotmaprow_'.$rownum.'">'.
                                      '<td>'.$maprows[$i][0].
                                    '<img src="/adm/lonIcons/arrow.open.gif" id="arrow'.$mapnum.'" '.                                     '<img src="/adm/lonIcons/arrow.open.gif" id="arrow'.$mapnum.'" '.
                                    'alt="arrow" onmouseover="this.style.cursor=\'pointer\'" '.                                     'alt="arrow" onmouseover="this.style.cursor=\'pointer\'" '.
                                    'onclick="'."toggleSlotMap('$mapnum');".'" />'.                                     'onclick="'."toggleSlotMap('$mapnum','$rownum');".'" />'.
                                    $maprows[$i][1].('&nbsp;' x6).'</td>'."\n";                                     $maprows[$i][1].('&nbsp;' x6).'</td>'."\n";
                             }                              }
                         }                          }
Line 2026  sub manage_reservations { Line 2128  sub manage_reservations {
                 }                  }
                 $rownum ++;                  $rownum ++;
                 $output{$symb}{'rownum'} = $rownum;                  $output{$symb}{'rownum'} = $rownum;
                   $output{$symb}{'shown'} = $shown;
                 if (!$shownheader) {                  if (!$shownheader) {
                     $output{$symb}{'header'} = $slotheader;                      $output{$symb}{'header'} = $slotheader;
                     $shownheader = 1;                      $shownheader = 1;
Line 2113  sub slot_chooser { Line 2216  sub slot_chooser {
                 foreach my $slot (@{$allavailable}) {                  foreach my $slot (@{$allavailable}) {
                     # not allowed for this resource                      # not allowed for this resource
                     if (ref($slots->{$slot}) eq 'HASH') {                      if (ref($slots->{$slot}) eq 'HASH') {
                         if ((defined($slots->{$slot}->{'symb'})) &&                          if ($slots->{$slot}->{'symb'} ne '') {
                             ($slots->{$slot}->{'symb'} ne $symb)) {                              my ($map,$id,$url) = &Apache::lonnet::decode_symb($symb);
                             next;                              my $exclude = 1;
                               my @reqsymbs = split(/\s*,\s*/,$slots->{$slot}->{'symb'});
                               if (@reqsymbs) {
                                   if (grep(/^\Q$symb\E$/,@reqsymbs)) {
                                       $exclude = 0;
                                   } else {
                                       foreach my $reqsymb (@reqsymbs) {
                                           my (undef,undef,$sloturl) = &Apache::lonnet::decode_symb($reqsymb);
                                           if ($sloturl=~/\.(page|sequence)$/) {
                                               if (($map ne '') && ($map eq $sloturl)) {
                                                   $exclude = 0;
                                                   last;
                                               }
                                           }
                                       }
                                   }
                                   next if ($exclude);   
                               }
                         }                          }
                     }                      }
                     push(@available,$slot);                      push(@available,$slot);
Line 2843  sub csvupload_fields { Line 2963  sub csvupload_fields {
             ['endreserve','Reservation End Time'],              ['endreserve','Reservation End Time'],
             ['reservationmsg','Message when reservation changed'],              ['reservationmsg','Message when reservation changed'],
     ['ip','IP or DNS restriction'],      ['ip','IP or DNS restriction'],
               ['iptied','Unique IP each student'],
     ['proctor','List of proctor ids'],      ['proctor','List of proctor ids'],
     ['description','Slot Description'],      ['description','Slot Description'],
     ['maxspace','Maximum number of reservations'],      ['maxspace','Maximum number of reservations'],
     ['symb','Resource/Map Restriction'],      ['symb','Resource(s)/Map(s) Restriction'],
     ['uniqueperiod','Date range of slot exclusion'],      ['uniqueperiod','Date range of slot exclusion'],
     ['secret','Secret word proctor uses to validate'],      ['secret','Secret word proctor uses to validate'],
     ['allowedsections','Sections slot is restricted to'],      ['allowedsections','Sections slot is restricted to'],
Line 2953  sub csv_upload_assign { Line 3074  sub csv_upload_assign {
  $slot{$key}=$entries{$fields{$key}};   $slot{$key}=$entries{$fields{$key}};
     }      }
  }   }
           if ($entries{$fields{'iptied'}} =~ /^\s*(yes|1)\s*$/i) {
               $slot{'iptied'}='yes'; 
           } elsif ($entries{$fields{'iptied'}} =~ /^\s*answer\s*$/i) {
               $slot{'iptied'}='answer';
           }
         if ($entries{$fields{'allowedusers'}}) {          if ($entries{$fields{'allowedusers'}}) {
             $entries{$fields{'allowedusers'}} =~ s/^\s+//;              $entries{$fields{'allowedusers'}} =~ s/^\s+//;
             $entries{$fields{'allowedusers'}} =~ s/\s+$//;              $entries{$fields{'allowedusers'}} =~ s/\s+$//;
Line 3175  sub handler { Line 3301  sub handler {
  my ($status) = &Apache::lonhomework::check_slot_access('0',$type);   my ($status) = &Apache::lonhomework::check_slot_access('0',$type);
  if ($status eq 'CAN_ANSWER' ||   if ($status eq 'CAN_ANSWER' ||
     $status eq 'NEEDS_CHECKIN' ||      $status eq 'NEEDS_CHECKIN' ||
     $status eq 'WAITING_FOR_GRADE') {      $status eq 'WAITING_FOR_GRADE' ||
               $status eq 'NEED_DIFFERENT_IP') {
     &fail($r,'not_allowed');      &fail($r,'not_allowed');
     return OK;      return OK;
  }   }
Removed from v.1.128  
changed lines
  Added in v.1.131

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>