pieforms-commit Mailing List for Pieforms

Revision: 1
          http://svn.sourceforge.net/pieforms/?rev=1&view=rev
Author:   oracleshinoda
Date:     2006-11-17 05:01:30 -0800 (Fri, 17 Nov 2006)

Log Message:
-----------
Initial import of Pieforms. Teh busted at the moment, will fix tomorrow. Er, today even.

Added Paths:
-----------
    pieforms/
    pieforms/README
    pieforms/doc/
    pieforms/src/
    pieforms/src/pieform/
    pieforms/src/pieform/elements/
    pieforms/src/pieform/elements/button.php
    pieforms/src/pieform/elements/cancel.php
    pieforms/src/pieform/elements/checkbox.php
    pieforms/src/pieform/elements/date.php
    pieforms/src/pieform/elements/expiry.php
    pieforms/src/pieform/elements/fieldset.php
    pieforms/src/pieform/elements/file.php
    pieforms/src/pieform/elements/hidden.php
    pieforms/src/pieform/elements/html.php
    pieforms/src/pieform/elements/password.php
    pieforms/src/pieform/elements/radio.php
    pieforms/src/pieform/elements/select.php
    pieforms/src/pieform/elements/submit.php
    pieforms/src/pieform/elements/submitcancel.php
    pieforms/src/pieform/elements/text.php
    pieforms/src/pieform/elements/textarea.php
    pieforms/src/pieform/elements/userlist.php
    pieforms/src/pieform/elements/wysiwyg.php
    pieforms/src/pieform/renderers/
    pieforms/src/pieform/renderers/div.php
    pieforms/src/pieform/renderers/multicolumntable.php
    pieforms/src/pieform/renderers/table.php
    pieforms/src/pieform/rules/
    pieforms/src/pieform/rules/email.php
    pieforms/src/pieform/rules/maxlength.php
    pieforms/src/pieform/rules/minlength.php
    pieforms/src/pieform/rules/required.php
    pieforms/src/pieform/rules/validateoptions.php
    pieforms/src/pieform.php

Added: pieforms/README
===================================================================
--- pieforms/README	                        (rev 0)
+++ pieforms/README	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,54 @@
+           Pieforms - Advanced web forms made easy
+
+             Nigel McNie - http://nigel.mcnie.name/
+       (C) 2006 Catalyst IT Ltd - http://catalyst.net.nz/
+
+ For installation instructions, please see the INSTALL file in this folder
+
+About Pieforms
+--------------
+
+Pieforms provides a simple, unified way to create, validate and process web
+forms all with a common look and field. It supports many more types of form
+controls (elements) than the standard HTML controls, for example date pickers
+and ajax comboboxes. In addition, each element can have pluggable rules
+applied to it, and the elements can be rendered inside custom containers,
+allowing a lot of flexibility around form output.
+
+Pieforms also has a really simple API that makes writing forms very easy. For
+most cases, you will simply define a hash describing your form and provide a
+callback function that will be called if the form is submitted and passes
+validation. However, there are plenty of hooks in place that allow much power
+in how the forms are handled, both server and client side.
+
+Pieforms supports many advanced features, that are as easy to use as flicking
+a switch. For example, change one flag and instantly your forms are submitted
+by AJAX - validation still works fine, just your forms are submitted a whole
+lot faster!
+
+Currently, Pieforms is under heavy development, but gains new features and
+bugfixes almost every day. While releases will be made regularly, it's
+probably best to work off of SVN for now.
+
+Requirements
+------------
+
+You've downloaded the PHP5 version of Pieforms. With some reasonably minimal
+hacking it could be made to work with PHP4 (by making sure that the $form
+object is passed around by reference with the & operator, removing some PHP5
+keywords like 'public' and 'private', and changing error handling to not
+involve throwing exceptions), I am not going to do the work involved unless I
+need it. If you want, you could get it working and provide a patch, which I
+would maintain as a separate tree.  But in reality, you should think about
+moving your project to PHP5.
+
+License and Copyright
+---------------------
+
+Pieforms is licensed under the GNU GPL. For more information, please see the
+COPYING file that comes with this package.
+
+Pieforms is copyright (C) 2006 Catalyst IT Ltd.
+
+
+  -- Nigel McNie <ni...@ca...>

