loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.543, 2023/12/13 22:12:16	version 1.544, 2023/12/28 19:38:17
Line 1298 s&7&4&rename.png&Rename&resource[_5]&goc	Line 1298 s&7&4&rename.png&Rename&resource[_5]&goc
s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource	s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource
ENDMENUITEMS	ENDMENUITEMS
}	}
$menuitems .= (<<ENDMENUITEMS);	#
	# Print only makes sense for certain mime types
	#
	if ($thisdisfn=~/\.(xml\|html\|htm\|xhtml\|xhtm\|tex)$/ \|\| $thisdisfn=~/$LONCAPA::assess_re/) {
	$menuitems .= (<<ENDMENUITEMS);
s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document	s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
ENDMENUITEMS	ENDMENUITEMS
}	}
if (ref($bread_crumbs) eq 'ARRAY') {	if (ref($bread_crumbs) eq 'ARRAY') {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
foreach my $crumb (@{$bread_crumbs}){	foreach my $crumb (@{$bread_crumbs}){