loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.116, 2006/06/22 19:01:30	version 1.117, 2006/06/22 19:11:13
Line 99 sub display_common {	Line 99 sub display_common {
</table>	</table>
TABLE	TABLE
my @tree = split (/\//,$current_path);	my @tree = split (/\//,$current_path);
$r->print('<font size="+2">'.&make_anchor($url,$port_path,'/',$env{"form.mode"},$env{"form.fieldname"},$env{"form.continue"},$group).'/');	$r->print('<span class="LC_current_location">'.&make_anchor($url,$port_path,'/',$env{"form.mode"},$env{"form.fieldname"},$env{"form.continue"},$group).'/');
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 107 TABLE	Line 107 TABLE
$r->print(&make_anchor($url,$tree[$i],'/'.$newCurrentPath, $env{"form.mode"},$env{"form.fieldname"}, $env{"form.continue"},$group).'/');	$r->print(&make_anchor($url,$tree[$i],'/'.$newCurrentPath, $env{"form.mode"},$env{"form.fieldname"}, $env{"form.continue"},$group).'/');
}	}
}	}
$r->print('</font>');	$r->print('</span>');
&Apache::lonhtmlcommon::store_recent($namespace,$current_path,$current_path);	&Apache::lonhtmlcommon::store_recent($namespace,$current_path,$current_path);
$r->print('<br /><form method="post" action="'.$url.'?mode='.$env{"form.mode"}.'&fieldname='.$env{"form.fieldname"});	$r->print('<br /><form method="post" action="'.$url.'?mode='.$env{"form.mode"}.'&fieldname='.$env{"form.fieldname"});
if (defined($group)) {	if (defined($group)) {