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

Diff for /loncom/interface/lonindexer.pm between versions 1.15 and 1.16

version 1.15, 2001/08/07 15:14:51 version 1.16, 2001/08/08 03:00:11
Line 16 Line 16
 # 06/15/2001 Scott Harrison  # 06/15/2001 Scott Harrison
 # 06/26/2001 H. K. Ng  # 06/26/2001 H. K. Ng
 # 07/08/2001 H. K. Ng  # 07/08/2001 H. K. Ng
   # 8/6,8/7 Scott Harrison
   
 package Apache::lonindexer;  package Apache::lonindexer;
   
Line 31  my %language; Line 32  my %language;
 my $hidden;  my $hidden;
 my $extrafield;  my $extrafield;
 my $fnum;  my $fnum;
   my $dnum;
 sub BEGIN {  sub BEGIN {
     my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.      my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
      '/language.tab');       '/language.tab');
Line 46  sub handler { Line 48  sub handler {
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
     $fnum=0;      $fnum=0;
       $dnum=0;
     my $iconpath= $r->dir_config('lonIconsURL') . "/";      my $iconpath= $r->dir_config('lonIconsURL') . "/";
     my $domain  = $r->dir_config('lonDefDomain');      my $domain  = $r->dir_config('lonDefDomain');
     my $role    = $r->dir_config('lonRole');      my $role    = $r->dir_config('lonRole');
Line 61  sub handler { Line 64  sub handler {
     my $uri=$r->uri;      my $uri=$r->uri;
   
 # -------------------------------------- see if called from an interactive mode  # -------------------------------------- see if called from an interactive mode
   #    foreach my $key (sort(keys(%ENV))) {
   # $r->print("$key is $ENV{$key}<br />");
   #    }
   #    $r->print("END ENV");
     map {      map {
        my ($name, $value) = split(/=/,$_);         my ($name, $value) = split(/=/,$_);
        $value =~ tr/+/ /;         $value =~ tr/+/ /;
Line 71  sub handler { Line 78  sub handler {
        if ($name eq 'launch') {         if ($name eq 'launch') {
            $ENV{'form.'.$name}=$value;             $ENV{'form.'.$name}=$value;
        }         }
          if ($name eq 'acts') {
              $ENV{'form.'.$name}=$value;
          }
     } (split(/&/,$ENV{'QUERY_STRING'}));      } (split(/&/,$ENV{'QUERY_STRING'}));
   
     $hidden=''; my $closebutton='';      $hidden=''; my $closebutton='';
Line 83  sub handler { Line 93  sub handler {
     if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {      if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
  if ($ENV{'form.launch'} eq '1') {   if ($ENV{'form.launch'} eq '1') {
     delete $hash{'mode_catalog'};      delete $hash{'mode_catalog'};
       map {
    if ($_ =~ /^pre_/) {
       delete $hash{$_};
    }
    if ($_ =~ /^store/) {
       delete $hash{$_};
    }
       } keys %hash;    
  }   }
  if ($hash{'mode_catalog'} eq 'interactive') {   if ($hash{'mode_catalog'} eq 'interactive') {
     $ENV{'form.catalogmode'}='interactive';      $ENV{'form.catalogmode'}='interactive';
Line 103  END Line 121  END
             $closebutton=<<END;              $closebutton=<<END;
 <input type="button" name="close" value='CLOSE' onClick="self.close()">  <input type="button" name="close" value='CLOSE' onClick="self.close()">
 END  END
          }          }
  elsif ($ENV{'form.catalogmode'} eq 'groupimport') {   elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
     $hash{'mode_catalog'}='groupimport';      $hash{'mode_catalog'}='groupimport';
     $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.      $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
Line 139  function save_group() { Line 157  function save_group() {
     }      }
 }  }
 function select_group() {  function select_group() {
   //    window.location="http://"+window.location.hostname+"/adm/groupsort?acts="+document.forms.fileattr.acts.value;
       window.location="/adm/groupsort?acts="+document.forms.fileattr.acts.value;
   }
   function select_group2() {
     var linkflag=false;      var linkflag=false;
     for (var num=0; num<document.forms.fnum.fnum.value; num++) {      for (var num=0; num<document.forms.fnum.fnum.value; num++) {
  if (eval("document.forms.form"+num+".filelink.checked")) {   if (eval("document.forms.form"+num+".filelink.checked")) {
Line 158  function select_group() { Line 180  function select_group() {
     opener.linkmode=0;      opener.linkmode=0;
     opener.infoclear();      opener.infoclear();
     opener.draw();      opener.draw();
       self.close();
 }  }
 function insertRowInLastRow() {  function insertRowInLastRow() {
     opener.insertrow(opener.maxrow);      opener.insertrow(opener.maxrow);
Line 184  function changeURL(val) { Line 207  function changeURL(val) {
 }  }
 END  END
         }          }
    if ($ENV{'form.catalogmode'} eq 'groupimport') {
       $catalogmodefunctions.=<<END;
   var acts='';
   function queue(val) {
       if (eval("document.forms."+val+".filelink.checked")) {
    var l=val.length;
    var v=val.substring(4,l);
    document.forms.fileattr.acts.value+='1a'+v+'b';
   // alert(document.forms.fileattr.acts.value);
       }
       else {
    var l=val.length;
    var v=val.substring(4,l);
    document.forms.fileattr.acts.value+='0a'+v+'b';
   // alert(document.forms.fileattr.acts.value);
       }
       if (typeof(document.forms.dirpathUP)!="undefined") {
   // document.forms.dirpathUP.acts.value=document.forms.fileattr.acts.value;
   // alert(document.forms.dirpathUP.acts.value);
       }
   }
   function rep_dirpath(suffix,val) {
       eval("document.forms.dirpath"+suffix+".acts.value=val");
   //    eval("alert(document.forms.dirpath"+suffix+".acts.value)");
   //    return false;
   }
   END
    }
 # ---------------------------------------------------------------- Print Header  # ---------------------------------------------------------------- Print Header
  $r->print(<<ENDHEADER);   $r->print(<<ENDHEADER);
 <html>  <html>
Line 200  function openWindow(url, wdwName, w, h, Line 250  function openWindow(url, wdwName, w, h,
     var newWin = window.open(url, wdwName, options);      var newWin = window.open(url, wdwName, options);
     newWin.focus();      newWin.focus();
 }  }
   function gothere(val) {
       window.location=val+'?acts='+document.forms.fileattr.acts.value;
   }
 </script>  </script>
   
 </head>  </head>
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
 ENDHEADER  ENDHEADER
           if ($ENV{'form.catalogmode'} eq 'groupimport') {
   #    $r->print($ENV{'form.acts'}."<br />");
       my $acts=$ENV{'form.acts'};
       my @Acts=split(/b/,$acts);
       my %ahash;
       my %achash;
       my $ac=0;
       map {
    my ($state,$ref)=split(/a/);
    $ahash{$ref}=$state;
    $achash{$ref}=$ac;
    $ac++;
       } (@Acts);
       map {
    my $key=$_;
    if ($ahash{$key} eq '1') {
   #    $r->print("<b>NEW: ");
   #    $r->print($hash{'pre_'.$key.'_title'});
   #    $r->print(" : ");
   #    $r->print($hash{'pre_'.$key.'_link'});
   #    $r->print("</b><br />");
       $hash{'store_'.$hash{'pre_'.$key.'_link'}}=
    $hash{'pre_'.$key.'_title'};
       $hash{'storectr_'.$hash{'pre_'.$key.'_link'}}=
    $hash{'storectr'}+0;
       $hash{'storectr'}++;
    }
    if ($ahash{$key} eq '0') {
       if ($hash{'store_'.$hash{'pre_'.$key.'_link'}}) {
    delete $hash{'store_'.$hash{'pre_'.$key.'_link'}};
       }
    }
       } sort {$achash{$a}<=>$achash{$b}} (keys %ahash);
       map {
    if ($_ =~ /^store_/) {
       my $key=$_;
       $key=~s/^store_//;
   #    $r->print("<b>STORE: ");
   #    $r->print($hash{'storectr_'.$key});
   #    $r->print(':');
   #    $r->print($hash{'store_'.$key});
   #    $r->print(':');
   #    $r->print($key);
   #    $r->print("</b><br />");
    }
       } keys %hash;
       map {
    if ($_ =~ /^pre_/ && $_ =~/link$/) {
       my $key = $_;
       $key =~ s/^pre_//;
       $key =~ s/_[^_]*$//;
   #    $r->print($key);
   #    $r->print(':');
   #    $r->print($hash{'pre_'.$key.'_title'});
   #    $r->print(':');
   #    $r->print($hash{'pre_'.$key.'_link'});
   #    $r->print('<br />');
       delete $hash{'pre_'.$key.'_title'};
       delete $hash{'pre_'.$key.'_link'};
    }
       } keys %hash;
    }
   
  $r->print('<h2><font color="#888888">The LearningOnline With CAPA Network Directory Browser</font></h2>'."\n");   $r->print('<h2><font color="#888888">The LearningOnline With CAPA Network Directory Browser</font></h2>'."\n");
     }      } else {
     else {  
  $r->print('<html><head></head><body>Unable to tie hash to db file</body></html>');   $r->print('<html><head></head><body>Unable to tie hash to db file</body></html>');
  return OK;   return OK;
     }      }
Line 232  ENDHEADER Line 346  ENDHEADER
 <b><font color="#666666">Display file attributes</font></b><br>  <b><font color="#666666">Display file attributes</font></b><br>
 <form method="post" name="fileattr" action="$uri" enctype="application/x-www-form-urlencoded">  <form method="post" name="fileattr" action="$uri" 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 access</td>  <td><input type="checkbox" name="attr1" value="1" $attrchk[1] /> Last 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 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>
 </tr></table>  </tr></table>
 <input type=hidden name=dirPointer value="on">  <input type="hidden" name="dirPointer" value="on" />
 <input type="submit" name="attrs" value="Review">&nbsp;  <input type="hidden" name="acts" value="" />
 <input type="submit" name="attrs" value="Refresh">  <input type="submit" name="attrs" value="Review" />&nbsp;
   <input type="submit" name="attrs" value="Refresh" />
 $hidden  $hidden
 $closebutton  $closebutton
 $groupimportbutton  $groupimportbutton
Line 304  END Line 419  END
     &display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list);      &display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list);
     $indent = 1;      $indent = 1;
  }   }
  &scanDir ($r,$toplevel,$indent);   &scanDir ($r,$toplevel,$indent,\%hash);
   
  $r->print("<form name='fnum'>");   $r->print("<form name='fnum'>");
  $r->print("<input type='hidden' name='fnum' value='$fnum'></form>");   $r->print("<input type='hidden' name='fnum' value='$fnum'></form>");
Line 321  END Line 436  END
   
 # --------------------recursive scan of a directory  # --------------------recursive scan of a directory
 sub scanDir {  sub scanDir {
     my ($r,$startdir,$indent)=@_;      my ($r,$startdir,$indent,$hashref)=@_;
     my ($compuri,$curdir);      my ($compuri,$curdir);
     my $dirptr=16384;      my $dirptr=16384;
     $indent++;      $indent++;
Line 347  sub scanDir { Line 462  sub scanDir {
  }   }
     }      }
  }   }
  &display_line($r,$diropen,$line,$indent,$curdir,@list);   &display_line($r,$diropen,$line,$indent,$curdir,$hashref,@list);
  &scanDir ($r,$compuri,$indent) if $diropen eq "opened";   &scanDir ($r,$compuri,$indent) if $diropen eq "opened";
     }      }
     $indent--;      $indent--;
Line 416  sub match_ext { Line 531  sub match_ext {
   
 #------------------- displays one line in appropriate table format  #------------------- displays one line in appropriate table format
 sub display_line{  sub display_line{
     my ($r,$diropen,$line,$indent,$startdir,@list)=@_;      my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_;
     my (@pathfn, $fndir, $fnptr);      my (@pathfn, $fndir, $fnptr);
     my $dirptr=16384;      my $dirptr=16384;
     my $fileclr="#ffffe6";      my $fileclr="#ffffe6";
Line 439  sub display_line{ Line 554  sub display_line{
     if ($filecom[1] eq "viewOneUp") {      if ($filecom[1] eq "viewOneUp") {
  $r->print("<tr>$extrafield");   $r->print("<tr>$extrafield");
  $r->print("<td bgcolor=$fileclr valign=bottom>\n");   $r->print("<td bgcolor=$fileclr valign=bottom>\n");
  $r->print ('<form method="post" name="dirpath" action="'.$startdir.   $r->print ('<form method="post" name="dirpathUP" action="'.$startdir.
    '" enctype="application/x-www-form-urlencoded">'."\n");     '/" '.
      'onSubmit="return rep_dirpath(\'UP\',document.forms.fileattr.acts.value)" '.
      'enctype="application/x-www-form-urlencoded"'.
                      '>'."\n");
  $r->print ($hidden.'<input type=hidden name=openuri value="'.$startdir.'">'."\n");   $r->print ($hidden.'<input type=hidden name=openuri value="'.$startdir.'">'."\n");
    $r->print ('<input type="hidden" name="acts" value="">'."\n");
  $r->print ('<input src="'.$iconpath.'arrow_up.gif"');   $r->print ('<input src="'.$iconpath.'arrow_up.gif"');
  $r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");   $r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");
  $r->print("Up $tabtag</tr></form>\n");   $r->print("Up $tabtag</tr></form>\n");
Line 455  sub display_line{ Line 574  sub display_line{
  my $anchor = $filecom[0].'/';   my $anchor = $filecom[0].'/';
  $anchor =~ s/\///g;   $anchor =~ s/\///g;
  $r->print ('<a name="'.$anchor.'">');   $r->print ('<a name="'.$anchor.'">');
    $r->print ('<input type="hidden" name="acts" value="">');
  $r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"');    $r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); 
  $r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");   $r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");
  $r->print ('<a href="'.$filecom[0].'"><img src="'.$iconpath.'server.gif"');   $r->print ('<a href="javascript:gothere(\''.$filecom[0].'/\')"><img src="'.$iconpath.'server.gif"');
  $r->print (' border="0"></a>'."\n");   $r->print (' border="0"></a>'."\n");
  $r->print("Domain - $listname $tabtag</tr></form>\n");   $r->print("Domain - $listname $tabtag</tr></form>\n");
  return OK;   return OK;
Line 470  sub display_line{ Line 590  sub display_line{
  $anchor =~ s/\///g;   $anchor =~ s/\///g;
  &begin_form ($r,$curdir);   &begin_form ($r,$curdir);
  $r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.'whitespace1.gif" border=0>'."\n");   $r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.'whitespace1.gif" border=0>'."\n");
    $r->print ('<input type="hidden" name="acts" value="">');
  $r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"');    $r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); 
  $r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");   $r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");
  $r->print ('<a href="'.$curdir.'"><img src='.$iconpath.'quill.gif border=0 name="'.$msg.'" height="22"></a>');   $r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src='.$iconpath.'quill.gif border=0 name="'.$msg.'" height="22"></a>');
  $r->print ($listname.$tabtag.'</tr></form>'."\n");   $r->print ($listname.$tabtag.'</tr></form>'."\n");
  return OK;   return OK;
     }      }
Line 501  sub display_line{ Line 622  sub display_line{
     $title=$listname unless $title;      $title=$listname unless $title;
     $r->print("<form name='form$fnum'>\n");      $r->print("<form name='form$fnum'>\n");
     $r->print("<input type='checkbox' name='filelink"."' ".      $r->print("<input type='checkbox' name='filelink"."' ".
       "value='$filelink'>\n");        "value='$filelink' onClick='".
         "javascript:queue(\"form$fnum\")' ");
       if ($hash{'store_'.$filelink}) {
    $r->print("checked");
       }
       $r->print(">\n");
     $r->print("<input type='hidden' name='title"."' ".      $r->print("<input type='hidden' name='title"."' ".
       "value='$title'>\n");        "value='$title'>\n");
     $r->print("</form>\n");      $r->print("</form>\n");
     $r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>");      $r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>");
       $hash{"pre_${fnum}_link"}=$filelink;
       $hash{"pre_${fnum}_title"}=$title;
      $fnum++;       $fnum++;
  }   }
   
Line 575  sub display_line{ Line 703  sub display_line{
     }      }
     $r->print ("<img src=",$iconpath,"whitespace",$rem,".gif border=0>\n") if $rem > 0;      $r->print ("<img src=",$iconpath,"whitespace",$rem,".gif border=0>\n") if $rem > 0;
  }   }
    $r->print ('<input type="hidden" name="acts" value="">');
  $r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"');   $r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"');
  $r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");   $r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n");
  $r->print ('<a href="'.$curdir.'"><img src="'.$iconpath.'folder_'.$diropen.'.gif" border=0></a>'."\n");   $r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src="'.$iconpath.'folder_'.$diropen.'.gif" border=0></a>'."\n");
  $r->print ("$listname$tabtag</tr></form>\n");   $r->print ("$listname$tabtag</tr></form>\n");
     }      }
   
Line 588  sub begin_form { Line 717  sub begin_form {
     my ($r,$uri) = @_;      my ($r,$uri) = @_;
     my $anchor = $uri;      my $anchor = $uri;
     $anchor =~ s/\///g;      $anchor =~ s/\///g;
     $r->print ('<form method="post" name="dirpath" action="'.$uri.'#'.$anchor.      $r->print ('<form method="post" name="dirpath'.$dnum.'" action="'.$uri.'#'.$anchor.
        '" enctype="application/x-www-form-urlencoded">'."\n");         '" onSubmit="return rep_dirpath(\''.$dnum.'\',document.forms.fileattr.acts.value)" '.
          'enctype="application/x-www-form-urlencoded">'."\n");
     $r->print ($hidden.'<input type=hidden name=openuri value="'.$uri.'">'."\n");      $r->print ($hidden.'<input type=hidden name=openuri value="'.$uri.'">'."\n");
     $r->print ('<input type=hidden name=dirPointer value="on">'."\n");      $r->print ('<input type=hidden name=dirPointer value="on">'."\n");
       $dnum++;
 }  }
   
 1;  1;
Removed from v.1.15  
changed lines
  Added in v.1.16

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