loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

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

version 1.118, 2004/04/24 05:20:54	version 1.119, 2004/04/24 23:03:49
Line 448 sub entryline {	Line 448 sub entryline {
my $line='<tr>';	my $line='<tr>';
# Edit commands	# Edit commands
if ($allowed) {	if ($allowed) {
my %lt=('up' => 'Move Up',	my %lt=&Apache::lonlocal::texthash(
	'up' => 'Move Up',
'dw' => 'Move Down',	'dw' => 'Move Down',
'rm' => 'Remove',	'rm' => 'Remove',
'rn' => 'Rename');	'rn' => 'Rename');
Line 500 END	Line 501 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='';
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='';
}	}
$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></tr>";	"<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td>";
	if ($allowed) {
	my %lt=&Apache::lonlocal::texthash(
	'hd' => 'Hidden',
	'ec' => 'URL hidden',
	'rp' => 'Randomly Pick Number of Resources',
	'sp' => 'Store Parameters');
	}
	$line.="</tr>";
return $line;	return $line;
}	}

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

Removed from v.1.118
changed lines
	Added in v.1.119