Added: pieforms/src/pieform/elements/button.php
===================================================================
--- pieforms/src/pieform/elements/button.php	                        (rev 0)
+++ pieforms/src/pieform/elements/button.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,45 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a button. Custom buttons are rendered nearly the same as
+ * normal submit buttons, only their name is changed (for use by the Form class
+ * internally).
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+
+function form_render_button($element, $form) {
+    return '<input type="button"'
+        . Form::element_attributes($element)
+        . ' value="' . hsc($form->get_value($element)) . '">';
+}
+
+?>

Added: pieforms/src/pieform/elements/cancel.php
===================================================================
--- pieforms/src/pieform/elements/cancel.php	                        (rev 0)
+++ pieforms/src/pieform/elements/cancel.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,55 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a "cancel" button. Custom buttons are rendered nearly the same as
+ * normal submit buttons, only their name is changed (for use by the Form class
+ * internally).
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_cancel($element, Form $form) {
+    $attributes = Form::element_attributes($element);
+    $attributes = preg_replace('/name="(.*)"/', 'name="cancel_$1"', $attributes);
+    $attributes = preg_replace('/id="(.*)"/', 'id="cancel_$1"', $attributes);
+    return '<input type="submit"'
+        . $attributes
+        . ' value="' . hsc($form->get_value($element)) . '">';
+}
+
+// @todo how to support cancel buttons for ajax post? Possibly do a full post regardless...
+// or allow the user to specify a javascript function to run... it could do document.location=
+function form_get_value_js_cancel($element, $form) {
+    $formname = $form->get_name();
+    $name = $element['name'];
+    return "    data['{$name}_cancel'] = document.forms['$formname'].elements['{$name}_cancel'].value;\n";
+}
+
+?>

Added: pieforms/src/pieform/elements/checkbox.php
===================================================================
--- pieforms/src/pieform/elements/checkbox.php	                        (rev 0)
+++ pieforms/src/pieform/elements/checkbox.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,66 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Provides a basic checkbox input.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_checkbox($element, Form $form) {
+    $checked = false;
+    if (!empty($element['value'])) {
+        $checked = true;
+    }
+    if ($form->get_value($element)) {
+        $checked = true;
+    }
+    else if (!$form->is_submitted() && !empty($element['checked'])) {
+        $checked = true;
+    }
+
+    return '<input type="checkbox"'
+        . Form::element_attributes($element)
+        . ($checked ? ' checked="checked"' : '')
+        . '>';
+}
+
+function form_get_value_js_checkbox($element, Form $form) {
+    $formname = $form->get_name();
+    $name = $element['name'];
+    return <<<EOF
+    if (document.forms['$formname'].elements['$name'].checked) {
+        data['$name'] = 'on';
+    }
+
+EOF;
+}
+
+
+?>

