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

Diff for /loncom/interface/lonindexer.pm between versions 1.181.4.4 and 1.181.6.2

version 1.181.4.4, 2010/01/28 00:01:13 version 1.181.6.2, 2009/12/02 18:22:20
Line 503  END Line 503  END
         $select_file_categories{''} = &mt('All file types');          $select_file_categories{''} = &mt('All file types');
         foreach my $cat (@file_categories) {          foreach my $cat (@file_categories) {
     my $types = join(",",&Apache::loncommon::filecategorytypes($cat));      my $types = join(",",&Apache::loncommon::filecategorytypes($cat));
     $select_file_categories{$types} = &mt($cat);      $select_file_categories{$types} = $cat;
     push(@select_form_order,$types);      push(@select_form_order,$types);
  }   }
         $select_file_categories{'select_form_order'} = \@select_form_order;          $select_file_categories{'select_form_order'} = \@select_form_order;
         my $type_element=          my $type_element=
             &Apache::loncommon::select_form(      &Apache::loncommon::select_form($typeselect,'only',
                 $typeselect,      %select_file_categories);
                 'only',  
                 %select_file_categories);  
         $type_element = '<label>'.&mt('File Type Displayed: [_1]',          $type_element = '<label>'.&mt('File Type Displayed: [_1]',
       $type_element).'</label>';        $type_element).'</label>';
         $r->print($type_element          $r->print($type_element
Line 897  sub display_line { Line 895  sub display_line {
     }      }
 # Do we have permission to look at this?  # Do we have permission to look at this?
   
     if($filecom[15] ne '1') { return OK if ((!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])) && (!&Apache::lonnet::allowed('bro',$pathprefix.$filecom[0]))); }      if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])); }
   
 # make absolute links appear on different background  # make absolute links appear on different background
     if ($absolute) { $fileclr='#ccdd99'; }      if ($absolute) { $fileclr='#ccdd99'; }
Line 1298  sub showpreview { Line 1296  sub showpreview {
     my $output='';      my $output='';
     my $embstyle=&Apache::loncommon::fileembstyle($curfext);      my $embstyle=&Apache::loncommon::fileembstyle($curfext);
     if ($embstyle eq 'ssi') {      if ($embstyle eq 'ssi') {
        my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink.         my $cache = $Apache::lonnet::perlvar{'lonDocRoot'}.$filelink;
                     '.tmp';         if ($env{'request.gcicontext'} eq 'buildtest') {
              $cache .= '.tn'; 
          } else {
              $cache .= '.tmp';
          }
        if ((!$env{'form.updatedisplay'}) &&         if ((!$env{'form.updatedisplay'}) &&
                     (-e $cache)) {                      (-e $cache)) {
           open(FH,$cache);            open(FH,$cache);
Removed from v.1.181.4.4  
changed lines
  Added in v.1.181.6.2

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