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)) { |