Added: pieforms/src/pieform/elements/date.php
===================================================================
--- pieforms/src/pieform/elements/date.php	                        (rev 0)
+++ pieforms/src/pieform/elements/date.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,130 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Provides a date picker, in the form of three dropdowns.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_date($element, Form $form) {
+    $result = '';
+    $name = $element['name'];
+    $element['minyear'] = (isset($element['minyear'])) ? intval($element['minyear']) : 1950;
+    $element['maxyear'] = (isset($element['maxyear'])) ? intval($element['maxyear']) : 2050;
+    if (!isset($element['defaultvalue'])) {
+        $element['defaultvalue'] = array(date('Y'), date('m'), date('d'));
+    }
+
+    // Year
+    $value = form_render_select_get_value('year', $element['minyear'], $element['maxyear'],  $element, $form);
+    $year = '<select name="' . $name . "_year\">\n";
+    for ($i = $element['minyear']; $i <= $element['maxyear']; $i++) {
+        $year .= "\t<option value=\"$i\"" . (($value == $i) ? ' selected="selected"' : '') . ">$i</option>\n";
+    }
+    $year .= "</select>\n";
+
+    $value = form_render_select_get_value('month', 1, 12, $element, $form);
+    $month = '<select name="' . $name . "_month\">\n";
+    for ($i = 1; $i <= 12; $i++) {
+        $month .= "\t<option value=\"$i\"" . (($value == $i) ? ' selected="selected"' : '') . '>' . date('M', strtotime("2000-$i-01")) . "</option>\n";
+    }
+    $month .= "</select>\n";
+
+    $value = form_render_select_get_value('day', 1, 31, $element, $form);
+    $day = '<select name="' . $name . "_day\">\n";
+    for ($i = 1; $i <= 31; $i++) {
+        $day .= "\t<option value=\"$i\"" . (($value == $i) ? ' selected="selected"' : '') . ">$i</option>\n";
+    }
+    $day .= '</select>';
+
+    $result = $year . $month . $day;
+    return $result;
+}
+
+/** gets the value explicitly from the request */
+function form_get_value_date($element, Form $form) {
+    $name = $element['name'];
+    $global = ($form->get_method() == 'get') ? $_GET : $_POST;
+    $time = mktime(0, 0, 0, $global[$name . '_month'], $global[$name . '_day'], $global[$name . '_year']);
+    if (false === $time) {
+        return null;
+    }
+    return $time;
+}
+
+function form_get_value_js_date($element, Form $form) {
+    $formname = $form->get_name();
+    $name = $element['name'];
+    return <<<EOF
+    data['{$name}_year']  = document.forms['$formname'].elements['{$name}_year'].value;
+    data['{$name}_month'] = document.forms['$formname'].elements['{$name}_month'].value;
+    data['{$name}_day']   = document.forms['$formname'].elements['{$name}_day'].value;
+
+EOF;
+}
+
+/** helper: used when rendering the element, to get the value for it */
+function form_render_select_get_value($timeperiod, $min, $max, $element, Form $form) {
+    static $lookup = array(
+        'year' => 0,
+        'month' => 1,
+        'day' => 2
+    );
+    $index = $lookup[$timeperiod];
+
+    if (isset($element['value'][$index])) {
+        $value = $element['value'][$index];
+        if ($value < $min || $value > $max) {
+            $value = $min;
+        }
+        return $value;
+    }
+
+    $global = ($form->get_method() == 'get') ? $_GET : $_POST;
+    if (isset($global[$element['name'] . '_' . $timeperiod])) {
+        $value = $global[$element['name'] . '_' . $timeperiod];
+        if ($value < $min || $value > $max) {
+            $value = $min;
+        }
+        return $value;
+    }
+
+    if (isset($element['defaultvalue'][$index])) {
+        $value = $element['defaultvalue'][$index];
+        if ($value < $min || $value > $max) {
+            $value = $min;
+        }
+        return $value;
+    }
+
+    return null;
+}
+
+?>

