From 918c04c9b1dd26fbc2084497f0e65f33801a8c87 Mon Sep 17 00:00:00 2001
From: Stephen Tweeddale <stephen.tweeddale@computerminds.co.uk>
Date: Thu, 7 Apr 2011 11:53:44 +0100
Subject: [PATCH] Added value field for Drupal7

---
 components/value.inc |  161 ++++++++++++++++++++++++++++++++++++++++++++++++++
 webform.module       |   10 +++
 2 files changed, 171 insertions(+), 0 deletions(-)
 create mode 100644 components/value.inc

diff --git a/components/value.inc b/components/value.inc
new file mode 100644
index 0000000..70c8295
--- /dev/null
+++ b/components/value.inc
@@ -0,0 +1,161 @@
+<?php
+
+/**
+ * @file
+ * Webform module value component.
+ */
+
+/**
+ * Implementation of _webform_defaults_component().
+ */
+function _webform_defaults_value() {
+  return array(
+    'name' => '',
+    'form_key' => NULL,
+    'pid' => 0,
+    'weight' => 0,
+    'value' => '',
+    'extra' => array(
+    ),
+  );
+}
+
+/**
+ * Implementation of _webform_theme_component().
+ */
+function _webform_theme_value() {
+  return array(
+    'webform_display_value' => array(
+      'render element' => 'element',
+    ),
+  );
+}
+
+/**
+ * Implementation of _webform_edit_component().
+ */
+function _webform_edit_value($component) {
+  $form = array();
+  $form['value'] = array(
+    '#type' => 'textarea',
+    '#title' => t('Default value'),
+    '#default_value' => $component['value'],
+    '#description' => t('The default value of the field.') . theme('webform_token_help'),
+    '#cols' => 60,
+    '#rows' => 5,
+    '#weight' => 0,
+  );
+  $form['extra']['description'] = array(); // Hide the description.
+  $form['display'] = array('#type' => 'markup'); // Hide the display options.
+  $form['display']['title_display'] = array();
+  return $form;
+}
+
+/**
+ * Implementation of _webform_render_component().
+ */
+function _webform_render_value($component, $value = NULL, $filter = TRUE) {
+  $element = array(
+    '#type' => 'value',
+    '#title' => $filter ? _webform_filter_xss($component['name']) : $component['name'],
+    '#default_value' => $filter ? _webform_filter_values($component['value']) : $component['value'],
+    '#weight' => $component['weight'],
+  );
+
+  if (isset($value[0])) {
+    $element['#default_value'] = $value[0];
+  }
+
+  return $element;
+}
+
+/**
+ * Implementation of _webform_display_component().
+ */
+function _webform_display_value($component, $value, $format = 'html') {
+  $element = array(
+    '#title' => t('!name (value)', array('!name' => $component['name'])),
+    '#markup' => isset($value[0]) ? $value[0] : NULL,
+    '#weight' => $component['weight'],
+    '#theme' => 'webform_display_value',
+    '#format' => $format,
+    '#theme' => 'webform_display_value',
+    '#theme_wrappers' => $format == 'text' ? array('webform_element_text') : array('webform_element'),
+    '#webform_component' => $component,
+  );
+
+  // TODO: This check is unusual. It shows value fields in e-mails but not
+  // when viewing in the browser unless you're an administrator. This should be
+  // a more logical check. See these related issues:
+  // http://drupal.org/node/313639
+  // http://drupal.org/node/781786
+  if ($format == 'html') {
+    $element['#access'] = user_access('edit all webform submissions') || user_access('access all webform results');
+  }
+
+  return $element;
+}
+
+function theme_webform_display_value($variables) {
+  $element = $variables['element'];
+
+  return $element['#format'] == 'html' ? filter_xss($element['#markup']) : $element['#markup'];
+}
+
+/**
+ * Implementation of _webform_analysis_component().
+ */
+function _webform_analysis_value($component, $sids = array()) {
+  $query = db_select('webform_submitted_data', 'wsd', array('fetch' => PDO::FETCH_ASSOC))
+    ->fields('wsd', array('no', 'data'))
+    ->condition('nid', $component['nid'])
+    ->condition('cid', $component['cid']);
+
+  if (count($sids)) {
+    $query->condition('sid', $sids, 'IN');
+  }
+
+  $nonblanks = 0;
+  $submissions = 0;
+  $wordcount = 0;
+
+  $result = $query->execute();
+  foreach ($result as $data) {
+    if (strlen(trim($data['data'])) > 0) {
+      $nonblanks++;
+      $wordcount += str_word_count(trim($data['data']));
+    }
+    $submissions++;
+  }
+
+  $rows[0] = array( t('Empty'), ($submissions - $nonblanks));
+  $rows[1] = array( t('Non-empty'), $nonblanks);
+  $rows[2] = array( t('Average submission length in words (ex blanks)'),
+                    ($nonblanks !=0 ? number_format($wordcount/$nonblanks, 2) : '0'));
+  return $rows;
+}
+
+/**
+ * Implementation of _webform_csv_data_component().
+ */
+function _webform_table_value($component, $value) {
+  return check_plain(empty($value[0]) ? '' : $value[0]);
+}
+
+/**
+ * Implementation of _webform_csv_data_component().
+ */
+function _webform_csv_headers_value($component, $export_options) {
+  $header = array();
+  $header[0] = '';
+  $header[1] = '';
+  $header[2] = $component['name'];
+  return $header;
+}
+
+/**
+ * Implementation of _webform_csv_data_component().
+ */
+function _webform_csv_data_value($component, $export_options, $value) {
+  return empty($value[0]) ? '' : $value[0];
+}
diff --git a/webform.module b/webform.module
index 612adb0..f811c90 100644
--- a/webform.module
+++ b/webform.module
@@ -786,6 +786,16 @@ function webform_webform_component_info() {
       ),
       'file' => 'components/time.inc',
     ),
+    'value' => array(
+      'label' => t('Value'),
+      'description' => t('A field which is not visible to the user, but is recorded with the submission.'),
+      'file' => 'components/value.inc',
+      'features' => array(
+        'required' => FALSE,
+        'email_address' => TRUE,
+        'email_name' => TRUE,
+      ),
+    ),
   );
 }
 
-- 
1.7.1