[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.6 and 1.181.6.2

version 1.181.4.6, 2010/04/14 16:11:34 version 1.181.6.2, 2009/12/02 18:22:20
Line 319  function select_group() { Line 319  function select_group() {
   
 function changeURL(val) {  function changeURL(val) {
     if (window.opener.document) {      if (window.opener.document) {
         var elementname  = "$element";          var elementname  = "$element"+"_value";
           var checkboxname = "$element"+"_setparmval";
  window.opener.document.forms["$form"].elements[elementname].value=val;   window.opener.document.forms["$form"].elements[elementname].value=val;
           window.opener.document.forms["$form"].elements[checkboxname].checked=true;
     } else {      } else {
     alert("The file you selected is: "+val);      alert("The file you selected is: "+val);
     }      }
Line 435  ENDHEADER Line 437  ENDHEADER
     }      }
  }   }
   
         my @file_categories = &Apache::loncommon::filecategories();  
         my %select_file_categories;  
         my @select_form_order = ('');  
         $select_file_categories{''} = &mt('All file types');  
         foreach my $cat (@file_categories) {  
             my $types = join(",",&Apache::loncommon::filecategorytypes($cat));  
             $select_file_categories{$types} = &mt($cat);  
             push(@select_form_order,$types);  
         }  
         $select_file_categories{'select_form_order'} = \@select_form_order;  
         my $type_element=  
             &Apache::loncommon::select_form(  
                 $typeselect,  
                 'only',  
                 %select_file_categories);  
         my $type_selector = '<label>'.&mt('File Type Displayed: [_1]',  
                                           $type_element).'</label>';  
   
 # ------------------------------- output state of file attributes to be showing  # ------------------------------- output state of file attributes to be showing
 #                                 All versions has to the last item  #                                 All versions has to the last item
 #                                 since it does not take an extra col  #                                 since it does not take an extra col
    my %lt=&Apache::lonlocal::texthash(
         my %lt=&Apache::lonlocal::texthash(     'ti' => 'Title',
                                            'av' => 'All versions',     'si' => 'Size',
                                            'ud' => 'Update Display',     'la' => 'Last access',
                                            'pr' => 'Problems',     'lm' => 'Last modified',
                                            'gr' => 'Graphics',     'st' => 'Statistics',
                                            'at' => 'All types',     'au' => 'Author',
                                            'hd' => 'Display Options'     'kw' => 'Keywords',
                                            );                                             'sb' => 'Subject',
         my @disp_order = ('0','4','5','6','13','1','2','3','10','14','8','11','7','12','15','16');                                             'nt' => 'Notes',
         my %disp_options = &Apache::lonlocal::texthash (                                             'ab' => 'Abstract',
                               0  => 'Title',     'ln' => 'Language',
                               4  => 'Author',                                             'gl' => 'Grade Level',
                               5  => 'Keywords',                                             'sd' => 'Standards',
                               6  => 'Language',     'sa' => 'Source Available',
                               13 => 'Notes',     'sr' => 'Show resource',
                               1  => 'Size',     'li' => 'Linked/Related Resources',
                               2  => 'Last access',     'av' => 'All versions',
                               3  => 'Last modified',     'ud' => 'Update Display',
                               10 => 'Source Available',     'pr' => 'Problems',
                               14 => 'Abstract',     'gr' => 'Graphics',
                               8  => 'Statistics',     'at' => 'All types',
                               11 => 'Linked/Related Resources',                                             'hd' => 'Display Options',
                               7  => 'Show resource',     );
                               12 => 'Subject',   $r->print(<<END);
                               15 => 'Grade Level',  
                               16 => 'Standards',  
                            );  
         my $cell = 0;  
         my $numinrow = 4;  
         $r->print('  
 <form method="post" name="fileattr" action="'.$uri.'" enctype="application/x-www-form-urlencoded">  
 <fieldset>  <fieldset>
 <legend><b>'.$lt{'hd'}.'</b></legend>  <legend>$lt{'hd'}</legend>
 <table style=" border-collapse: collapse; border-style: none;">'."\n");  <form method="post" name="fileattr" action="$uri" enctype="application/x-www-form-urlencoded">
         foreach my $item (@disp_order) {  
             my $style = 'padding-left: 12px; padding-right: 8px;';  
             if ($cell%$numinrow == 0) {  
                 $r->print('<tr>');  
             }  
             $cell ++;  
             if ($cell > 3 * $numinrow) {  
                 $style .= ' padding-bottom: 6px;';  
             }  
             if (defined($disp_options{$item})) {  
                 $r->print('<td style="'.$style.'"><span class="LC_nobreak">'.  
                           '<label><input type="checkbox" name="attr'.$item.'" value="1" '.  
                           $attrchk[$item].' onclick="this.form.submit();" /> '.$disp_options{$item}.  
                           '</label></span></td>'."\n");  
             }  
             if ($cell > 1 && $cell%$numinrow == 0) {  
                 $r->print('</tr>');  
             }  
         }  
         $r->print(<<END);  
 <tr>  
 <td style="font-style: italic; border-top: 1px solid black; padding-top: 6px">  
 <label><input type="checkbox" name="attr9" value="1" $attrchk[9] onclick="this.form.submit();" /> $lt{'av'}</label>  <label><input type="checkbox" name="attr9" value="1" $attrchk[9] onclick="this.form.submit();" /> $lt{'av'}</label>
 </td>  <table border="0">
 <td colspan="3" style="padding-left:8px; padding-top: 4px; font-style: italic; border-top: 1px solid black; padding-top: 8px">$type_selector</td>  <tr>
   <td><label><input type="checkbox" name="attr0" value="1" $attrchk[0] onclick="this.form.submit();" /> $lt{'ti'}</label></td>
   <td><label><input type="checkbox" name="attr4" value="1" $attrchk[4] onclick="this.form.submit();" /> $lt{'au'}</label></td>
   <td><label><input type="checkbox" name="attr5" value="1" $attrchk[5] onclick="this.form.submit();" /> $lt{'kw'}</label></td>
   <td><label><input type="checkbox" name="attr6" value="1" $attrchk[6] onclick="this.form.submit();" /> $lt{'ln'}</label></td>
   <td><label><input type="checkbox" name="attr13" value="1" $attrchk[13] onclick="this.form.submit();" /> $lt{'nt'}</label></td>
   <td><label><input type="checkbox" name="attr16" value="1" $attrchk[16] onclick="this.form.submit();" /> $lt{'sd'}</label></td>
   </tr>
   <tr>
   <td><label><input type="checkbox" name="attr1" value="1" $attrchk[1] onclick="this.form.submit();" /> $lt{'si'}</label></td>
   <td><label><input type="checkbox" name="attr2" value="1" $attrchk[2] onclick="this.form.submit();" /> $lt{'la'}</label></td>
   <td><label><input type="checkbox" name="attr3" value="1" $attrchk[3] onclick="this.form.submit();" /> $lt{'lm'}</label></td>
   <td><label><input type="checkbox" name="attr10" value="1" $attrchk[10] onclick="this.form.submit();" /> $lt{'sa'}</label></td>
   <td><label><input type="checkbox" name="attr14" value="1" $attrchk[14] onclick="this.form.submit();" /> $lt{'ab'}</label></td>
   <td>&nbsp;</td>
   </tr>
   <tr>
   <td><label><input type="checkbox" name="attr8" value="1" $attrchk[8] onclick="this.form.submit();" /> $lt{'st'}</label></td>
   <td><label><input type="checkbox" name="attr11" value="1" $attrchk[11] onclick="this.form.submit();" /> $lt{'li'}</label></td>
   <td><label><input type="checkbox" name="attr7" value="1" $attrchk[7] onclick="this.form.submit();" /> $lt{'sr'}</label></td>
   <td><label><input type="checkbox" name="attr12" value="1" $attrchk[12] onclick="this.form.submit();" /> $lt{'sb'}</label></td>
   <td><label><input type="checkbox" name="attr15" value="1" $attrchk[15] onclick="this.form.submit();" /> $lt{'gl'}</label></td>
   <td>&nbsp;</td>
 </tr>  </tr>
 </table>  </table>
 <input type="hidden" name="attrs" value="1" />  <input type="hidden" name="attrs" value="1" />
 </fieldset>  END
           my @file_categories = &Apache::loncommon::filecategories();
           my %select_file_categories;
           my @select_form_order = ('');
           $select_file_categories{''} = &mt('All file types');
           foreach my $cat (@file_categories) {
       my $types = join(",",&Apache::loncommon::filecategorytypes($cat));
       $select_file_categories{$types} = $cat;
       push(@select_form_order,$types);
    }
           $select_file_categories{'select_form_order'} = \@select_form_order;
           my $type_element=
       &Apache::loncommon::select_form($typeselect,'only',
       %select_file_categories);
           $type_element = '<label>'.&mt('File Type Displayed: [_1]',
         $type_element).'</label>';
           $r->print($type_element
                    .'</fieldset>');
           $r->print(<<END);
   <br />
 <input type="submit" name="updatedisplay" value="$lt{'ud'}" />  <input type="submit" name="updatedisplay" value="$lt{'ud'}" />
 <input type="hidden" name="acts" value="" />  <input type="hidden" name="acts" value="" />
 $closebutton $groupimportbutton  $closebutton $groupimportbutton
Line 587  END Line 583  END
     if ($hash{'display_attrs_11'} == 1);      if ($hash{'display_attrs_11'} == 1);
  $r->print("<td><b>".&mt("Resource")."</b></td>\n")   $r->print("<td><b>".&mt("Resource")."</b></td>\n")
     if ($hash{'display_attrs_7'} == 1);      if ($hash{'display_attrs_7'} == 1);
         $r->print("<td><b>".&mt("Subject")."</b></td>\n")          $r->print("<th>".&mt("Subject")."</th>\n")
             if ($hash{'display_attrs_12'} == 1);              if ($hash{'display_attrs_12'} == 1);
         $r->print("<td><b>".&mt("Notes")."</b></td>\n")          $r->print("<th>".&mt("Notes")."</th>\n")
             if ($hash{'display_attrs_13'} == 1);              if ($hash{'display_attrs_13'} == 1);
         $r->print("<td><b>".&mt("Abstract")."</b></td>\n")          $r->print("<th>".&mt("Abstract")."</th>\n")
             if ($hash{'display_attrs_14'} == 1);              if ($hash{'display_attrs_14'} == 1);
         $r->print("<td><b>".&mt("Grade Level")."</b></td>\n")          $r->print("<th>".&mt("Grade Level")."</th>\n")
             if ($hash{'display_attrs_15'} == 1);              if ($hash{'display_attrs_15'} == 1);
         $r->print("<td><b>".&mt("Standards")."</b></td>\n")          $r->print("<th>".&mt("Standards")."</th>\n")
             if ($hash{'display_attrs_16'} == 1);              if ($hash{'display_attrs_16'} == 1);
  $r->print('</tr>');   $r->print('</tr>');
   
Line 899  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 1300  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.6  
changed lines
  Added in v.1.181.6.2

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