loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.552, 2024/05/13 13:55:51	version 1.556, 2024/09/03 10:40:04
Line 1262 s&7&2&prt.png&Print&printout[_1]&gocstr(	Line 1262 s&7&2&prt.png&Print&printout[_1]&gocstr(
s&7&1&del.png&Delete&dir[_3]&gocstr('/adm/cfile?action=delete','$esc_currdir')&Delete this Directory	s&7&1&del.png&Delete&dir[_3]&gocstr('/adm/cfile?action=delete','$esc_currdir')&Delete this Directory
ENDMENUITEMS	ENDMENUITEMS
unless ($crsauthor_cstr) {	unless ($crsauthor_cstr) {
if ($env{'environment.authorarchive'}) {	if (($env{'environment.canarchive'}) &&
	($uname eq $env{'user.name'}) && ($udom eq $env{'user.domain'})) {
$menuitems .= (<<ENDMENUITEMS);	$menuitems .= (<<ENDMENUITEMS);
s&7&7&archive.png&Export&dir[_1]&gocstr('/adm/authorexport','$esc_currdir')&Export Authoring Space Archive	s&7&7&archive.png&Export&dir[_1]&gocstr('/adm/cfile?action=archive','$esc_currdir')&Export Authoring Space Archive
ENDMENUITEMS	ENDMENUITEMS
}	}
}	}
Line 2686 sub utilityfunctions {	Line 2687 sub utilityfunctions {
my $esc_url=&escape($currenturl);	my $esc_url=&escape($currenturl);
my $esc_symb=&escape($currentsymb);	my $esc_symb=&escape($currentsymb);
my $newname = &mt('New Name');	my $newname = &mt('New Name');
	&js_escape(\$newname);

my $countdown = &countdown_toggle_js();	my $countdown = &countdown_toggle_js();