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

Diff for /loncom/interface/londocs.pm between versions 1.119 and 1.120

version 1.119, 2004/04/24 23:03:49 version 1.120, 2004/04/26 01:20:17
Line 447  sub entryline { Line 447  sub entryline {
     $renametitle=~s/\&quot\;/\\\"/g;      $renametitle=~s/\&quot\;/\\\"/g;
     my $line='<tr>';      my $line='<tr>';
 # Edit commands  # Edit commands
       my $folderpath;
       if ($ENV{'form.folderpath'}) {
    $folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'});
    # $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"');
       }
     if ($allowed) {      if ($allowed) {
  my %lt=&Apache::lonlocal::texthash(   my %lt=&Apache::lonlocal::texthash(
                 'up' => 'Move Up',                  'up' => 'Move Up',
  'dw' => 'Move Down',   'dw' => 'Move Down',
  'rm' => 'Remove',   'rm' => 'Remove',
  'rn' => 'Rename');   'rn' => 'Rename');
  my $folderpath;  
  if ($ENV{'form.folderpath'}) {  
     $folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'});  
    # $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"');  
  }  
  $line.=(<<END);   $line.=(<<END);
   <form name="entry_$index" action="/adm/coursedocs">
   <input type="hidden" name="folderpath" value="$folderpath" />
 <td><table border='0' cellspacing='2' cellpadding='0'>  <td><table border='0' cellspacing='2' cellpadding='0'>
 <tr><td bgcolor="#DDDDDD">  <tr><td bgcolor="#DDDDDD">
 <a href='/adm/coursedocs?cmd=up_$index&folderpath=$folderpath'>  <a href='/adm/coursedocs?cmd=up_$index&folderpath=$folderpath'>
Line 501  END Line 503  END
  $url=&Apache::lonnet::clutter($url);   $url=&Apache::lonnet::clutter($url);
  $url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);   $url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
     }      }
     my $parameterset='';      my $parameterset='&nbsp;';
     if ($isfolder) {      if ($isfolder) {
  my $foldername=&Apache::lonnet::escape($foldertitle);   my $foldername=&Apache::lonnet::escape($foldertitle);
  my $folderpath=$ENV{'form.folderpath'};   my $folderpath=$ENV{'form.folderpath'};
  if ($folderpath) { $folderpath.='&' };   if ($folderpath) { $folderpath.='&' };
  $folderpath.=$folderarg.'&'.$foldername;   $folderpath.=$folderarg.'&'.$foldername;
  $url.='folderpath='.&Apache::lonnet::escape($folderpath);   $url.='folderpath='.&Apache::lonnet::escape($folderpath);
  $parameterset='';   $parameterset=&mt('Randomly Pick: ').
       '<input type="text" size="4" name="randpick_$index" />';
     }      }
     $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.      $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.
  '" border="0"></a></td>'.   '" border="0"></a></td>'.
         "<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td>";          "<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td>";
     if ($allowed) {      if (($allowed) && ($folder!~/^supplemental/)) {
  my %lt=&Apache::lonlocal::texthash(    my %lt=&Apache::lonlocal::texthash(
       'hd' => 'Hidden',         'hd' => 'Hidden',
       'ec' => 'URL hidden',         'ec' => 'URL hidden',
       'rp' => 'Randomly Pick Number of Resources',         'sp' => 'Store Parameters');
       'sp' => 'Store Parameters');   $line.=(<<ENDPARMS);
   <td bgcolor="#BBBBFF"><font size='-2'>
   <input type="checkbox" name="hidprs_$index" /> $lt{'hd'}</td>
   <td bgcolor="#BBBBFF"><font size='-2'>
   <input type="checkbox" name="encprs_$index" /> $lt{'ec'}</td>
   <td bgcolor="#BBBBFF"><font size="-2">$parameterset</font></td>
   <td bgcolor="#BBBBFF"><font size='-2'>
   <a href='javascript:alert("Would be storing $index")'>$lt{'sp'}</a>
   </font></td>
   ENDPARMS
     }      }
     $line.="</tr>";      $line.="</form></tr>";
     return $line;      return $line;
 }  }
   
Removed from v.1.119  
changed lines
  Added in v.1.120

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