Added checked option to ui_radio_columns_row

diff --git a/blue-theme/theme.pl b/blue-theme/theme.pl
index 84079e0..629f6d2 100755 (executable)
--- a/blue-theme/theme.pl
+++ b/blue-theme/theme.pl
@@ -177,15 +177,19 @@ return $rv;
 
 sub theme_ui_radio_columns_row
 {
-local ($cols, $tdtags, $checkname, $checkvalue) = @_;
+local ($cols, $tdtags, $checkname, $checkvalue, $checked) = @_;
 local $rv;
 local $cbid = &quote_escape(quotemeta("${checkname}_${checkvalue}"));
 local $rid = &quote_escape(quotemeta("row_${checkname}_${checkvalue}"));
 local $ridtr = &quote_escape("row_${checkname}_${checkvalue}");
+local $mycb = $cb;
+if ($checked) {
+       $mycb =~ s/mainbody/mainsel/g;
+       }
 
-$rv .= "<tr $cb id=\"$ridtr\" onMouseOver=\"this.className = document.getElementById('$cbid').checked ? 'mainhighsel' : 'mainhigh'\" onMouseOut=\"this.className = document.getElementById('$cbid').checked ? 'mainsel' : 'mainbody'\">\n";
+$rv .= "<tr $mycb id=\"$ridtr\" onMouseOver=\"this.className = document.getElementById('$cbid').checked ? 'mainhighsel' : 'mainhigh'\" onMouseOut=\"this.className = document.getElementById('$cbid').checked ? 'mainsel' : 'mainbody'\">\n";
 $rv .= "<td ".$tdtags->[0].">".
-       &ui_oneradio($checkname, $checkvalue, undef, 0, "onClick=\"for(i=0; i<form.$checkname.length; i++) { ff = form.${checkname}[i]; r = document.getElementById('row_'+ff.id); if (r) { r.className = 'mainbody' } } document.getElementById('$rid').className = this.checked ? 'mainhighsel' : 'mainhigh';\"").
+       &ui_oneradio($checkname, $checkvalue, undef, $checked, "onClick=\"for(i=0; i<form.$checkname.length; i++) { ff = form.${checkname}[i]; r = document.getElementById('row_'+ff.id); if (r) { r.className = 'mainbody' } } document.getElementById('$rid').className = this.checked ? 'mainhighsel' : 'mainhigh';\"").
        "</td>\n";
 local $i;
 for($i=0; $i<@$cols; $i++) {

diff --git a/ui-lib.pl b/ui-lib.pl
index 9c21ee6..4e36f6f 100644 (file)
--- a/ui-lib.pl
+++ b/ui-lib.pl
@@ -113,17 +113,17 @@ $rv .= "</tr>\n";
 return $rv;
 }
 
-# ui_radio_columns_row(&columns, &tdtags, checkname, checkvalue)
+# ui_radio_columns_row(&columns, &tdtags, checkname, checkvalue, [checked])
 # Returns HTML for a row in a multi-column table, in which the first
 # column is a radio button
 sub ui_radio_columns_row
 {
 return &theme_ui_radio_columns_row(@_) if (defined(&theme_ui_radio_columns_row));
-local ($cols, $tdtags, $checkname, $checkvalue) = @_;
+local ($cols, $tdtags, $checkname, $checkvalue, $checked) = @_;
 local $rv;
 $rv .= "<tr $cb class='ui_radio_columns'>\n";
 $rv .= "<td class='ui_radio_radio' ".$tdtags->[0].">".
-       &ui_oneradio($checkname, $checkvalue, "", 0)."</td>\n";
+       &ui_oneradio($checkname, $checkvalue, "", $checked)."</td>\n";
 local $i;
 for($i=0; $i<@$cols; $i++) {
        $rv .= "<td ".$tdtags->[$i+1].">";