Changes to Rico 3 as a result of regression testing with IE6, IE7, and IE8.

[infodrom/rico3] / plugins / asp / LoadRicoClient.asp

diff --git a/plugins/asp/LoadRicoClient.asp b/plugins/asp/LoadRicoClient.asp
index 3f35828..8e89bfa 100644 (file)
--- a/plugins/asp/LoadRicoClient.asp
+++ b/plugins/asp/LoadRicoClient.asp
@@ -44,12 +44,17 @@ End Sub
 ' jquery themes start with j-, rico themes start with r-\r
 Private theme         \r
 Public Property Let ricoTheme(ThemeName)\r
-  theme = "r-" & ThemeName\r
-  if ThemeName="grayedout" then imgHeading="grayedout.gif"\r
+  SetTheme "r-" & ThemeName\r
 End Property \r
 Public Property Let jTheme(ThemeName)\r
-  theme = "j-" & ThemeName\r
-End Property \r
+  SetTheme "j-" & ThemeName\r
+End Property\r
+\r
+\r
+Private Sub SetTheme(ByVal PrefixedTheme)\r
+  theme = PrefixedTheme\r
+  If PrefixedTheme = "r-grayedout" Then imgHeading = "grayedout.gif"\r
+End Sub\r
 \r
 \r
 Public Sub SetRicoClientPaths(ByVal jsPath, cssPath, imgPath)\r
@@ -69,7 +74,7 @@ End Sub
 ' Do no call in production\r
 Public Sub CheckQueryString()\r
   BaseLib=LCase(Request.QueryString("lib"))\r
-  theme=trim(Request.QueryString("theme"))\r
+  SetTheme trim(Request.QueryString("theme"))\r
   ricoLogging=CBool(trim(Request.QueryString("log")) <> "")\r
 end Sub\r
 \r