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

Diff for /loncom/interface/lonindexer.pm between versions 1.7 and 1.8

version 1.7, 2001/05/31 14:29:03 version 1.8, 2001/05/31 21:38:58
Line 23  my %dirs; Line 23  my %dirs;
 my %language;  my %language;
 my $hidden;  my $hidden;
 my $extrafield;  my $extrafield;
   my $fnum=0;
 sub BEGIN {  sub BEGIN {
     my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab');      my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab');
     map {      map {
Line 75  END Line 75  END
 END  END
     }      }
     elsif ($ENV{'form.catalogmode'} eq 'groupimport') {      elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
    $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
       '<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'.
       ' border="0"></td>';
  $colspan=" colspan='2' ";   $colspan=" colspan='2' ";
  $hidden=<<END;   $hidden=<<END;
 <input type='hidden' name='catalogmode' value='groupimport'>  <input type='hidden' name='catalogmode' value='groupimport'>
Line 83  END Line 86  END
 <input type="button" name="close" value='CLOSE' onClick="self.close()">  <input type="button" name="close" value='CLOSE' onClick="self.close()">
 END  END
         $groupimportbutton=<<END;          $groupimportbutton=<<END;
 <input type="button" name="groupimport" value='GROUP IMPORT' onClick="alert('not implemented')">  <input type="button" name="groupimport" value='GROUP IMPORT' onClick="javascript:select_group()">
 END  END
     }      }
   
Line 94  END Line 97  END
 function select_data(title,url) {  function select_data(title,url) {
     changeTitle(title);      changeTitle(title);
     changeURL(url);      changeURL(url);
       self.close();
   }
   function save_group() {
       for (var num=0; num<document.forms.fnum.fnum.value; num++) {
    if (eval("document.forms.form"+num+".filelink.checked")) {
       alert(eval("document.forms.form"+num+".title.value")+
          eval("document.forms.form"+num+".filelink.value"));
    }
       }
   }
   function select_group() {
       for (var num=0; num<document.forms.fnum.fnum.value; num++) {
    if (eval("document.forms.form"+num+".filelink.checked")) {
       alert(eval("document.forms.form"+num+".title.value")+
          eval("document.forms.form"+num+".filelink.value"));
    }
       }
   //    changeTitle(title);
   //    changeURL(url);
 }  }
 function changeTitle(val) {  function changeTitle(val) {
     if (opener.inf.document.forms.resinfo.elements.t) {      if (opener.inf.document.forms.resinfo.elements.t) {
Line 212  END Line 234  END
  my $indent = 0;   my $indent = 0;
  &scanDir ($r,$toplevel,$indent);   &scanDir ($r,$toplevel,$indent);
   
    $r->print("<form name='fnum'>");
    $r->print("<input type='hidden' name='fnum' value='$fnum'></form>");
  $r->print("</table>");   $r->print("</table>");
  $r->print("</td></tr></table>");   $r->print("</td></tr></table>");
  $r->print("</body></html>\n");   $r->print("</body></html>\n");
Line 375  sub display_line{ Line 399  sub display_line{
  my @file_ext = split (/\./,$listname);   my @file_ext = split (/\./,$listname);
  my $curfext = $file_ext[scalar(@file_ext)-1];   my $curfext = $file_ext[scalar(@file_ext)-1];
  my $filelink = $startdir.$filecom[0];   my $filelink = $startdir.$filecom[0];
  $r->print("<tr><td nowrap bgcolor=$fileclr>");   $r->print("<tr><td nowrap valign='bottom' bgcolor=$fileclr>");
  my $metafile = grep /^$filecom[0]\.meta\&/, @list;   my $metafile = grep /^$filecom[0]\.meta\&/, @list;
  my $title;   my $title;
         if ($ENV{'form.catalogmode'} eq 'interactive') {          if ($ENV{'form.catalogmode'} eq 'interactive') {
     $title=$listname;      $title=$listname;
     $title = &Apache::lonnet::metadata($filelink,'title') if ($metafile == 1);      $title = &Apache::lonnet::metadata($filelink,'title')
    if ($metafile == 1);
     $title=$listname unless $title;      $title=$listname unless $title;
     $r->print("<a href='javascript:select_data(\"",      $r->print("<a href='javascript:select_data(\"",
               $title,'","',$filelink,"\")'>");                $title,'","',$filelink,"\")'>");
     $r->print("<img src='",$iconpath,"select.gif' border=0></a>\n");      $r->print("<img src='",$iconpath,"select.gif' border=0></a>\n");
     $r->print("</td><td nowrap bgcolor=$fileclr>");      $r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>");
    }
           elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
       $title=$listname;
       $title = &Apache::lonnet::metadata($filelink,'title')
    if ($metafile == 1);
       $title=$listname unless $title;
       $r->print("<form name='form$fnum'>\n");
       $r->print("<input type='checkbox' name='filelink"."' ".
         "value='$filelink'>\n");
       $r->print("<input type='hidden' name='title"."' ".
         "value='$title'>\n");
       $r->print("</form>\n");
       $r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>");
        $fnum++;
  }   }
   
  if ($indent < 11) {   if ($indent < 11) {
Removed from v.1.7  
changed lines
  Added in v.1.8

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