Added: pieforms/src/pieform/elements/expiry.php
===================================================================
--- pieforms/src/pieform/elements/expiry.php	                        (rev 0)
+++ pieforms/src/pieform/elements/expiry.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,186 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Provides a duration chooser, with a text box for a number and a
+ * select box to choose the units, in days, weeks, months, years, or 'no end date'.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_expiry($element, Form $form) {
+    $result = '';
+    $name = $element['name'];
+    if (!isset($element['defaultvalue'])) {
+        $element['defaultvalue'] = null;
+    }
+
+    $global = ($form->get_method() == 'get') ? $_GET : $_POST;
+
+    // Get the value of the element for rendering.  The values of the
+    // two inputs are rendered, and the total time in seconds is
+    // stored in a hidden input.
+
+    if (isset($element['value'])) {
+        $seconds = $element['value'];
+        $values = get_expiry_from_seconds($element['value']);
+    }
+    else if (isset($global[$element['name'] . '_number'])
+             && isset($global[$element['name'] . '_units'])) {
+        $values = array('number' => $global[$element['name'] . '_number'],
+                        'units'  => $global[$element['name'] . '_units']);
+        $seconds = $values['number'] * seconds_in($values['units']);
+    }
+    else if (isset($element['defaultvalue'])) {
+        $seconds = $element['defaultvalue'];
+        $values = get_expiry_from_seconds($seconds);
+    }
+    else {
+        $values = array('number' => '', 'units' => 'noenddate');
+        $seconds = null;
+    }
+
+    $numberinput = '<input ';
+    if ($form->get_ajaxpost()) {
+        $numberinput .= 'onchange="' . $name . '_change()"';
+        $numberinput .= $values['units'] == 'noenddate' ? ' disabled="disabled"' : '';
+    }
+    $numberinput .= 'type="text" size="4" ' . 'name="' . $name . '_number" ';
+    $numberinput .= 'id="' . $name . '_number" value="' . $values['number'] . "\">\n";
+
+    $allunits = get_expiry_units();
+
+    $uselect = '<select ' . ($form->get_ajaxpost() ? 'onchange="' . $name . '_change()" ' : '');
+    $uselect .= 'name="' . $name . '_units" id="' . $name . '_units"' .  ">\n";
+    foreach ($allunits as $u) {
+        $uselect .= "\t<option value=\"$u\"" . (($values['units'] == $u) ? ' selected="selected"' : '') . '>' . get_string($u) . "</option>\n";
+    }
+    $uselect .= "</select>\n";
+
+    // The hidden input contains the value of the expiry in seconds
+    $hidden = '<input type="hidden" name="' . $name . '" id="' . $name . '" value="' . $seconds . "\">\n";
+
+    // Every time one of the two inputs is changed, update the number
+    // of seconds in the hidden input.
+    if ($form->get_ajaxpost()) {
+        $script = <<< EOJS
+<script type="text/javascript" language="javascript">
+function {$name}_change() {
+    var seconds = null;
+    if ($('{$name}_number').value > 0) {
+        var mult = $('{$name}_number').value * 60 * 60 * 24;
+        if ($('{$name}_units').value == 'days') {
+            seconds = mult;
+        } else if ($('{$name}_units').value == 'weeks') {
+            seconds = mult * 7;
+        } else if ($('{$name}_units').value == 'months') {
+            seconds = mult * 30;
+        } else if ($('{$name}_units').value == 'years') {
+            seconds = mult * 365;
+        }
+    }
+    else {
+        seconds = 0;
+    }
+    if ($('{$name}_units').value == 'noenddate') {
+        $('{$name}_number').disabled = true;
+    }
+    else {
+        $('{$name}_number').disabled = false;
+    }
+    $('{$name}').value = seconds;
+}
+</script>
+EOJS;
+    }
+    else {
+        $script = '';
+    }
+
+    return $numberinput . $uselect . $hidden . $script;
+}
+
+function get_expiry_units() {
+    return array('days','weeks','months','years','noenddate');
+}
+
+function seconds_in($unit) {
+    $dayseconds = 60 * 60 * 24;
+    switch ($unit) {
+    case 'days'   : return $dayseconds;
+    case 'weeks'  : return $dayseconds * 7;
+    case 'months' : return $dayseconds * 30;
+    case 'years'  : return $dayseconds * 365;
+    default       : return null;
+    }
+}
+
+function get_expiry_from_seconds($seconds) {
+    if ($seconds == null) {
+        return array('number' => '', 'units' => 'noenddate');
+    }
+    // This needs work to produce sensible values; at the moment it will convert
+    // 60 days into 2 months; 70 days into 7 weeks, etc.
+    $yearseconds = seconds_in('years');
+    if ($seconds % $yearseconds == 0 && $seconds > 0) {
+        return array('number' => (int) ($seconds / $yearseconds), 'units' => 'years');
+    }
+    $monthseconds = seconds_in('months');
+    if ($seconds % $monthseconds == 0 && $seconds > 0) {
+        return array('number' => (int) ($seconds / $monthseconds), 'units' => 'months');
+    }
+    $weekseconds = seconds_in('weeks');
+    if ($seconds % $weekseconds == 0 && $seconds > 0) {
+        return array('number' => (int) ($seconds / $weekseconds), 'units' => 'weeks');
+    }
+    $dayseconds = seconds_in('days');
+    if ($seconds % $dayseconds == 0) {
+        return array('number' => (int) ($seconds / $dayseconds), 'units' => 'days');
+    }
+    return null;
+}
+
+// /** gets the value explicitly from the request */
+// function form_get_value_expiry($element, Form $form) {
+//     $name = $element['name'];
+//     $global = ($form->get_method() == 'get') ? $_GET : $_POST;
+//     return $global[$name];
+//     //$unit = $global[$name . '_units'];
+//     //if ($unit == 'noenddate') {
+//     //    return null;
+//     //}
+//     //$allunits = get_expiry_units();
+//     //$number = $global[$name . '_number'];
+//     //if (!in_array($unit,$allunits) || $number < 0) {
+//     //    return null;
+//     //}
+//     //return $number * seconds_in($unit);
+// }
+
+?>

Added: pieforms/src/pieform/elements/fieldset.php
===================================================================
--- pieforms/src/pieform/elements/fieldset.php	                        (rev 0)
+++ pieforms/src/pieform/elements/fieldset.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,54 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a fieldset. Fieldsets contain other elements, and do not count as a
+ * "true" element, in that they do not have a value and cannot be validated.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_fieldset($element, Form $form) {
+    $result = "\n<fieldset>\n";
+    if (isset($element['legend'])) {
+        $result .= '<legend>' . hsc($element['legend']) . "</legend>\n";
+    }
+
+    foreach ($element['elements'] as $subname => $subelement) {
+        if ($subelement['type'] == 'hidden') {
+            throw new FormError("You cannot put hidden elements in fieldsets");
+        }
+        $result .= "\t" . form_render_element($subelement, $form);
+    }
+
+    $result .= "</fieldset>\n";
+    return $result;
+}
+
+?>

