[BACK]Return to lonhelper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhelper.pm between versions 1.20 and 1.21

version 1.20, 2003/05/07 18:13:13 version 1.21, 2003/05/07 18:22:43
Line 1847  sub render { Line 1847  sub render {
             }              }
         }          }
     }      }
   
       function checkallid(value, idName) {
           for (i=0; i<document.forms.helpform.elements.length; i++) {
               ele = document.forms.helpform.elements[i];
               if (ele.id == idName) {
                   document.forms.helpform.elements[i].checked=value;
               }
           }
       }
 </script>  </script>
 SCRIPT  SCRIPT
         $buttons = <<BUTTONS;          $buttons = <<BUTTONS;
 <br /> &nbsp;  <br /> &nbsp;
 <input type="button" onclick="checkall(true, '$var')" value="Select All Files" />  <input type="button" onclick="checkall(true, '$var')" value="Select All Files" />
 <input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" />  <input type="button" onclick="checkall(false, '$var')" value="Unselect All Files" />
   <input type="button" onclick="checkallid(true, 'Published')" value="Select All Published" />
   <input type="button" onclick="checkallid(false, 'Published')" value="Unselect All Published" />
 <br /> &nbsp;  <br /> &nbsp;
 BUTTONS  BUTTONS
     }      }
Line 1895  BUTTONS Line 1906  BUTTONS
         if (&$filterFunc($file)) {          if (&$filterFunc($file)) {
             (my $status, my $color) = @{fileState($subdir, $file)};              (my $status, my $color) = @{fileState($subdir, $file)};
             $result .= '<tr><td align="right"' . " bgcolor='$color'>" .              $result .= '<tr><td align="right"' . " bgcolor='$color'>" .
                 "<input type='$type' name='" . $var                  "<input id='$status' type='$type' name='" . $var
             . ".forminput' value='" . HTML::Entities::encode($fileName) .              . ".forminput' value='" . HTML::Entities::encode($fileName) .
                 "'";                  "'";
             if (!$self->{'multichoice'} && $choices == 0) {              if (!$self->{'multichoice'} && $choices == 0) {
Removed from v.1.20  
changed lines
  Added in v.1.21

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>