loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.221, 2016/09/12 15:51:08	version 1.224, 2016/09/19 03:19:12
Line 1425 sub client_form {	Line 1425 sub client_form {
'changepass' => 'Save',	'changepass' => 'Save',
);	);

my $mobileargs;
(undef,undef,undef,undef,undef,undef,my $clientmobile) =
&Apache::loncommon::decode_user_agent();
if ($clientmobile) {
$mobileargs = 'autocapitalize="off" autocorrect="off" ';
}
my $output = '<form name="client" action="">'	my $output = '<form name="client" action="">'
.&Apache::lonhtmlcommon::start_pick_box();	.&Apache::lonhtmlcommon::start_pick_box();
if ($caller eq 'reset_by_email') {	if ($caller eq 'reset_by_email') {
Line 2200 push(@{ $menu[4]->{items} }, {	Line 2194 push(@{ $menu[4]->{items} }, {

}	}

my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);	my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
if (keys(%author_roles) > 0) {	if (keys(%author_coauthor_roles) > 0) {
push(@{ $menu[4]->{items} }, {	push(@{ $menu[4]->{items} }, {
linktext => 'Authoring Space Configuration',	linktext => 'Authoring Space Configuration',
url => '/adm/preferences?action=authorsettings',	url => '/adm/preferences?action=authorsettings',
permission => 'F',	permission => 'F',
icon => 'course_ini.png',	icon => 'codemirror.png',
linktitle => 'Settings for your authoring space.',	linktitle => 'Settings for your authoring space.',
});	});
}	}