loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.242, 2008/09/11 13:30:59	version 1.243, 2008/09/11 21:05:19
Line 514 c&8&1	Line 514 c&8&1
c&8&2	c&8&2
s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document	s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1	s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1
s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&&1
ENDMENUITEMS	ENDMENUITEMS

	my $currentURL = &Apache::loncommon::get_symb();
	my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
	my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);
	$menuitems.="s&9&3&";
	if(length($annotation) > 0){
	$menuitems.="anot2.gif";
	}else{
	$menuitems.="anot.gif";
	}
	$menuitems.="&anno-[_1]&tations[_1]&annotate()&";
	$menuitems.="Make notes and annotations about this resource&&1\n";

unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {	unless ($env{'request.noversionuri'}=~/\/(bulletinboard\|smppg\|navmaps\|syllabus\|aboutme)(\?\|$)/) {
if (!$env{'request.enc'}) {	if (!$env{'request.enc'}) {
$menuitems.=(<<ENDREALRES);	$menuitems.=(<<ENDREALRES);