Added: pieforms/src/pieform/elements/file.php
===================================================================
--- pieforms/src/pieform/elements/file.php	                        (rev 0)
+++ pieforms/src/pieform/elements/file.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,61 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a basic HTML <input type="file"> element.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_file($element, Form $form) {
+    return '<input type="file"'
+        . Form::element_attributes($element) . '>';
+}
+
+function form_get_value_file($element, Form $form) {
+    if (isset($_FILES[$element['name']])) {
+        if (!$_FILES[$element['name']]['error']) {
+            return $_FILES[$element['name']];
+        }
+        return null;
+    }
+}
+
+function form_is_empty_file($value, $element) {
+    if (isset($_FILES[$element['name']]) && !$_FILES[$element['name']]['error']) {
+        return false;
+    }
+    return true;
+}
+
+// @todo: provide a mechanism for elements to claim they deal with files.
+// If this is triggered, the forms is forced to POST and the enctype stuff
+// is added.
+// @todo is enctype required for ajax submission of files?
+?>

Added: pieforms/src/pieform/elements/hidden.php
===================================================================
--- pieforms/src/pieform/elements/hidden.php	                        (rev 0)
+++ pieforms/src/pieform/elements/hidden.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,52 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a hidden element.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_hidden($element, Form $form) {
+    unset($element['tabindex']);
+    $value = $form->get_value($element);
+    if (is_array($value)) {
+        $result = '';
+        foreach ($value as $k => $v) {
+            $result .= '<input type="hidden" name="' . hsc($element['name'])
+                . '[' . hsc($k) . ']" value="' . hsc($v) . "\">\n";
+        }
+        return $result;
+    }
+    return '<input type="hidden"'
+        . Form::element_attributes($element)
+        . ' value="' . hsc($form->get_value($element)) . "\">\n";
+}
+
+?>

Added: pieforms/src/pieform/elements/html.php
===================================================================
--- pieforms/src/pieform/elements/html.php	                        (rev 0)
+++ pieforms/src/pieform/elements/html.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,41 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Penny Leach <pe...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Provides a way to pass in html that gets rendered
+ * by the render (as opposed to the markup element)
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_html($element, $form) {
+    return $element['value'];
+}
+
+?>

Added: pieforms/src/pieform/elements/password.php
===================================================================
--- pieforms/src/pieform/elements/password.php	                        (rev 0)
+++ pieforms/src/pieform/elements/password.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,53 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a password field
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_password($element, $form) {
+    return '<input type="password"'
+        . Form::element_attributes($element)
+        . ' value="' . hsc($form->get_value($element)) . '">';
+}
+
+function form_get_value_password($element, Form $form) {
+    $global = ($form->get_method() == 'get') ? $_GET : $_POST;
+    if (isset($global[$element['name']])) {
+        return $global[$element['name']];
+    }
+    if (isset($element['value'])) {
+        return $element['value'];
+    }
+    return null;
+}
+
+?>

Added: pieforms/src/pieform/elements/radio.php
===================================================================
--- pieforms/src/pieform/elements/radio.php	                        (rev 0)
+++ pieforms/src/pieform/elements/radio.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,88 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a set of radio buttons for a form
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_radio($element, Form $form) {
+    if (!isset($element['options']) || !is_array($element['options']) || count($element['options']) < 1) {
+        throw new FormException('Radio elements should have at least one option');
+    }
+    
+    $result = '';
+    $form_value = $form->get_value($element);
+    $id = $element['id'];
+
+    $separator = "\n";
+    if (isset($element['separator'])) {
+        $separator = $element['separator'] . $separator;
+    }
+
+    foreach ($element['options'] as $value => $text) {
+        $uid = $id . substr(md5(microtime()), 0, 4);
+        $element['id'] = $uid;
+        $result .= '<input type="radio"'
+            . Form::element_attributes($element)
+            . ' value="' . hsc($value) . '"'
+            . (($form_value == $value) ? ' checked="checked"' : '')
+            . "> <label for=\"$uid\">" . hsc($text) . "</label>$separator";
+    }
+    $result = substr($result, 0, -strlen($separator));
+    
+    return $result;
+}
+
+/**
+ * radio doesn't need a function to get a value from phpland because it comes
+ * through correctly from the request... however in javascript land things are
+ * harder.
+ *
+ * @todo maybe later: make the get_value_js functions return a javascript function,
+ * to keep their stuff in its own scope. Maybe. If js scoping rules mean this will help.
+ */
+function form_get_value_js_radio($element, Form $form) {
+    $formname = $form->get_name();
+    $name = $element['name'];
+    return <<<EOF
+    var radio = filter(function(radio) { return radio.checked; }, document.forms['$formname'].elements['$name']);
+    data['$name'] = radio[0].value;
+
+EOF;
+}
+
+function form_render_radio_set_attributes($element) {
+    $element['nolabel'] = true;
+    $element['rules']['validateoptions'] = true;
+    return $element;
+}
+
+?>

