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

Diff for /loncom/interface/slotrequest.pm between versions 1.127 and 1.130

version 1.127, 2015/09/25 02:03:29 version 1.130, 2015/09/27 22:35:39
Line 162  $js Line 162  $js
                 var startdate = startm+"/"+startd+"/"+starty;                  var startdate = startm+"/"+startd+"/"+starty;
                 var starttime = new Date(startdate).getTime();                  var starttime = new Date(startdate).getTime();
                 starttime = starttime/1000;                  starttime = starttime/1000;
                   var starth = form.start_hour.options[form.start_hour.selectedIndex].value;
                   if (numberRegExp.test(starth)) {
                       starth = parseInt(starth);
                       if (starth > 0 && starth <= 23) {
                           starttime += 3600 * starth;
                       }
                   }
                 var enddate = endm+"/"+endd+"/"+endy;                  var enddate = endm+"/"+endd+"/"+endy;
                 var endtime = new Date(enddate).getTime();                  var endtime = new Date(enddate).getTime();
                 endtime = endtime/1000;                  endtime = endtime/1000;
                   var endh = form.end_hour.options[form.end_hour.selectedIndex].value;
                   if (numberRegExp.test(endh)) {
                       endh = parseInt(endh);
                       if (endh > 0 && endh <= 23) {
                           endtime += 3600 * endh;
                       }
                   }
   
                 var shown = 0;                  var shown = 0;
                 for (var i=0; i<$i; i++) {                  for (var i=0; i<$i; i++) {
                     if ((slotstart[i] >= starttime) && (slotend[i] <= endtime)) {                      if ((slotstart[i] >= starttime) && (slotend[i] <= endtime)) {
Line 246  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 263  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 1038  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 1402  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',
Line 1617  sub show_table { Line 1704  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 1740  LOGLINK Line 1835  LOGLINK
     $colspan++;$r->print("<td>$slots{$slot}{'ip'}</td>\n");      $colspan++;$r->print("<td>$slots{$slot}{'ip'}</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 1801  sub manage_reservations { Line 1896  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 1866  sub manage_reservations { Line 1957  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 1895  sub manage_reservations { Line 1993  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 1988  sub manage_reservations { Line 2091  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 2011  sub manage_reservations { Line 2117  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 2098  sub slot_chooser { Line 2205  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 2831  sub csvupload_fields { Line 2955  sub csvupload_fields {
     ['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'],
Removed from v.1.127  
changed lines
  Added in v.1.130

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