$head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
}
-if ( !defined($mobile) ) {
- $mobile = FS::UI::Web::is_mobile();
-}
-if ( $cgi->param('mobile') =~ /^(\d)$/ ) { # allow client to override
- $mobile = $1;
-}
-
my $conf = new FS::Conf;
my $curuser = $FS::CurrentUser::CurrentUser;
my $menu_position = $curuser->option('menu_position')
|| 'top'; #new default for 1.9
+if ( !defined($mobile) ) {
+ $mobile = $curuser->option('mobile_menu',1) && FS::UI::Web::is_mobile();
+}
+if ( $cgi->param('mobile') =~ /^(\d)$/ ) { # allow client to override
+ $mobile = $1;
+}
+
my $company_name;
my @agentnums = $curuser->agentnums;
if ( scalar(@agentnums) == 1 ) {
my %param = $access_user->options;
#XXX autogen
- my @paramlist = qw( locale menu_position default_customer_view
+ my @paramlist = qw( locale menu_position default_customer_view mobile_menu
disable_html_editor
email_address
snom-ip snom-username snom-password
</TR>
<TR>
+ <TH ALIGN="right">Enable mobile-friendly menu: </TH>
+ <TD COLSPAN=2>
+ <INPUT TYPE="checkbox" NAME="mobile_menu" VALUE="Y"
+<% $curuser->option('mobile_menu') ? 'CHECKED' : '' %>>
+ </TD>
+ </TR>
+
+ <TR>
<TH ALIGN="right">Default customer view: </TH>
<TD COLSPAN=2>
<SELECT NAME="default_customer_view">
</SELECT>
</TD>
</TR>
-
+
<TR>
<TH ALIGN="right" COLSPAN=1>Disable HTML editor for customer notes: </TH>
<TD ALIGN="left" COLSPAN=2>