Added: pieforms/src/pieform/elements/select.php
===================================================================
--- pieforms/src/pieform/elements/select.php	                        (rev 0)
+++ pieforms/src/pieform/elements/select.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,107 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a dropdown list, including support for multiple choices.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_select($element, Form $form) {
+    if (!empty($element['multiple'])) {
+        $element['name'] .= '[]';
+    }
+
+    if (!empty($element['collapseifoneoption']) && count($element['options']) == 1) {
+        foreach ($element['options'] as $key => $value) {
+            $result = $value . '<input type="hidden" name="' . $element['name'] . '" value="' . $key . '">';
+        }
+        return $result;
+    }
+
+    $result = '<select'
+        . Form::element_attributes($element)
+        . (!empty($element['multiple']) ? ' multiple="multiple"' : '')
+        . ">\n";
+    if (!isset($element['options']) || !is_array($element['options']) || count($element['options']) < 1) {
+        $result .= "\t<option></option>\n";
+        log_warn('Select elements should have at least one option');
+    }
+
+    if (empty($element['multiple'])) {
+        $values = array($form->get_value($element)); 
+    }
+    else {
+        if (isset($element['value'])) {
+            $values = (array) $element['value'];
+        }
+        else if (isset($_POST[$element['name']])) {
+            $values = (array) $_POST[$element['name']];
+        }
+        else if (isset($element['defaultvalue'])) {
+            $values = (array) $element['defaultvalue'];
+        }
+        else {
+            $values = array();
+        }
+    }
+    foreach ($element['options'] as $key => $value) {
+        if (in_array($key, $values)) {
+            $selected = ' selected="selected"';
+        }
+        else {
+            $selected = '';
+        }
+        $result .= "\t<option value=\"" . hsc($key) . "\"$selected>" . hsc($value) . "</option>\n";
+    }
+
+    $result .= '</select>';
+    return $result;
+}
+
+function form_get_value_js_select($element, Form $form) {
+    $formname = $form->get_name();
+    $name = $element['name'];
+    if ($element['collapseifoneoption']) {
+        return "    data['$name'] = document.forms['$formname'].elements['$name'].value;\n";
+    }
+    return <<<EOF
+    var select = filter(function(option) { return option.selected; }, document.forms['$formname'].elements['$name'].options);
+    data['$name'] = map(function(o) { return o.value; }, select);
+
+EOF;
+}
+
+function form_render_select_set_attributes($element) {
+    $element['collapseifoneoption'] = true;
+    $element['rules']['validateoptions'] = true;
+    return $element;
+}
+
+?>

Added: pieforms/src/pieform/elements/submit.php
===================================================================
--- pieforms/src/pieform/elements/submit.php	                        (rev 0)
+++ pieforms/src/pieform/elements/submit.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,47 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a submit button
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_submit($element, $form) {
+    return '<input type="submit"'
+        . Form::element_attributes($element)
+        . ' value="' . hsc($form->get_value($element)) . '">';
+}
+
+function form_render_submit_set_attributes($element) {
+    $element['ajaxmessages'] = true;
+    return $element;
+}
+
+?>

Added: pieforms/src/pieform/elements/submitcancel.php
===================================================================
--- pieforms/src/pieform/elements/submitcancel.php	                        (rev 0)
+++ pieforms/src/pieform/elements/submitcancel.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,51 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a submit and cancel button
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_submitcancel($element, Form $form) {
+    require_once('submit.php');
+    require_once('cancel.php');
+    $submitelement = $element;
+    $submitelement['value'] = $element['value'][0];
+    $cancelelement = $element;
+    $cancelelement['value'] = $element['value'][1];
+    return form_render_submit($submitelement, $form) . ' ' . form_render_cancel($cancelelement, $form);
+}
+
+function form_render_submitcancel_set_attributes($element) {
+    $element['ajaxmessages'] = true;
+    return $element;
+}
+
+?>

