loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.307, 2009/11/30 06:23:32	version 1.308, 2009/11/30 21:29:47
Line 512 sub registerurl {	Line 512 sub registerurl {
}	}

sub innerregister {	sub innerregister {
my ($forcereg, $titletable) = @_;	my ($forcereg,$titletable,$bread_crumbs) = @_;
my $result = '';	my $result = '';
my ($uname,$thisdisfn);	my ($uname,$thisdisfn);
my $const_space = ($env{'request.state'} eq 'construct');	my $const_space = ($env{'request.state'} eq 'construct');
Line 753 s&7&1&del.gif&delete[_1]&resource[_2]&go	Line 753 s&7&1&del.gif&delete[_1]&resource[_2]&go
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document	s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
}	}
	if ($noremote) {
	if (ref($bread_crumbs) eq 'ARRAY') {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	foreach my $crumb (@{$bread_crumbs}){
	&Apache::lonhtmlcommon::add_breadcrumb($crumb);
	}
	}
	}
} elsif ( defined($env{'request.course.id'}) &&	} elsif ( defined($env{'request.course.id'}) &&
$env{'request.symb'} ne '' ) {	$env{'request.symb'} ne '' ) {
#	#