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

Diff for /loncom/interface/lonindexer.pm between versions 1.202 and 1.203.2.1

version 1.202, 2009/12/01 18:07:50 version 1.203.2.1, 2009/12/07 02:27:25
Line 518  END Line 518  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} = $cat;      $select_file_categories{$types} = &mt($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($typeselect,'only',              &Apache::loncommon::select_form(
     %select_file_categories);                  $typeselect,
                   '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 1330  sub showpreview { Line 1332  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.202  
changed lines
  Added in v.1.203.2.1

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