Added: pieforms/src/pieform/elements/text.php
===================================================================
--- pieforms/src/pieform/elements/text.php	                        (rev 0)
+++ pieforms/src/pieform/elements/text.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,42 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Provides a basic text field input.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_text($element, $form) {
+    return '<input type="text"'
+        . Form::element_attributes($element)
+        . ' value="' . hsc($form->get_value($element)) . '">';
+}
+
+?>

Added: pieforms/src/pieform/elements/textarea.php
===================================================================
--- pieforms/src/pieform/elements/textarea.php	                        (rev 0)
+++ pieforms/src/pieform/elements/textarea.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,67 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a basic HTML <textarea> element.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_textarea($element, $form) {
+    $rows = $cols = $style = '';
+    if (isset($element['height'])) {
+        $style .= 'height:' . $element['height'] . ';';
+        $rows   = (intval($element['height'] > 0)) ? ceil(intval($element['height']) / 10) : 1;
+    }
+    elseif (isset($element['rows'])) {
+        $rows = $element['rows'];
+    }
+    else {
+        log_warn('No value for rows or height specified for textarea ' . $element['name']);
+    }
+
+    if (isset($element['width'])) {
+        $style .= 'width:' . $element['width'] . ';';
+        $cols   = (intval($element['width'] > 0)) ? ceil(intval($element['width']) / 10) : 1;
+    }
+    elseif (isset($element['cols'])) {
+        $cols = $element['cols'];
+    }
+    else {
+        log_warn('No value for cols or width specified for textarea ' . $element['name']);
+    }
+    $element['style'] = (isset($element['style'])) ? $style . $element['style'] : $style;
+    return '<textarea'
+        . (($rows) ? ' rows="' . $rows . '"' : '')
+        . (($cols) ? ' cols="' . $cols . '"' : '')
+        . Form::element_attributes($element, array('maxlength', 'size'))
+        . '>' . hsc($form->get_value($element)) . '</textarea>';
+}
+
+?>

Added: pieforms/src/pieform/elements/userlist.php
===================================================================
--- pieforms/src/pieform/elements/userlist.php	                        (rev 0)
+++ pieforms/src/pieform/elements/userlist.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,106 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Martyn Smith <ma...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Provides a basic text field input.
+ *
+ * @todo this is just lies ...
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_userlist($element, Form $form) {
+    $smarty = smarty();
+
+    $smarty->left_delimiter = '{{';
+    $smarty->right_delimiter = '}}';
+
+    $value = $form->get_value($element);
+
+    if (!is_array($value) && isset($element['defaultvalue']) && is_array($element['defaultvalue'])) {
+        $value = $element['defaultvalue'];
+    }
+
+    if (is_array($value) && count($value)) {
+        $members = get_records_select('usr','id IN (' . join(',',$value) . ')', null, '', 'id,firstname,lastname,preferredname');
+
+        foreach($members as &$member) {
+            $member = display_name($member);
+        }
+
+        $smarty->assign('options',$members);
+        $smarty->assign('value', join(',',$value));
+    }
+
+    $smarty->assign('name', $element['name']);
+    if (!empty($element['filter'])) {
+        $smarty->assign('filter', true);
+    }
+
+    return $smarty->fetch('form/userlist.tpl');
+}
+
+function form_get_value_userlist($element, Form $form) {
+    $name = $element['name'];
+
+    $global = ($form->get_method() == 'get') ? $_GET : $_POST;
+
+    if (isset($global[$name])) {
+        $value = $global[$name];
+
+        if ($value == '') {
+            return array();
+        }
+
+        if (preg_match('/^(\d+(,\d+)*)$/',$value)) {
+            return array_map('intval', explode(',', $value));
+        }
+
+        throw new FormException("Invalid value for userlist form element '$name' = '$value'");
+    }
+
+    return null;
+}
+
+function form_is_empty_userlist($value, $element) {
+    if (is_array($value) && count($value)) {
+        return false;
+    }
+
+    return true;
+}
+
+function form_render_userlist_set_attributes($element) {
+    // By default, use the filter select box
+    if (!isset($element['filter'])) {
+        $element['filter'] = true;
+    }
+    return $element;
+}
+
+?>

