loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.20, 2004/07/29 17:04:21	version 1.21, 2004/08/23 21:16:43
Line 260 sub handler {	Line 260 sub handler {
$r->print($displayOut);	$r->print($displayOut);
$r->print('</td></tr></table>');	$r->print('</td></tr></table>');
my @tree = split (/\//,$currentPath);	my @tree = split (/\//,$currentPath);
$r->print('<font size="+2">'.makeAnchor('portfolio','/').'/');	$r->print('<font size="+2">'.makeAnchor('/','/'));
if (@tree > 1){	if (@tree > 1){
my $newCurrentPath = '';	my $newCurrentPath = '';
for (my $i = 1; $i< @tree; $i++){	for (my $i = 1; $i< @tree; $i++){
Line 269 sub handler {	Line 269 sub handler {
}	}
}	}
$r->print('</font>');	$r->print('</font>');
	&Apache::lonhtmlcommon::store_recent('portfolio',$currentPath,$currentPath);
	$r->print('<br /><form method=post action="/adm/portfolio">'.&Apache::lonhtmlcommon::select_recent('portfolio','currentpath',
	'this.form.submit();'));
	$r->print("</form>");
$r->print('<table border="0" cellspacing="2" cellpadding="2">'.	$r->print('<table border="0" cellspacing="2" cellpadding="2">'.
'<tr><th> </th><th>Actions</th><th>Name</th><th>Title</th><th>Status</th><th>Last Modified</th></tr>');	'<tr><th> </th><th>Actions</th><th>Name</th><th>Title</th><th>Status</th><th>Last Modified</th></tr>');
foreach my $line (@dirList) {	foreach my $line (@dirList) {