[Mldonkey-users] [PATCH 2/2] HTML: mark not saved values in options

[ygrek]

---
 src/daemon/common/commonMessages.ml |    9 +++++++++
 src/daemon/driver/driverCommands.ml |    4 ++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git src/daemon/common/commonMessages.ml 
src/daemon/common/commonMessages.ml
index ae03334..7896b5d 100644
--- src/daemon/common/commonMessages.ml
+++ src/daemon/common/commonMessages.ml
@@ -101,6 +101,7 @@ input.but2 {
 input.but {
   background: @color_input_button@;
   }
+input.changed { border: 2px solid red; }
 a:link, a:active, a:visited {
   text-decoration: none;
   font-family: verdana;
@@ -612,6 +613,14 @@ function servers() {
        }
 }
 
+function track_changed(obj)
+{
+  if (obj.value != obj.defaultValue)
+    obj.className += \" changed\";
+  else
+    obj.className = obj.className.replace(/\\bchanged\\b/,'');
+}
+
 //-->
   "
 
diff --git src/daemon/driver/driverCommands.ml 
src/daemon/driver/driverCommands.ml
index 2a31efb..4214b80 100644
--- src/daemon/driver/driverCommands.ml
+++ src/daemon/driver/driverCommands.ml
@@ -160,7 +160,7 @@ let list_options_html o list =
                                 o.option_value (if o.option_value="true" then 
"false" else "true")
           else
             Printf.bprintf buf "\\<input style=\\\"font-family: verdana; 
font-size: 10px;\\\"
-                                type=text name=value size=20 
value=\\\"%s\\\"\\>"
+                                type=text name=value 
onchange=\\\"track_changed(this)\\\" size=20 value=\\\"%s\\\"\\>"
                                 o.option_value;
         end;
         Printf.bprintf buf "\\</td\\>\\</form\\>\\<td 
class=\\\"sr\\\"\\>%s\\</td\\>" (shorten o.option_default 40);
@@ -201,7 +201,7 @@ let list_options oo list =
               \\<tr\\>\\<td\\>\\<form action=\\\"submit\\\" $S\\>
 \\<input type=hidden name=setoption value=q\\>
 \\<input type=hidden name=option value=%s\\> %s \\</td\\>\\<td\\>
-              \\<input type=text name=value size=40 value=\\\"%s\\\"\\>
+              \\<input type=text name=value 
onchange=\\\"track_changed(this)\\\" size=40 value=\\\"%s\\\"\\>
 \\</td\\>\\</tr\\>
 \\</form\\>
               " o.option_name o.option_name o.option_value
-- 
1.7.2.3