Added: pieforms/src/pieform/elements/wysiwyg.php
===================================================================
--- pieforms/src/pieform/elements/wysiwyg.php	                        (rev 0)
+++ pieforms/src/pieform/elements/wysiwyg.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,79 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-element
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Renders a textarea, but with extra javascript to turn it into a wysigyw
+ * textarea.
+ *
+ * Currently this is just a mirror of the textarea element, but it will change
+ * a bit later.
+ *
+ * @param array $element The element to render
+ * @param Form  $form    The form to render the element for
+ * @return string        The HTML for the element
+ */
+function form_render_wysiwyg($element, $form) {
+    $rows = $cols = $style = '';
+    if (isset($element['height'])) {
+        $style .= 'height:' . $element['height'] . ';';
+        $rows   = (intval($element['height'] > 0)) ? ceil(intval($element['height']) / 10) : 1;
+    }
+    elseif (isset($element['rows'])) {
+        $rows = $element['rows'];
+    }
+    else {
+        log_warn('No value for rows or height specified for textarea ' . $element['name']);
+    }
+
+    if (isset($element['width'])) {
+        $style .= 'width:' . $element['width'] . ';';
+        $cols   = (intval($element['width'] > 0)) ? ceil(intval($element['width']) / 10) : 1;
+    }
+    elseif (isset($element['cols'])) {
+        $cols = $element['cols'];
+    }
+    else {
+        log_warn('No value for cols or width specified for textarea ' . $element['name']);
+    }
+    $element['style'] = (isset($element['style'])) ? $style . $element['style'] : $style;
+    return '<textarea'
+        . (($rows) ? ' rows="' . $rows . '"' : '')
+        . (($cols) ? ' cols="' . $cols . '"' : '')
+        . Form::element_attributes($element, array('maxlength', 'size'))
+        . '>' . hsc($form->get_value($element)) . '</textarea>';
+}
+
+/**
+ * @todo document: basically, the required rule now works better, as stripping
+ * tags out takes away a whole bunch of hidden stuff
+ */
+function form_is_empty_wysiwyg($value, $element) {
+    return strip_tags($value) === '';
+}
+
+?>

Added: pieforms/src/pieform/renderers/div.php
===================================================================
--- pieforms/src/pieform/renderers/div.php	                        (rev 0)
+++ pieforms/src/pieform/renderers/div.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,71 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-renderer
+ * @author     Nigel McNie <ni...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ * @copyright  (C) 2006,2007 Catalyst IT Ltd http://catalyst.net.nz
+ *
+ */
+
+defined('INTERNAL') || die();
+
+/**
+ * Default renderer - renders form elements inside <div>s.
+ *
+ * @param string $builtelement The element, already built
+ * @param array  $rawelement   The element in raw form, for looking up
+ *                             information about it.
+ * @return string              The element rendered inside an appropriate
+ *                             container.
+ */
+function form_renderer_div($builtelement, $rawelement) {
+    // Set the class of the enclosing <div> to match that of the element
+    $result = '<div';
+    if ($rawelement['class']) {
+        $result .= ' class="' . $rawelement['class'] . '"';
+    }
+    $result .= '>';
+
+    if (isset($rawelement['title']) && $rawelement['type'] != 'fieldset') {
+        $result .= '<label for="' . $rawelement['id'] . '">' . hsc($rawelement['title']) . '</label>';
+    }
+
+    $result .= $builtelement;
+
+    // Contextual help
+    if (!empty($rawelement['help'])) {
+        $result .= ' <span class="help"><a href="#" title="' . hsc($rawelement['help']) . '">?</a></span>';
+    }
+
+    // Description - optional description of the element, or other note that should be visible
+    // on the form itself (without the user having to hover over contextual help 
+    if (!empty($rawelement['description'])) {
+        $result .= '<div class="description"> ' . hsc($rawelement['description']) . "</div>";
+    }
+
+    if (!empty($rawelement['error'])) {
+        $result .= '<div class="errmsg">' . hsc($rawelement['error']) . '</div>';
+    }
+
+    $result .= "</div>\n";
+    return $result;
+}
+
+?>

Added: pieforms/src/pieform/renderers/multicolumntable.php
===================================================================
--- pieforms/src/pieform/renderers/multicolumntable.php	                        (rev 0)
+++ pieforms/src/pieform/renderers/multicolumntable.php	2006-11-17 13:01:30 UTC (rev 1)
@@ -0,0 +1,113 @@
+<?php
+/**
+ * This program is part of Mahara
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+ *
+ * @package    mahara
+ * @subpackage form-renderer
+ * @author     Penny Leach <pe...@ca...>
+ * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL
+ *...
 
[truncated message content]