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

Diff for /loncom/interface/lonindexer.pm between versions 1.17 and 1.18

version 1.17, 2001/08/13 14:50:35 version 1.18, 2001/08/14 14:13:03
Line 14 Line 14
 # 5/31,6/1,6/2,6/15 Scott Harrison  # 5/31,6/1,6/2,6/15 Scott Harrison
 # 6/26,7/8 H. K. Ng  # 6/26,7/8 H. K. Ng
 # 8/6,8/7,8/10 Scott Harrison  # 8/6,8/7,8/10 Scott Harrison
   # 8/14 H. K. Ng
   
 package Apache::lonindexer;  package Apache::lonindexer;
   
Line 234  ENDHEADER Line 235  ENDHEADER
   'Network Directory Browser</font></h2>'."\n");    'Network Directory Browser</font></h2>'."\n");
 # get state of file attributes to be showing  # get state of file attributes to be showing
  if ($ENV{'form.attrs'} ne "") {   if ($ENV{'form.attrs'} ne "") {
     for (my $i=0; $i<=5; $i++) {      for (my $i=0; $i<=6; $i++) {
  delete $hash{'display_attrs_'.$i};   delete $hash{'display_attrs_'.$i};
  if ($ENV{'form.attr'.$i} == 1) {   if ($ENV{'form.attr'.$i} == 1) {
     $attrchk[$i] = "checked";      $attrchk[$i] = "checked";
Line 242  ENDHEADER Line 243  ENDHEADER
  }   }
     }      }
  } else {   } else {
     for (my $i=0; $i<=5; $i++) {      for (my $i=0; $i<=6; $i++) {
  $attrchk[$i] = "checked" if $hash{'display_attrs_'.$i} == 1;   $attrchk[$i] = "checked" if $hash{'display_attrs_'.$i} == 1;
     }      }
  }   }
Line 253  ENDHEADER Line 254  ENDHEADER
  enctype="application/x-www-form-urlencoded">   enctype="application/x-www-form-urlencoded">
 <table border=0><tr>  <table border=0><tr>
 <td><input type="checkbox" name="attr0" value="1" $attrchk[0] /> Size</td>  <td><input type="checkbox" name="attr0" value="1" $attrchk[0] /> Size</td>
 <td><input type="checkbox" name="attr1" value="1" $attrchk[1] /> Last  <td><input type="checkbox" name="attr1" value="1" $attrchk[1] /> Last access</td>
  access</td>  <td><input type="checkbox" name="attr2" value="1" $attrchk[2] /> Last modified</td>
 <td><input type="checkbox" name="attr2" value="1" $attrchk[2] /> Last  <td><input type="checkbox" name="attr6" value="1" $attrchk[6] /> All versions</td>
  modified</td>  
 </tr><tr>  </tr><tr>
 <td><input type="checkbox" name="attr3" value="1" $attrchk[3] /> Author</td>  <td><input type="checkbox" name="attr3" value="1" $attrchk[3] /> Author</td>
 <td><input type="checkbox" name="attr4" value="1" $attrchk[4] /> Keywords</td>  <td><input type="checkbox" name="attr4" value="1" $attrchk[4] /> Keywords</td>
 <td><input type="checkbox" name="attr5" value="1" $attrchk[5] /> Language</td>  <td><input type="checkbox" name="attr5" value="1" $attrchk[5] /> Language</td>
   <td>&nbsp;</td>
 </tr></table>  </tr></table>
 <input type="hidden" name="dirPointer" value="on" />  <input type="hidden" name="dirPointer" value="on" />
 <input type="hidden" name="acts" value="" />  <input type="hidden" name="acts" value="" />
Line 373  sub scanDir { Line 374  sub scanDir {
     foreach my $line (@list) {      foreach my $line (@list) {
  my ($strip,$dom,$foo,$testdir,$foo)=split(/\&/,$line,5);    my ($strip,$dom,$foo,$testdir,$foo)=split(/\&/,$line,5); 
  next if $strip =~ /.*\.meta$/;   next if $strip =~ /.*\.meta$/;
    my (@fileparts) = split(/\./,$strip);
    if ($hash{'display_attrs_6'} != 1) {
       if (scalar(@fileparts) >= 3) {
    my $fext = pop @fileparts;
    my $ov = pop @fileparts;
    my $fname = join ('.',@fileparts,$fext);
    next if (grep /$fname/,@list and $ov =~ /\d+/);
       }
    }
   
  if ($dom eq "domain") {   if ($dom eq "domain") {
     $compuri = join('',$strip,"/");  # dom list has /res/<domain name>      $compuri = join('',$strip,"/");  # dom list has /res/<domain name>
     $curdir = $compuri;      $curdir = $compuri;
Removed from v.1.17  
changed lines
  Added in v.1.18

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