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

Diff for /loncom/interface/loncommon.pm between versions 1.1058 and 1.1064

version 1.1058, 2012/03/11 00:48:54 version 1.1064, 2012/04/04 23:06:52
Line 4076  sub findallcourses { Line 4076  sub findallcourses {
 ###############################################  ###############################################
   
 sub blockcheck {  sub blockcheck {
     my ($setters,$activity,$uname,$udom) = @_;      my ($setters,$activity,$uname,$udom,$url) = @_;
   
     if (!defined($udom)) {      if (!defined($udom)) {
         $udom = $env{'user.domain'};          $udom = $env{'user.domain'};
Line 4088  sub blockcheck { Line 4088  sub blockcheck {
     # If uname and udom are for a course, check for blocks in the course.      # If uname and udom are for a course, check for blocks in the course.
   
     if (&Apache::lonnet::is_course($udom,$uname)) {      if (&Apache::lonnet::is_course($udom,$uname)) {
         my %records = &Apache::lonnet::dump('comm_block',$udom,$uname);          my ($startblock,$endblock,$triggerblock) = 
         my ($startblock,$endblock)=&get_blocks($setters,$activity,$udom,$uname);              &get_blocks($setters,$activity,$udom,$uname,$url);
         return ($startblock,$endblock);          return ($startblock,$endblock,$triggerblock);
     }      }
   
     my $startblock = 0;      my $startblock = 0;
     my $endblock = 0;      my $endblock = 0;
       my $triggerblock = '';
     my %live_courses = &findallcourses(undef,$uname,$udom);      my %live_courses = &findallcourses(undef,$uname,$udom);
   
     # If uname is for a user, and activity is course-specific, i.e.,      # If uname is for a user, and activity is course-specific, i.e.,
Line 4209  sub blockcheck { Line 4210  sub blockcheck {
         # Retrieve blocking times and identity of locker for course          # Retrieve blocking times and identity of locker for course
         # of specified user, unless user has 'evb' privilege.          # of specified user, unless user has 'evb' privilege.
                   
         my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);          my ($start,$end,$trigger) = 
               &get_blocks($setters,$activity,$cdom,$cnum,$url);
         if (($start != 0) &&           if (($start != 0) && 
             (($startblock == 0) || ($startblock > $start))) {              (($startblock == 0) || ($startblock > $start))) {
             $startblock = $start;              $startblock = $start;
               if ($trigger ne '') {
                   $triggerblock = $trigger;
               }
         }          }
         if (($end != 0)  &&          if (($end != 0)  &&
             (($endblock == 0) || ($endblock < $end))) {              (($endblock == 0) || ($endblock < $end))) {
             $endblock = $end;              $endblock = $end;
               if ($trigger ne '') {
                   $triggerblock = $trigger;
               }
         }          }
     }      }
     return ($startblock,$endblock);      return ($startblock,$endblock,$triggerblock);
 }  }
   
 sub get_blocks {  sub get_blocks {
     my ($setters,$activity,$cdom,$cnum) = @_;      my ($setters,$activity,$cdom,$cnum,$url) = @_;
     my $startblock = 0;      my $startblock = 0;
     my $endblock = 0;      my $endblock = 0;
       my $triggerblock = '';
     my $course = $cdom.'_'.$cnum;      my $course = $cdom.'_'.$cnum;
     $setters->{$course} = {};      $setters->{$course} = {};
     $setters->{$course}{'staff'} = [];      $setters->{$course}{'staff'} = [];
     $setters->{$course}{'times'} = [];      $setters->{$course}{'times'} = [];
     my %records = &Apache::lonnet::dump('comm_block',$cdom,$cnum);      $setters->{$course}{'triggers'} = [];
     foreach my $record (keys(%records)) {      my (@blockers,%triggered);
         my ($start,$end) = ($record =~ m/^(\d+)____(\d+)$/);      my $now = time;
         if ($start <= time && $end >= time) {      my %commblocks = &Apache::lonnet::get_comm_blocks($cdom,$cnum);
             my ($staff_name,$staff_dom,$title,$blocks) =      if ($activity eq 'docs') {
                 &parse_block_record($records{$record});          @blockers = &Apache::lonnet::has_comm_blocking('bre',undef,$url,\%commblocks);
             if ($blocks->{$activity} eq 'on') {          foreach my $block (@blockers) {
                 push(@{$$setters{$course}{'staff'}},[$staff_name,$staff_dom]);              if ($block =~ /^firstaccess____(.+)$/) {
                 push(@{$$setters{$course}{'times'}}, [$start,$end]);                  my $item = $1;
                 if ( ($startblock == 0) || ($startblock > $start) ) {                  my $type = 'map';
                     $startblock = $start;                  my $timersymb = $item;
                   if ($item eq 'course') {
                       $type = 'course';
                   } elsif ($item =~ /___\d+___/) {
                       $type = 'resource';
                   } else {
                       $timersymb = &Apache::lonnet::symbread($item);
                   }
                   my $start = $env{'course.'.$cdom.'_'.$cnum.'.firstaccess.'.$timersymb};
                   my $end = $start + $env{'course.'.$cdom.'_'.$cnum.'.timerinterval.'.$timersymb};
                   $triggered{$block} = {
                                          start => $start,
                                          end   => $end,
                                          type  => $type,
                                        };
               }
           }
       } else {
           foreach my $block (keys(%commblocks)) {
               if ($block =~ m/^(\d+)____(\d+)$/) { 
                   my ($start,$end) = ($1,$2);
                   if ($start <= time && $end >= time) {
                       if (ref($commblocks{$block}) eq 'HASH') {
                           if (ref($commblocks{$block}{'blocks'}) eq 'HASH') {
                               if ($commblocks{$block}{'blocks'}{$activity} eq 'on') {
                                   unless(grep(/^\Q$block\E$/,@blockers)) {
                                       push(@blockers,$block);
                                   }
                               }
                           }
                       }
                   }
               } elsif ($block =~ /^firstaccess____(.+)$/) {
                   my $item = $1;
                   my $timersymb = $item; 
                   my $type = 'map';
                   if ($item eq 'course') {
                       $type = 'course';
                   } elsif ($item =~ /___\d+___/) {
                       $type = 'resource';
                   } else {
                       $timersymb = &Apache::lonnet::symbread($item);
                 }                  }
                 if ( ($endblock == 0) || ($endblock < $end) ) {                  my $start = $env{'course.'.$cdom.'_'.$cnum.'.firstaccess.'.$timersymb};
                     $endblock = $end;                  my $end = $start + $env{'course.'.$cdom.'_'.$cnum.'.timerinterval.'.$timersymb}; 
                   if ($start && $end) {
                       if (($start <= time) && ($end >= time)) {
                           unless (grep(/^\Q$block\E$/,@blockers)) {
                               push(@blockers,$block);
                               $triggered{$block} = {
                                                      start => $start,
                                                      end   => $end,
                                                      type  => $type,
                                                    };
                           }
                       }
                   }
               }
           }
       }
       foreach my $blocker (@blockers) {
           my ($staff_name,$staff_dom,$title,$blocks) =
               &parse_block_record($commblocks{$blocker});
           push(@{$$setters{$course}{'staff'}},[$staff_name,$staff_dom]);
           my ($start,$end,$triggertype);
           if ($blocker =~ m/^(\d+)____(\d+)$/) {
               ($start,$end) = ($1,$2);
           } elsif (ref($triggered{$blocker}) eq 'HASH') {
               $start = $triggered{$blocker}{'start'};
               $end = $triggered{$blocker}{'end'};
               $triggertype = $triggered{$blocker}{'type'};
           }
           if ($start) {
               push(@{$$setters{$course}{'times'}}, [$start,$end]);
               if ($triggertype) {
                   push(@{$$setters{$course}{'triggers'}},$triggertype);
               } else {
                   push(@{$$setters{$course}{'triggers'}},0);
               }
               if ( ($startblock == 0) || ($startblock > $start) ) {
                   $startblock = $start;
                   if ($triggertype) {
                       $triggerblock = $blocker;
                 }                  }
             }              }
               if ( ($endblock == 0) || ($endblock < $end) ) {
                  $endblock = $end;
                  if ($triggertype) {
                      $triggerblock = $blocker;
                  }
               }
         }          }
     }      }
     return ($startblock,$endblock);      return ($startblock,$endblock,$triggerblock);
 }  }
   
 sub parse_block_record {  sub parse_block_record {
Line 4272  sub parse_block_record { Line 4366  sub parse_block_record {
 }  }
   
 sub blocking_status {  sub blocking_status {
   my ($activity,$uname,$udom) = @_;      my ($activity,$uname,$udom,$url) = @_;
   my %setters;      my %setters;
   
   # check for active blocking  
   my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);  
   
   my $blocked = $startblock && $endblock ? 1 : 0;  
   
   # caller just wants to know whether a block is active  # check for active blocking
   if (!wantarray) { return $blocked; }      my ($startblock,$endblock,$triggerblock) = 
           &blockcheck(\%setters,$activity,$uname,$udom,$url);
   # build a link to a popup window containing the details      my $blocked = 0;
   my $querystring  = "?activity=$activity";      if ($startblock && $endblock) {
   # $uname and $udom decide whose portfolio the user is trying to look at          $blocked = 1;
      $querystring .= "&amp;udom=$udom"      if $udom;      }
      $querystring .= "&amp;uname=$uname"    if $uname;  
   # caller just wants to know whether a block is active
   my $output .= <<'END_MYBLOCK';      if (!wantarray) { return $blocked; }
     function openWindow(url, wdwName, w, h, toolbar,scrollbar) {  
         var options = "width=" + w + ",height=" + h + ",";  # build a link to a popup window containing the details
         options += "resizable=yes,scrollbars="+scrollbar+",status=no,";      my $querystring  = "?activity=$activity";
         options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";  # $uname and $udom decide whose portfolio the user is trying to look at
         var newWin = window.open(url, wdwName, options);      if ($activity eq 'port') {
         newWin.focus();          $querystring .= "&amp;udom=$udom"      if $udom;
     }          $querystring .= "&amp;uname=$uname"    if $uname;
       } elsif ($activity eq 'docs') {
           $querystring .= '&amp;url='.&HTML::Entities::encode($url,'&"');
       }
   
       my $output .= <<'END_MYBLOCK';
   function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
       var options = "width=" + w + ",height=" + h + ",";
       options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
       options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
       var newWin = window.open(url, wdwName, options);
       newWin.focus();
   }
 END_MYBLOCK  END_MYBLOCK
   
   $output = Apache::lonhtmlcommon::scripttag($output);      $output = Apache::lonhtmlcommon::scripttag($output);
       
   my $popupUrl = "/adm/blockingstatus/$querystring";      my $popupUrl = "/adm/blockingstatus/$querystring";
   my $text = mt('Communication Blocked');      my $text = &mt('Communication Blocked');
       if ($activity eq 'docs') {
   $output .= <<"END_BLOCK";          $text = &mt('Content Access Blocked');
       } elsif ($activity eq 'printout') {
           $text = &mt('Printing Blocked');
       }
       $output .= <<"END_BLOCK";
 <div class='LC_comblock'>  <div class='LC_comblock'>
   <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'    <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'
   title='$text'>    title='$text'>
Line 4315  END_MYBLOCK Line 4420  END_MYBLOCK
   
 END_BLOCK  END_BLOCK
   
   return ($blocked, $output);      return ($blocked, $output);
 }  }
   
 ###############################################  ###############################################
Line 5014  sub standard_css { Line 5119  sub standard_css {
     my $mono                 = 'monospace';      my $mono                 = 'monospace';
     my $data_table_head      = $sidebg;      my $data_table_head      = $sidebg;
     my $data_table_light     = '#FAFAFA';      my $data_table_light     = '#FAFAFA';
     my $data_table_dark      = '#F0F0F0';      my $data_table_dark      = '#E0E0E0';
     my $data_table_darker    = '#CCCCCC';      my $data_table_darker    = '#CCCCCC';
     my $data_table_highlight = '#FFFF00';      my $data_table_highlight = '#FFFF00';
     my $mail_new             = '#FFBB77';      my $mail_new             = '#FFBB77';
Line 6101  div.LC_edit_problem_footer { Line 6206  div.LC_edit_problem_footer {
   font-weight: normal;    font-weight: normal;
   font-size:  medium;    font-size:  medium;
   margin: 2px;    margin: 2px;
     background-color: $sidebg;
 }  }
   
 div.LC_edit_problem_header,  div.LC_edit_problem_header,
Line 6117  div.LC_edit_problem_header_title { Line 6223  div.LC_edit_problem_header_title {
   font-size: larger;    font-size: larger;
   background: $tabbg;    background: $tabbg;
   padding: 3px;    padding: 3px;
     margin: 0 0 5px 0;
 }  }
   
 table.LC_edit_problem_header_title {  table.LC_edit_problem_header_title {
Line 6809  sub headtag { Line 6916  sub headtag {
  '<head>'.   '<head>'.
  &font_settings();   &font_settings();
   
       my $inhibitprint = &print_suppression();
   
     if (!$args->{'frameset'}) {      if (!$args->{'frameset'}) {
  $result .= &Apache::lonhtmlcommon::htmlareaheaders();   $result .= &Apache::lonhtmlcommon::htmlareaheaders();
     }      }
Line 6854  ADDMETA Line 6963  ADDMETA
     if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }      if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }
     $result .= '<title> LON-CAPA '.$title.'</title>'      $result .= '<title> LON-CAPA '.$title.'</title>'
  .'<link rel="stylesheet" type="text/css" href="'.$url.'" />'   .'<link rel="stylesheet" type="text/css" href="'.$url.'" />'
           .$inhibitprint
  .$head_extra;   .$head_extra;
     return $result.'</head>';      return $result.'</head>';
 }  }
Line 6879  sub font_settings { Line 6989  sub font_settings {
   
 =pod  =pod
   
   =item * &print_suppression()
   
   In course context returns css which causes the body to be blank when media="print",
   if printout generation is unavailable for the current resource.
   
   This could be because:
   
   (a) printstartdate is in the future
   
   (b) printenddate is in the past
   
   (c) there is an active exam block with "printout"
   functionality blocked
   
   Users with pav, pfo or evb privileges are exempt.
   
   Inputs: none
   
   =cut
   
   
   sub print_suppression {
       my $noprint;
       if ($env{'request.course.id'}) {
           my $scope = $env{'request.course.id'};
           if ((&Apache::lonnet::allowed('pav',$scope)) ||
               (&Apache::lonnet::allowed('pfo',$scope))) {
               return;
           }
           if ($env{'request.course.sec'} ne '') {
               $scope .= "/$env{'request.course.sec'}";
               if ((&Apache::lonnet::allowed('pav',$scope)) ||
                   (&Apache::lonnet::allowed('pfo',$scope))) {
                   return; 
               }
           }
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           my $blocked = &blocking_status('printout',$cnum,$cdom); 
           if ($blocked) {
               my $checkrole = "cm./$cdom/$cnum";
               if ($env{'request.course.sec'} ne '') {
                   $checkrole .= "/$env{'request.course.sec'}";
               }
               unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
                       ($env{'request.role'} !~ m{^st\./$cdom/$cnum})) {
                   $noprint = 1;
               }
           }
           unless ($noprint) {
               my $symb = &Apache::lonnet::symbread();
               if ($symb ne '') {
                   my $navmap = Apache::lonnavmaps::navmap->new();
                   if (ref($navmap)) {
                       my $res = $navmap->getBySymb($symb);
                       if (ref($res)) {
                           if (!$res->resprintable()) {
                               $noprint = 1;
                           }
                       }
                   }
               }
           }
           if ($noprint) {
               return <<"ENDSTYLE";
   <style type="text/css" media="print">
       body { display:none }
   </style>
   ENDSTYLE
           }
       }
       return;
   }
   
   =pod
   
 =item * &xml_begin()  =item * &xml_begin()
   
 Returns the needed doctype and <html>  Returns the needed doctype and <html>
Line 10005  sub archive_row { Line 10191  sub archive_row {
     my ($is_dir,$item,$currdir,$depth,$count) = @_;      my ($is_dir,$item,$currdir,$depth,$count) = @_;
     my ($name) = ($item =~ m{([^/]+)$});      my ($name) = ($item =~ m{([^/]+)$});
     my %choices = &Apache::lonlocal::texthash (      my %choices = &Apache::lonlocal::texthash (
                                        'display'    => 'Add as File',                                         'display'    => 'Add as file',
                                        'dependency' => 'Include as dependency',                                         'dependency' => 'Include as dependency',
                                        'discard'    => 'Discard',                                         'discard'    => 'Discard',
                                       );                                        );
     if ($is_dir) {      if ($is_dir) {
         $choices{'display'} = &mt('Add as Folder');           $choices{'display'} = &mt('Add as folder'); 
     }      }
     my $output = &start_data_table_row().'<td align="right">'.$count.'</td>'."\n";      my $output = &start_data_table_row().'<td align="right">'.$count.'</td>'."\n";
     my $offset = 0;      my $offset = 0;
Line 10023  sub archive_row { Line 10209  sub archive_row {
         if ($is_dir) {          if ($is_dir) {
             $output .= ' onclick="javascript:propagateCheck(this.form,'."'$count'".');"';              $output .= ' onclick="javascript:propagateCheck(this.form,'."'$count'".');"';
             if ($action eq 'display') {              if ($action eq 'display') {
                 $text = &mt('Add as Folder');                  $text = &mt('Add as folder');
             }              }
         } else {          } else {
             $output .= ' onclick="javascript:dependencyCheck(this.form,'."$count,$offset".');"';              $output .= ' onclick="javascript:dependencyCheck(this.form,'."$count,$offset".');"';
Line 10037  sub archive_row { Line 10223  sub archive_row {
                        '<option value=""></option>'."\n".                         '<option value=""></option>'."\n".
                        '</select>'."\n".                         '</select>'."\n".
                        '</div>';                         '</div>';
           } elsif ($action eq 'display') {
               $output .= '<div id="arc_title_'.$count.'" style="display:none;">'."\n".
                          &mt('Title:').'&nbsp;<input type="text" name="archive_title_'.$count.'" id="archive_title_'.$count.'" />'."\n".
                          '</div>';
         }          }
         $output .= '</td>';          $output .= '</td>';
     }      }
Line 10065  sub archive_options_form { Line 10255  sub archive_options_form {
                     '</p>'.                      '</p>'.
                     '<div class="LC_columnSection"><fieldset>'.                      '<div class="LC_columnSection"><fieldset>'.
                     '<legend>'.&mt('Content actions for all').'</legend>'.                      '<legend>'.&mt('Content actions for all').'</legend>'.
                     '<input type="button" value="'.&mt('Display in Contents').'" '.                      '<input type="button" value="'.&mt('Add as folder/file').'" '.
                     'onclick="javascript:checkAll(document.'.$form.",'display'".')" />'.                      'onclick="javascript:checkAll(document.'.$form.",'display'".')" />'.
                     '&nbsp;&nbsp;<input type="button" value="'.&mt('Include as dependency for a displayed item').'"'.                      '&nbsp;&nbsp;<input type="button" value="'.&mt('Include as dependency for a displayed file').'"'.
                     ' onclick="javascript:checkAll(document.'.$form.",'dependency'".')" />'.                      ' onclick="javascript:checkAll(document.'.$form.",'dependency'".')" />'.
                     '&nbsp;&nbsp;<input type="button" value="'.&mt('Discard').'"'.                      '&nbsp;&nbsp;<input type="button" value="'.&mt('Discard').'"'.
                     ' onclick="javascript:checkAll(document.'.$form.",'discard'".')" />'.                      ' onclick="javascript:checkAll(document.'.$form.",'discard'".')" />'.
Line 10084  sub archive_options_form { Line 10274  sub archive_options_form {
 sub archive_javascript {  sub archive_javascript {
     my ($startcount,$numitems,$titles,$children) = @_;      my ($startcount,$numitems,$titles,$children) = @_;
     return unless ((ref($titles) eq 'HASH') && (ref($children) eq 'HASH'));      return unless ((ref($titles) eq 'HASH') && (ref($children) eq 'HASH'));
       my $maintitle = $env{'form.comment'};
     my $scripttag = <<START;      my $scripttag = <<START;
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
Line 10097  function checkAll(form,prefix) { Line 10288  function checkAll(form,prefix) {
                 if (form.elements[i].type == 'radio') {                  if (form.elements[i].type == 'radio') {
                     form.elements[i].checked = true;                      form.elements[i].checked = true;
                     var nostart = i-$startcount;                      var nostart = i-$startcount;
                     var offset = nostart%6;                      var offset = nostart%7;
                     var count = (nostart-offset)/6;                          var count = (nostart-offset)/7;    
                     dependencyCheck(form,count,offset);                      dependencyCheck(form,count,offset);
                 }                  }
             }              }
Line 10108  function checkAll(form,prefix) { Line 10299  function checkAll(form,prefix) {
   
 function propagateCheck(form,count) {  function propagateCheck(form,count) {
     if (count > 0) {      if (count > 0) {
         var startelement = $startcount + ((count-1) * 6);          var startelement = $startcount + ((count-1) * 7);
         for (var j=1; j<5; j++) {          for (var j=1; j<6; j++) {
             if (j != 3) {              if ((j != 2) && (j != 4)) {
                 var item = startelement + j;                   var item = startelement + j; 
                 if (form.elements[item].type == 'radio') {                  if (form.elements[item].type == 'radio') {
                     if (form.elements[item].checked) {                      if (form.elements[item].checked) {
Line 10129  var parents = new Array(numitems); Line 10320  var parents = new Array(numitems);
 for (var i=0; i<numitems; i++) {  for (var i=0; i<numitems; i++) {
     parents[i] = new Array;      parents[i] = new Array;
 }  }
   var maintitle = '$maintitle';
   
 START  START
   
Line 10148  START Line 10340  START
 function containerCheck(form,count,offset) {  function containerCheck(form,count,offset) {
     if (count > 0) {      if (count > 0) {
         dependencyCheck(form,count,offset);          dependencyCheck(form,count,offset);
         var item = (offset+$startcount)+6*(count-1);          var item = (offset+$startcount)+7*(count-1);
         form.elements[item].checked = true;          form.elements[item].checked = true;
         if(Object.prototype.toString.call(parents[count]) === '[object Array]') {          if(Object.prototype.toString.call(parents[count]) === '[object Array]') {
             if (parents[count].length > 0) {              if (parents[count].length > 0) {
Line 10162  function containerCheck(form,count,offse Line 10354  function containerCheck(form,count,offse
   
 function dependencyCheck(form,count,offset) {  function dependencyCheck(form,count,offset) {
     if (count > 0) {      if (count > 0) {
         var chosen = (offset+$startcount)+6*(count-1);          var chosen = (offset+$startcount)+7*(count-1);
         var depitem = $startcount + ((count-1) * 6) + 3;          var depitem = $startcount + ((count-1) * 7) + 4;
         var currtype = form.elements[depitem].type;          var currtype = form.elements[depitem].type;
         if (form.elements[chosen].value == 'dependency') {          if (form.elements[chosen].value == 'dependency') {
             document.getElementById('arc_depon_'+count).style.display='block';               document.getElementById('arc_depon_'+count).style.display='block'; 
             form.elements[depitem].options.length = 0;              form.elements[depitem].options.length = 0;
             form.elements[depitem].options[0] = new Option('Select','',true,true);              form.elements[depitem].options[0] = new Option('Select','',true,true);
             for (var i=1; i<count; i++) {              for (var i=1; i<count; i++) {
                 var startelement = $startcount + (i-1) * 6;                  var startelement = $startcount + (i-1) * 7;
                 for (var j=1; j<5; j++) {                  for (var j=1; j<6; j++) {
                     if (j != 3) {                      if ((j != 2) && (j!= 4)) {
                         var item = startelement + j;                          var item = startelement + j;
                         if (form.elements[item].type == 'radio') {                          if (form.elements[item].type == 'radio') {
                             if (form.elements[item].checked) {                              if (form.elements[item].checked) {
Line 10190  function dependencyCheck(form,count,offs Line 10382  function dependencyCheck(form,count,offs
             form.elements[depitem].options.length = 0;              form.elements[depitem].options.length = 0;
             form.elements[depitem].options[0] = new Option('Select','',true,true);              form.elements[depitem].options[0] = new Option('Select','',true,true);
         }          }
           titleCheck(form,count,offset);
     }      }
 }  }
   
 function propagateSelect(form,count,offset) {  function propagateSelect(form,count,offset) {
     if (count > 0) {      if (count > 0) {
         var item = (1+offset+$startcount)+6*(count-1);          var item = (2+offset+$startcount)+7*(count-1);
         var picked = form.elements[item].options[form.elements[item].selectedIndex].value;           var picked = form.elements[item].options[form.elements[item].selectedIndex].value; 
         if (Object.prototype.toString.call(parents[count]) === '[object Array]') {          if (Object.prototype.toString.call(parents[count]) === '[object Array]') {
             if (parents[count].length > 0) {              if (parents[count].length > 0) {
Line 10209  function propagateSelect(form,count,offs Line 10402  function propagateSelect(form,count,offs
   
 function containerSelect(form,count,offset,picked) {  function containerSelect(form,count,offset,picked) {
     if (count > 0) {      if (count > 0) {
         var item = (offset+$startcount)+6*(count-1);          var item = (1+offset+$startcount)+7*(count-1);
         if (form.elements[item].type == 'radio') {          if (form.elements[item].type == 'radio') {
             if (form.elements[item].value == 'dependency') {              if (form.elements[item].value == 'dependency') {
                 if (form.elements[item+1].type == 'select-one') {                  if (form.elements[item+1].type == 'select-one') {
Line 10232  function containerSelect(form,count,offs Line 10425  function containerSelect(form,count,offs
     }      }
 }  }
   
   function titleCheck(form,count,offset) {
       if (count > 0) {
           var chosen = (offset+$startcount)+7*(count-1);
           var depitem = $startcount + ((count-1) * 7) + 2;
           var currtype = form.elements[depitem].type;
           if (form.elements[chosen].value == 'display') {
               document.getElementById('arc_title_'+count).style.display='block';
               if ((count==1) && ((parents[count].length > 0) || (numitems == 1))) {
                   document.getElementById('archive_title_'+count).value=maintitle;
               }
           } else {
               document.getElementById('arc_title_'+count).style.display='none';
               if (currtype == 'text') { 
                   document.getElementById('archive_title_'+count).value='';
               }
           }
       }
       return;
   }
   
 // ]]>  // ]]>
 </script>  </script>
 END  END
Line 10298  sub process_extracted_files { Line 10511  sub process_extracted_files {
                         }                          }
                     }                      }
                 } elsif ($env{'form.archive_'.$i} eq 'display') {                  } elsif ($env{'form.archive_'.$i} eq 'display') {
                     my ($title,$url,$outer);                      my ($docstitle,$title,$url,$outer);
                     ($title) = ($path =~ m{/([^/]+)$});                      ($title) = ($path =~ m{/([^/]+)$});
                       $docstitle = $env{'form.archive_title_'.$i};
                       if ($docstitle eq '') {
                           $docstitle = $title;
                       }
                     $outer = 0;                      $outer = 0;
                     if (ref($dirorder{$i}) eq 'ARRAY') {                      if (ref($dirorder{$i}) eq 'ARRAY') {
                         if (@{$dirorder{$i}} > 0) {                          if (@{$dirorder{$i}} > 0) {
Line 10325  sub process_extracted_files { Line 10542  sub process_extracted_files {
                                       $folders{$i}.'.'.$containers{$i};                                        $folders{$i}.'.'.$containers{$i};
                             my $newidx = &LONCAPA::map::getresidx();                              my $newidx = &LONCAPA::map::getresidx();
                             $LONCAPA::map::resources[$newidx]=                              $LONCAPA::map::resources[$newidx]=
                                 $title.':'.$url.':false:normal:res';                                  $docstitle.':'.$url.':false:normal:res';
                             push(@LONCAPA::map::order,$newidx);                              push(@LONCAPA::map::order,$newidx);
                             my ($outtext,$errtext) =                              my ($outtext,$errtext) =
                                 &LONCAPA::map::storemap('/uploaded/'.$docudom.'/'.                                  &LONCAPA::map::storemap('/uploaded/'.$docudom.'/'.
Line 10350  sub process_extracted_files { Line 10567  sub process_extracted_files {
                                 $newdest{$i} = "$prefix$dir/$docstype/$mapinner{$outer}/$newidx";                                  $newdest{$i} = "$prefix$dir/$docstype/$mapinner{$outer}/$newidx";
                             }                              }
                             $LONCAPA::map::resources[$newidx]=                              $LONCAPA::map::resources[$newidx]=
                                 $title.':'.$url.':false:normal:res';                                  $docstitle.':'.$url.':false:normal:res';
                             push(@LONCAPA::map::order, $newidx);                              push(@LONCAPA::map::order, $newidx);
                             my ($outtext,$errtext)=                              my ($outtext,$errtext)=
                                 &LONCAPA::map::storemap('/uploaded/'.$docudom.'/'.                                  &LONCAPA::map::storemap('/uploaded/'.$docudom.'/'.
Line 12589  sub init_user_environment { Line 12806  sub init_user_environment {
   
 # See if old ID present, if so, remove  # See if old ID present, if so, remove
   
     my ($filename,$cookie,$userroles);      my ($filename,$cookie,$userroles,$firstaccenv,$timerintenv);
     my $now=time;      my $now=time;
   
     if ($public) {      if ($public) {
Line 12627  sub init_user_environment { Line 12844  sub init_user_environment {
           
 # Initialize roles  # Initialize roles
   
  $userroles=&Apache::lonnet::rolesinit($domain,$username,$authhost);   ($userroles,$firstaccenv,$timerintenv) = 
               &Apache::lonnet::rolesinit($domain,$username,$authhost);
     }      }
 # ------------------------------------ Check browser type and MathML capability  # ------------------------------------ Check browser type and MathML capability
   
Line 12702  sub init_user_environment { Line 12920  sub init_user_environment {
         }          }
   
  $env{'user.environment'} = "$lonids/$cookie.id";   $env{'user.environment'} = "$lonids/$cookie.id";
   
  if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",   if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",
  &GDBM_WRCREAT(),0640)) {   &GDBM_WRCREAT(),0640)) {
     &_add_to_env(\%disk_env,\%initial_env);      &_add_to_env(\%disk_env,\%initial_env);
     &_add_to_env(\%disk_env,\%userenv,'environment.');      &_add_to_env(\%disk_env,\%userenv,'environment.');
     &_add_to_env(\%disk_env,$userroles);      &_add_to_env(\%disk_env,$userroles);
               if (ref($firstaccenv) eq 'HASH') {
                   &_add_to_env(\%disk_env,$firstaccenv);
               }
               if (ref($timerintenv) eq 'HASH') {
                   &_add_to_env(\%disk_env,$timerintenv);
               }
     if (ref($args->{'extra_env'})) {      if (ref($args->{'extra_env'})) {
  &_add_to_env(\%disk_env,$args->{'extra_env'});   &_add_to_env(\%disk_env,$args->{'extra_env'});
     }      }
Removed from v.1.1058  
changed lines
  Added in v.1.1064

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