|
version 1.221, 2016/09/12 15:51:08
|
version 1.223, 2016/09/16 22:42:26
|
|
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', |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpreferences.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface