Index: lib/form/radio.php
===================================================================
RCS file: /cvsroot/moodle/moodle/lib/form/radio.php,v
retrieving revision 1.8
diff -u -r1.8 radio.php
--- lib/form/radio.php	27 Jul 2007 11:05:34 -0000	1.8
+++ lib/form/radio.php	19 Mar 2008 12:10:30 -0000
@@ -78,5 +78,21 @@
     {
         return '<span>' . parent::toHtml() . '</span>';
     }
+    /**
+     * Returns the disabled field. Accessibility: the return "[ ]" from parent
+     * class is not acceptable for screenreader users, and we DO want a label.
+     * @return    string
+     */
+    function getFrozenHtml()
+    {
+        //$this->_generateId();
+        $output = '<input type="radio" disabled="disabled" id="'.$this->getAttribute('id').'" ';
+        if ($this->getChecked()) {
+            $output .= 'checked="checked" />'.$this->_getPersistantData();
+        } else {
+            $output .= '/>';
+        }
+        return $output;
+    } //end func getFrozenHtml
 }
 ?>
\ No newline at end of file