--- webgui.orig//lib/WebGUI/Operation/Style.pm	2009-05-11 08:16:31.000000000 -0430
+++ webgui/lib/WebGUI/Operation/Style.pm	2011-10-20 17:13:27.000000000 -0430
@@ -70,5 +70,40 @@
 	return "";
 }

+=head2 www_useMobileStyle ( )
+
+Forcibly use the mobile style even if the mobile detection routines
+found a non-mobile user agent. This can be used from URLs of the form
+
+?op=style;method=useMobileStyle
+
+and will work for both registered and unregistered users, since it
+uses a scratch variable.
+
+=cut
+
+sub www_useMobileStyle {
+	my $session = shift;
+	$session->style->setMobileStyle(1);
+	return "";
+}
+
+=head2 www_clearMobileStyle ( )
+
+Forcibly use the non-mobile style even if the mobile detection routines
+found a mobile user agent. This can be used from URLs of the form
+
+?op=style;method=clearMobileStyle
+
+and will work for both registered and unregistered users, since it
+uses a scratch variable.
+
+=cut
+
+sub www_clearMobileStyle {
+	my $session = shift;
+	$session->style->setMobileStyle(0);
+	return "";
+}

 1;
diff -Naur webgui.orig//lib/WebGUI/Operation.pm webgui/lib/WebGUI/Operation.pm
--- webgui.orig//lib/WebGUI/Operation.pm	2011-09-06 11:20:41.000000000 -0430
+++ webgui/lib/WebGUI/Operation.pm	2011-10-20 17:16:05.000000000 -0430
@@ -193,9 +193,11 @@
 		'enableSendWebguiStats' => 'Statistics',
 		'viewStatistics' => 'Statistics',

+		'clearMobileStyle' => 'Style',
 		'makePrintable' => 'Style',
 		'setPersonalStyle' => 'Style',
 		'unsetPersonalStyle' => 'Style',
+		'useMobileStyle' => 'Style',

         'ajaxCreateUser' => 'User',
         'ajaxDeleteUser' => 'User',