From 678a3e5b3c8a87048d9b3dd6038eb7ac11e19189 Mon Sep 17 00:00:00 2001
From: cfapress <cfapress>
Date: Fri, 13 Feb 2009 22:11:29 +0000
Subject: [PATCH] enhanced UI

---
 interface/super/edit_layout.php      | 997 +++++++++++++++++++++++++++--------
 interface/super/edit_list.php        | 208 ++++++--
 interface/super/show_lists_popup.php |  75 +++
 3 files changed, 1020 insertions(+), 260 deletions(-)
 rewrite interface/super/edit_layout.php (60%)
 create mode 100644 interface/super/show_lists_popup.php

diff --git a/interface/super/edit_layout.php b/interface/super/edit_layout.php
dissimilarity index 60%
index 663f8c40c..4764eac37 100644
--- a/interface/super/edit_layout.php
+++ b/interface/super/edit_layout.php
@@ -1,212 +1,785 @@
-<?php
-// Copyright (C) 2007 Rod Roark <rod@sunsetsystems.com>
-//
-// 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.
-
-require_once("../globals.php");
-require_once("$srcdir/acl.inc");
-
-$layouts = array(
-  'DEM' => xl('Demographics'),
-  'HIS' => xl('History'),
-  'REF' => xl('Referrals'),
-);
-if ($GLOBALS['ippf_specific']) {
-  $layouts['GCA'] = xl('Abortion Issues');
-  $layouts['CON'] = xl('Contraception Issues');
-  $layouts['SRH'] = xl('SRH Visit Form');
-}
-
-$layout_id = empty($_REQUEST['layout_id']) ? 'DEM' : $_REQUEST['layout_id'];
-
-// Check authorization.
-$thisauth = acl_check('admin', 'super');
-if (!$thisauth) die("Not authorized.");
-
-$fld_line_no = 0;
-
-// Write one option line to the form.
-//
-function writeFieldLine($field_id, $group, $title, $seq, $uor, $length,
-  $titlecols, $datacols, $default, $desc, $data_type)
-{
-  global $fld_line_no;
-  ++$fld_line_no;
-  $bgcolor = "#" . (($fld_line_no & 1) ? "ddddff" : "ffdddd");
-  $checked = $default ? " checked" : "";
-
-  echo " <tr bgcolor='$bgcolor'>\n";
-
-  echo "  <td align='left' class='optcell'>";
-  echo $field_id;
-  echo "<input type='hidden' name='fld[$fld_line_no][id]' value='" .
-       htmlspecialchars($field_id, ENT_QUOTES) . "' size='20' />";
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  echo "<input type='text' name='fld[$fld_line_no][title]' value='" .
-       htmlspecialchars($title, ENT_QUOTES) . "' size='20' maxlength='63' class='optin' />";
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  echo "<input type='text' name='fld[$fld_line_no][group]' value='" .
-       htmlspecialchars($group, ENT_QUOTES) . "' size='10' maxlength='63' class='optin' />";
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  echo "<input type='text' name='fld[$fld_line_no][seq]' value='" .
-       htmlspecialchars($seq, ENT_QUOTES) . "' size='4' maxlength='10' class='optin' />";
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  echo "<select name='fld[$fld_line_no][uor]' class='optin'>";
-  foreach (array(0 =>xl('Unused'), 1 =>xl('Optional'), 2 =>xl('Required')) as $key => $value) {
-    echo "<option value='$key'";
-    if ($key == $uor) echo " selected";
-    echo ">$value</option>\n";
-  }
-  echo "</select>";
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  echo "<input type='text' name='fld[$fld_line_no][length]' value='" .
-       htmlspecialchars($length, ENT_QUOTES) . "' size='3' maxlength='10' class='optin' />";
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  echo "<input type='text' name='fld[$fld_line_no][titlecols]' value='" .
-       htmlspecialchars($titlecols, ENT_QUOTES) . "' size='3' maxlength='10' class='optin' />";
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  echo "<input type='text' name='fld[$fld_line_no][datacols]' value='" .
-       htmlspecialchars($datacols, ENT_QUOTES) . "' size='3' maxlength='10' class='optin' />";
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  if ($data_type == 2) {
-    echo "<input type='text' name='fld[$fld_line_no][default]' value='" .
-         htmlspecialchars($default, ENT_QUOTES) . "' size='20' maxlength='63' class='optin' />";
-  } else {
-    echo "&nbsp;";
-  }
-  echo "</td>\n";
-
-  echo "  <td align='center' class='optcell'>";
-  echo "<input type='text' name='fld[$fld_line_no][desc]' value='" .
-       htmlspecialchars($desc, ENT_QUOTES) . "' size='20' maxlength='63' class='optin' />";
-  echo "</td>\n";
-
-  echo " </tr>\n";
-}
-?>
-<html>
-
-<head>
-<?php html_header_show();?>
-
-<link rel="stylesheet" href='<?php  echo $css_header ?>' type='text/css'>
-<title><?php  xl('Layout Editor','e'); ?></title>
-
-<style>
-tr.head   { font-size:10pt; background-color:#cccccc; }
-tr.detail { font-size:10pt; }
-td        { font-size:10pt; }
-input     { font-size:10pt; }
-a, a:visited, a:hover { color:#0000cc; }
-.optcell  { }
-.optin    { background-color:transparent; }
-</style>
-
-<script type="text/javascript" src="../../library/dialog.js"></script>
-
-<script language="JavaScript">
-</script>
-
-</head>
-
-<body class="body_top">
-
-<?php
-// If we are saving, then save.
-//
-if ($_POST['form_save'] && $layout_id) {
-  $fld = $_POST['fld'];
-  for ($lino = 1; isset($fld["$lino"]['id']); ++$lino) {
-    $iter = $fld["$lino"];
-    $field_id = trim($iter['id']);
-    if ($field_id) {
-      sqlStatement("UPDATE layout_options SET " .
-        "title = '"         . trim($iter['title'])     . "', " .
-        "group_name = '"    . trim($iter['group'])     . "', " .
-        "seq = '"           . trim($iter['seq'])       . "', " .
-        "uor = '"           . trim($iter['uor'])       . "', " .
-        "fld_length = '"    . trim($iter['length'])    . "', " .
-        "titlecols = '"     . trim($iter['titlecols']) . "', " .
-        "datacols = '"      . trim($iter['datacols'])  . "', " .
-        "default_value = '" . trim($iter['default'])   . "', " .
-        "description = '"   . trim($iter['desc'])      . "' " .
-        "WHERE form_id = '$layout_id' AND field_id = '$field_id'");
-    }
-  }
-}
-
-// Get the selected list's elements.
-if ($layout_id) {
-  $res = sqlStatement("SELECT * FROM layout_options WHERE " .
-    "form_id = '$layout_id' ORDER BY group_name, seq");
-}
-?>
-
-<form method='post' name='theform' action='edit_layout.php'>
-
-<p><b>Edit layout:</b>&nbsp;
-<select name ='layout_id' onchange='form.submit()'>
-<?php
-foreach ($layouts as $key => $value) {
-  echo "<option value='$key'";
-  if ($key == $layout_id) echo " selected";
-  echo ">$value</option>\n";
-}
-?>
-</select></p>
-
-<center>
-
-<table cellpadding='2' cellspacing='0'>
- <tr class='head'>
-  <td align='left'><b><?php   xl('ID','e'); ?></b></td>
-  <td align='center'><b><?php xl('Label','e'); ?></b></td>
-  <td align='center'><b><?php xl('Group','e'); ?></b></td>
-  <td align='center'><b><?php xl('Order','e'); ?></b></td>
-  <td align='center'><b><?php xl('UOR','e'); ?></b></td>
-  <td align='center'><b><?php xl('Size','e'); ?></b></td>
-  <td align='center'><b><?php xl('Label Columns','e'); ?></b></td>
-  <td align='center'><b><?php xl('Data Columns','e'); ?></b></td>
-  <td align='center'><b><?php xl('Default Value','e'); ?></b></td>
-  <td align='center'><b><?php xl('Description','e'); ?></b></td>
- </tr>
-
-<?php 
-while ($row = sqlFetchArray($res)) {
-  writeFieldLine($row['field_id'], $row['group_name'], $row['title'],
-    $row['seq'], $row['uor'], $row['fld_length'], $row['titlecols'],
-    $row['datacols'], $row['default_value'], $row['description'],
-    $row['data_type']);
-}
-?>
-
-</table>
-
-<p>
- <input type='submit' name='form_save' value='<?php xl('Save','e'); ?>' />
-</p>
-
-</center>
-
-</form>
-</body>
-</html>
+<?php
+// Copyright (C) 2007 Rod Roark <rod@sunsetsystems.com>
+//
+// 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.
+
+require_once("../globals.php");
+require_once("$srcdir/acl.inc");
+
+$layouts = array(
+  'DEM' => xl('Demographics'),
+  'HIS' => xl('History'),
+  'REF' => xl('Referrals'),
+);
+if ($GLOBALS['ippf_specific']) {
+  $layouts['GCA'] = xl('Abortion Issues');
+  $layouts['CON'] = xl('Contraception Issues');
+  $layouts['SRH'] = xl('SRH Visit Form');
+}
+
+// array of the data_types of the fields
+$datatypes = array("1"=>"list box", 
+                    "2"=>"textbox",
+                    "3"=>"textarea",
+                    "4"=>"text-date",
+                    "10"=>"Providers",
+                    "11"=>"Providers NPI",
+                    "12"=>"Pharmacies",
+                    "13"=>"Squads",
+                    "14"=>"Organizations",
+                    "15"=>"Billing codes",
+                    "21"=>"checkbox list",
+                    "22"=>"textbox list",
+                    "23"=>"Exam results",
+                    "24"=>"Patient allergies",
+                    "25"=>"checkbox w/ text"
+                    );
+
+// Check authorization.
+$thisauth = acl_check('admin', 'super');
+if (!$thisauth) die("Not authorized.");
+
+// the layout ID defaults to DEM (demographics)
+$layout_id = empty($_REQUEST['layout_id']) ? 'DEM' : $_REQUEST['layout_id'];
+
+// Handle the Form actions
+
+if ($_POST['formaction']=="save" && $layout_id) {
+    // If we are saving, then save.
+  $fld = $_POST['fld'];
+  for ($lino = 1; isset($fld["$lino"]['id']); ++$lino) {
+    $iter = $fld["$lino"];
+    $field_id = trim($iter['id']);
+    if ($field_id) {
+      sqlStatement("UPDATE layout_options SET " .
+        "title = '"         . trim($iter['title'])     . "', " .
+        "group_name = '"    . trim($iter['group'])     . "', " .
+        "seq = '"           . trim($iter['seq'])       . "', " .
+        "uor = '"           . trim($iter['uor'])       . "', " .
+        "fld_length = '"    . trim($iter['length'])    . "', " .
+        "titlecols = '"     . trim($iter['titlecols']) . "', " .
+        "datacols = '"      . trim($iter['datacols'])  . "', " .
+        "data_type= '"      . trim($iter['data_type'])  . "', " .
+        "list_id= '"        . trim($iter['list_id'])  . "', " .
+        "default_value = '" . trim($iter['default'])   . "', " .
+        "description = '"   . trim($iter['desc'])      . "' " .
+        "WHERE form_id = '$layout_id' AND field_id = '$field_id'");
+    }
+  }
+}
+
+else if ($_POST['formaction']=="addfield" && $layout_id) {
+    // Add a new field to a specific group
+    sqlStatement("INSERT INTO layout_options (".
+                "form_id, field_id, title, group_name, seq, uor, fld_length ".
+                ",titlecols, datacols, data_type, default_value, description ".
+                ", max_length".
+                ") VALUES (".
+                "'".trim($_POST['layout_id'])."'".
+                ",'".trim($_POST['newid'])."'".
+                ",'".trim($_POST['newtitle'])."'".
+                ",'".trim($_POST['newfieldgroupid'])."'".
+                ",'".trim($_POST['newseq'])."'".
+                ",'".trim($_POST['newuor'])."'".
+                ",'".trim($_POST['newlength'])."'".
+                ",'".trim($_POST['newtitlecols'])."'".
+                ",'".trim($_POST['newdatacols'])."'".
+                ",'".trim($_POST['newdatatype'])."'".
+                ",'".trim($_POST['newdefault'])."'".
+                ",'".trim($_POST['newdesc'])."'".
+                ",'".trim($_POST['newlength'])."'". // maxlength = length
+                ")");
+
+}
+
+else if ($_POST['formaction']=="deletefield" && $layout_id) {
+    // Delete a field from a specific group
+    sqlStatement("DELETE FROM layout_options WHERE ".
+                " form_id = '".$_POST['layout_id']."' ".
+                " AND field_id = '".$_POST['deletefieldid']."'".
+                " AND group_name = '".$_POST['deletefieldgroup']."'"
+                );
+}
+
+else if ($_POST['formaction']=="addgroup" && $layout_id) {
+    // all group names are prefixed with a number indicating their display order
+    // this new group is prefixed with the net highest number given the
+    // layout_id
+    $results = sqlStatement("select distinct(group_name) as gname ".
+                        " from layout_options where ".
+                        " form_id = '".$_POST['layout_id']."'"
+                        );
+    $maxnum = 0;
+    while ($result = sqlFetchArray($results)) {
+        // split the number from the group name
+        $parts = preg_split("/([A-Z]|[a-z])/", $result['gname']);
+        if ($parts[0] >= $maxnum) { $maxnum = $parts[0] + 1; }
+    }
+
+    // add a new group to the layout, with a default field
+    sqlStatement("INSERT INTO layout_options (".
+                "form_id, field_id, title, group_name". 
+                ") VALUES (".
+                "'".trim($_POST['layout_id'])."'".
+                ",'newfield'".
+                ",'newfield'".
+                ",'".trim($maxnum . $_POST['newgroupname'])."'".
+                ")");
+}
+
+else if ($_POST['formaction']=="deletegroup" && $layout_id) {
+    // Delete an entire group from the form
+    sqlStatement("DELETE FROM layout_options WHERE ".
+                " form_id = '".$_POST['layout_id']."' ".
+                " AND group_name = '".$_POST['deletegroupname']."'"
+                );
+}
+
+else if ($_POST['formaction']=="movegroup" && $layout_id) {
+    
+    // split the numeric order out of the group name
+    $parts = preg_split("/(^\d)/", $_POST['movegroupname'], -1, PREG_SPLIT_DELIM_CAPTURE);
+    $currpos = $newpos = $parts[1];
+    $groupname = $parts[2];
+
+    // inc/dec the order number
+    if ($_POST['movedirection'] == 'up') {
+        $newpos--;
+        if ($newpos < 0) { $newpos = 0; }
+    }
+    else if ($_POST['movedirection'] == 'down') {
+        $newpos++;
+    }
+    
+    // if we can't determine a position, then assign it a zero
+    if ($newpos == "") $newpos = "0";
+
+    // update the database rows 
+    sqlStatement("UPDATE layout_options SET ".
+                "group_name='".$newpos.$groupname."'".
+                " WHERE ".
+                "group_name='".$currpos.$groupname."'"
+                );
+}
+
+else if ($_POST['formaction']=="renamegroup" && $layout_id) {
+    
+    // split the numeric order out of the group name
+    $parts = preg_split("/(^\d)/", $_POST['renameoldgroupname'], -1, PREG_SPLIT_DELIM_CAPTURE);
+    $currpos = $parts[1];
+
+    // if we can't determine a position, then assign it a zero
+    if ($currpos == "") $currpos = "0";
+
+    // update the database rows 
+    sqlStatement("UPDATE layout_options SET ".
+                "group_name='".$currpos.$_POST['renamegroupname']."'".
+                " WHERE ".
+                "group_name='".$_POST['renameoldgroupname']."'"
+                );
+}
+
+
+// Get the selected form's elements.
+if ($layout_id) {
+  $res = sqlStatement("SELECT * FROM layout_options WHERE " .
+                        "form_id = '$layout_id' ORDER BY group_name, seq");
+}
+
+
+// global counter for field numbers
+$fld_line_no = 0;
+
+// Write one option line to the form.
+//
+function writeFieldLine($linedata) {
+    global $fld_line_no;
+    ++$fld_line_no;
+    $checked = $linedata['default_value'] ? " checked" : "";
+  
+    //echo " <tr bgcolor='$bgcolor'>\n";
+    echo " <tr id='fld[$fld_line_no]' class='".($fld_line_no % 2 ? 'even' : 'odd')."'>\n";
+  
+    echo "  <td align='center' class='optcell'>";
+    // tuck the group_name INPUT in here
+    echo "<input type='hidden' name='fld[$fld_line_no][group]' value='" .
+         htmlspecialchars($linedata['group_name'], ENT_QUOTES) . "' class='optin' />";
+    echo "<input type='button' class='deletefield' ".
+            "name='".$linedata['group_name']."~".$linedata['field_id']."' ".
+            "id='".$linedata['group_name']."~".$linedata['field_id']."' value='X' title='Delete field'>";
+    echo "<input type='text' name='fld[$fld_line_no][seq]' id='fld[$fld_line_no][seq]' value='" .
+         htmlspecialchars($linedata['seq'], ENT_QUOTES) . "' size='2' maxlength='3' class='optin' />";
+    echo "</td>\n";
+  
+    echo "  <td align='left' class='optcell'>";
+    echo "<input type='text' name='fld[$fld_line_no][id]' value='" .
+         htmlspecialchars($linedata['field_id'], ENT_QUOTES) . "' size='10' class='optin'/>";
+    echo "</td>\n";
+  
+    echo "  <td align='center' class='optcell'>";
+    echo "<input type='text' name='fld[$fld_line_no][title]' value='" .
+         htmlspecialchars($linedata['title'], ENT_QUOTES) . "' size='20' maxlength='63' class='optin' />";
+    echo "</td>\n";
+
+    echo "  <td align='center' class='optcell'>";
+    echo "<select name='fld[$fld_line_no][uor]' class='optin'>";
+    foreach (array(0 =>xl('Unused'), 1 =>xl('Optional'), 2 =>xl('Required')) as $key => $value) {
+        echo "<option value='$key'";
+        if ($key == $linedata['uor']) echo " selected";
+        echo ">$value</option>\n";
+    }
+    echo "</select>";
+    echo "</td>\n";
+  
+    echo "  <td align='center' class='optcell'>";
+    echo "<select name='fld[$fld_line_no][data_type]' id='fld[$fld_line_no][data_type]'>";
+    echo "<option value=''></option>";
+    GLOBAL $datatypes;
+    foreach ($datatypes as $key=>$value) {
+        if ($linedata['data_type'] == $key)
+            echo "<option value='$key' selected>$value</option>";
+        else
+            echo "<option value='$key'>$value</option>";
+    }
+    echo "</select>";
+    echo "  </td>";
+
+    echo "  <td align='center' class='optcell'>";
+    if ($linedata['data_type'] == 2 || $linedata['data_type'] == 3)
+    {
+        // textbox or textarea
+        echo "<input type='hidden' name='fld[$fld_line_no][list_id]' value=''>";
+        echo "<input type='text' name='fld[$fld_line_no][length]' value='" .
+            htmlspecialchars($linedata['fld_length'], ENT_QUOTES) . "' size='1' maxlength='10' class='optin' />";
+    }
+    else if ($linedata['data_type'] == 4) {
+        // text-date
+        echo "<input type='hidden' name='fld[$fld_line_no][length]' value=''>";
+        echo "<span>(date)</span>";
+    }
+    else if ($linedata['data_type'] == 1 || $linedata['data_type'] == 21 ||
+             $linedata['data_type'] == 22 || $linedata['data_type'] == 25)
+    {
+        // select, checkbox, textbox list, or checkbox list w/ text
+        echo "<input type='hidden' name='fld[$fld_line_no][length]' value=''>";
+        echo "<input type='text' name='fld[$fld_line_no][list_id]' value='" .
+            htmlspecialchars($linedata['list_id'], ENT_QUOTES) . "'".
+            "size='1' maxlength='10' class='optin listid' style='cursor: pointer'".
+            "title='Choose list' />";
+    }
+    else {
+        // all other data_types
+        echo "<input type='hidden' name='fld[$fld_line_no][length]' value=''>";
+        if ($linedata['list_id'] != "") {
+            echo "<span title='".$linedata['list_id']."'>(list)</span>";
+        }
+    }
+    echo "</td>\n";
+  
+    echo "  <td align='center' class='optcell'>";
+    echo "<input type='text' name='fld[$fld_line_no][titlecols]' value='" .
+         htmlspecialchars($linedata['titlecols'], ENT_QUOTES) . "' size='3' maxlength='10' class='optin' />";
+    echo "</td>\n";
+  
+    echo "  <td align='center' class='optcell'>";
+    echo "<input type='text' name='fld[$fld_line_no][datacols]' value='" .
+         htmlspecialchars($linedata['datacols'], ENT_QUOTES) . "' size='3' maxlength='10' class='optin' />";
+    echo "</td>\n";
+ 
+    echo "  <td align='center' class='optcell'>";
+    if ($linedata['data_type'] == 2) {
+      echo "<input type='text' name='fld[$fld_line_no][default]' value='" .
+           htmlspecialchars($linedata['default_value'], ENT_QUOTES) . "' size='10' maxlength='63' class='optin' />";
+    } else {
+      echo "&nbsp;";
+    }
+    echo "</td>\n";
+  
+    echo "  <td align='center' class='optcell'>";
+    echo "<input type='text' name='fld[$fld_line_no][desc]' value='" .
+         htmlspecialchars($linedata['description'], ENT_QUOTES) . "' size='20' maxlength='63' class='optin' />";
+    echo "</td>\n";
+  
+    echo " </tr>\n";
+}
+?>
+<html>
+
+<head>
+<?php html_header_show();?>
+
+<!-- supporting javascript code -->
+<script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/js/jquery.js"></script>
+<script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/dialog.js"></script>
+
+<link rel="stylesheet" href='<?php  echo $css_header ?>' type='text/css'>
+<title><?php  xl('Layout Editor','e'); ?></title>
+
+<style>
+tr.head   { font-size:10pt; background-color:#cccccc; }
+tr.detail { font-size:10pt; }
+td        { font-size:10pt; }
+input     { font-size:10pt; }
+a, a:visited, a:hover { color:#0000cc; }
+.optcell  { }
+.optin    { background: transparent; }
+.group {
+    margin: 10px;
+    width: 100%;
+}
+.group table {
+    border-collapse: collapse;
+    width: 100%;
+}
+.odd td {
+    background-color: #ddddff;
+    padding: 3px 0px 3px 0px;
+}
+.even td {
+    background-color: #ffdddd;
+    padding: 3px 0px 3px 0px;
+}
+.moveup {
+    cursor: pointer;
+}
+.movedown {
+    cursor: pointer;
+}
+.help {
+    cursor: help;
+}
+.layouts_title {
+    font-size: 110%;
+}
+</style>
+
+
+</head>
+
+<body class="body_top">
+
+
+<form method='post' name='theform' id='theform' action='edit_layout.php'>
+<input type="hidden" name="formaction" id="formaction" value="">
+<!-- elements used to identify a field to delete -->
+<input type="hidden" name="deletefieldid" id="deletefieldid" value="">
+<input type="hidden" name="deletefieldgroup" id="deletefieldgroup" value="">
+<!-- elements used to identify a group to delete -->
+<input type="hidden" name="deletegroupname" id="deletegroupname" value="">
+<!-- elements used to change the group order -->
+<input type="hidden" name="movegroupname" id="movegroupname" value="">
+<input type="hidden" name="movedirection" id="movedirection" value="">
+
+<p><b>Edit layout:</b>&nbsp;
+<select name='layout_id' id='layout_id'>
+<?php
+foreach ($layouts as $key => $value) {
+  echo "<option value='$key'";
+  if ($key == $layout_id) echo " selected";
+  echo ">$value</option>\n";
+}
+?>
+</select></p>
+
+<div>
+<input type='button' class='addgroup' id='addgroup' value='Add Group'/>
+</div>
+
+<?php 
+$prevgroup = "!@#asdf1234"; // an unlikely group name
+$firstgroup = true; // flag indicates it's the first group to be displayed
+while ($row = sqlFetchArray($res)) {
+?>
+
+<?php 
+if ($row['group_name'] != $prevgroup) {
+    if ($firstgroup == false) { echo "</tbody></table></div>\n"; }
+    echo "<div id='".$row['group_name']."' class='group'>";
+    echo "<div class='text bold layouts_title' style='position:relative; background-color: #eef'>";
+    echo preg_replace("/^\d+/", "", $row['group_name']);
+    echo "&nbsp; &nbsp; ";
+    echo " <input type='button' class='addfield' id='addto~".$row['group_name']."' value='Add Field'/>";
+    echo "&nbsp; &nbsp; ";
+    echo " <input type='button' class='renamegroup' id='".$row['group_name']."' value='Rename Group'/>";
+    echo "&nbsp; &nbsp; ";
+    echo " <input type='button' class='deletegroup' id='".$row['group_name']."' value='Delete Group'/>";
+    echo "&nbsp; &nbsp; ";
+    echo " <input type='button' class='movegroup' id='".$row['group_name']."~up' value='Move Up'/>";
+    echo "&nbsp; &nbsp; ";
+    echo " <input type='button' class='movegroup' id='".$row['group_name']."~down' value='Move Down'/>";
+    echo "</div>";
+    $firstgroup = false;
+?>
+
+<table>
+<thead>
+ <tr class='head'>
+  <th><?php xl('Order','e'); ?></th>
+  <th><?php xl('ID','e'); ?> <span class="help" title="A unique value to identify this field, not visible to the user">(?)</span></th>
+  <th><?php xl('Label','e'); ?> <span class="help" title="The label that appears to the user on the form">(?)</span></th>
+  <th><?php xl('UOR','e'); ?></th>
+  <th><?php xl('Data Type','e'); ?></th>
+  <th><?php xl('Size','e'); ?></th>
+  <th><?php xl('Label Cols','e'); ?></th>
+  <th><?php xl('Data Cols','e'); ?></th>
+  <th><?php xl('Default Value','e'); ?></th>
+  <th><?php xl('Description','e'); ?></th>
+ </tr>
+</thead>
+<tbody>
+
+<?php
+    } // end if-group_name
+
+    writeFieldLine($row);
+    $prevgroup = $row['group_name'];
+
+} // end while loop
+
+?>
+</tbody>
+</table></div>
+
+<input type='button' name='save' id='save' value='<?php xl('Save Changes','e'); ?>' />
+
+</form>
+
+<!-- template DIV that appears when user chooses to rename an existing group -->
+<div id="renamegroupdetail" style="border: 1px solid black; padding: 3px; display: none; visibility: hidden; background-color: lightgrey;">
+<input type="hidden" name="renameoldgroupname" id="renameoldgroupname" value="">
+Group Name: <input type="textbox" size="20" maxlength="30" name="renamegroupname" id="renamegroupname">
+<br>
+<input type="button" class="saverenamegroup" value="Rename group">
+<input type="button" class="cancelrenamegroup" value="Cancel">
+</div>
+
+<!-- template DIV that appears when user chooses to add a new group -->
+<div id="groupdetail" style="border: 1px solid black; padding: 3px; display: none; visibility: hidden; background-color: lightgrey;">
+Group Name: <input type="textbox" size="20" maxlength="30" name="newgroupname" id="newgroupname">
+<br>
+<input type="button" class="savenewgroup" value="Save new group">
+<input type="button" class="cancelnewgroup" value="Cancel">
+</div>
+
+<!-- template DIV that appears when user chooses to add a new field to a group -->
+<div id="fielddetail" class="fielddetail" style="display: none; visibility: hidden">
+<input type="hidden" name="newfieldgroupid" id="newfieldgroupid" value="">
+<table style="border-collapse: collapse;">
+<thead>
+ <tr class='head'>
+  <th><?php xl('Order','e'); ?></th>
+  <th><?php xl('ID','e'); ?> <span class="help" title="A unique value to identify this field, not visible to the user">(?)</span></th>
+  <th><?php xl('Label','e'); ?> <span class="help" title="The label that appears to the user on the form">(?)</span></th>
+  <th><?php xl('UOR','e'); ?></th>
+  <th><?php xl('Data Type','e'); ?></th>
+  <th><?php xl('Size','e'); ?></th>
+  <th><?php xl('Label Cols','e'); ?></th>
+  <th><?php xl('Data Cols','e'); ?></th>
+  <th><?php xl('Default Value','e'); ?></th>
+  <th><?php xl('Description','e'); ?></th>
+ </tr>
+</thead>
+<tbody>
+<tr class='center'>
+<td ><input type="textbox" name="newseq" id="newseq" value="" size="2" maxlength="3"> </td>
+<td ><input type="textbox" name="newid" id="newid" value="" size="10" maxlength="20"> </td>
+<td><input type="textbox" name="newtitle" id="newtitle" value="" size="20" maxlength="63"> </td>
+<td>
+<select name="newuor" id="newuor">
+<option value="0">Unused</option>
+<option value="1" selected>Optional</option>
+<option value="2">Required</option>
+</select>
+</td>
+<td align='center'>
+<select name='newdatatype' id='newdatatype'>
+<option value=''></option>
+<?php
+global $datatypes;
+foreach ($datatypes as $key=>$value) {
+    echo "<option value='$key'>$value</option>";
+}
+?>
+</select>
+</td>
+<td><input type="textbox" name="newlength" id="newlength" value="" size="1" maxlength="3"> </td>
+<td><input type="textbox" name="newtitlecols" id="newtitlecols" value="" size="3" maxlength="3"> </td>
+<td><input type="textbox" name="newdatacols" id="newdatacols" value="" size="3" maxlength="3"> </td>
+<td><input type="textbox" name="newdefault" id="newdefault" value="" size="20" maxlength="63"> </td>
+<td><input type="textbox" name="newdesc" id="newdesc" value="" size="20" maxlength="63"> </td>
+</tr>
+<tr>
+<td colspan="9">
+<input type="button" class="savenewfield" value="Save new field">
+<input type="button" class="cancelnewfield" value="Cancel">
+</td>
+</tr>
+</tbody>
+</table>
+</div>
+
+</body>
+
+<script language="javascript">
+
+var selectedfield;
+
+// jQuery stuff to make the page a little easier to use
+
+$(document).ready(function(){
+    $("#save").click(function() { SaveChanges(); });
+    $("#layout_id").change(function() { $('#theform').submit(); });
+
+    $(".addgroup").click(function() { AddGroup(this); });
+    $(".savenewgroup").click(function() { SaveNewGroup(this); });
+    $(".deletegroup").click(function() { DeleteGroup(this); });
+    $(".cancelnewgroup").click(function() { CancelNewGroup(this); });
+    
+    $(".movegroup").click(function() { MoveGroup(this); });
+
+    $(".renamegroup").click(function() { RenameGroup(this); });
+    $(".saverenamegroup").click(function() { SaveRenameGroup(this); });
+    $(".cancelrenamegroup").click(function() { CancelRenameGroup(this); });
+
+    $(".addfield").click(function() { AddField(this); });
+    $(".deletefield").click(function() { DeleteField(this); });
+    $(".savenewfield").click(function() { SaveNewField(this); });
+    $(".cancelnewfield").click(function() { CancelNewField(this); });
+    $("#newtitle").blur(function() { if ($("#newid").val() == "") $("#newid").val($("#newtitle").val()); });
+    
+    $(".listid").click(function() { ShowLists(this); });
+   
+
+    // Save the changes made to the form
+    var SaveChanges = function () {
+        $("#formaction").val("save");
+        $("#theform").submit();
+    }
+    
+    /****************************************************/
+    /************ Group functions ***********************/
+    /****************************************************/
+
+    // display the 'new group' DIV
+    var AddGroup = function(btnObj) {
+        // show the field details DIV
+        $('#groupdetail').css('visibility', 'visible');
+        $('#groupdetail').css('display', 'block');
+        $(btnObj).parent().append($("#groupdetail"));
+        $('#groupdetail > #newgropuname').focus();
+    };
+    
+    // save the new group to the form
+    var SaveNewGroup = function(btnObj) {
+        // the group name field can only have letters, numbers, spaces and underscores
+        // AND it cannot start with a number
+        if ($("#newgroupname").val().match(/^\d+/)) {
+            alert("Group names cannot start with numbers.");
+            return false;
+        }
+        var validname = $("#renamegroupname").val().replace(/[^A-za-z0-9 ]/g, "_"); // match any non-word characters and replace them
+        $("#newgroupname").val(validname);
+    
+        // submit the form to add a new field to a specific group
+        $("#formaction").val("addgroup");
+        $("#theform").submit();
+    }
+    
+    // actually delete an entire group from the database
+    var DeleteGroup = function(btnObj) {
+        var parts = $(btnObj).attr("id");
+        var groupname = parts.replace(/^\d+/, "");
+        if (confirm("WARNING - This action cannot be undone.\n Are you sure you wish to delete the entire group named '"+groupname+"'?")) {
+            // submit the form to add a new field to a specific group
+            $("#formaction").val("deletegroup");
+            $("#deletegroupname").val(parts);
+            $("#theform").submit();
+        }
+    };
+    
+    // just hide the new field DIV
+    var CancelNewGroup = function(btnObj) {
+        // hide the field details DIV
+        $('#groupdetail').css('visibility', 'hidden');
+        $('#groupdetail').css('display', 'none');
+        // reset the new group values to a default
+        $('#groupdetail > #newgroupname').val("");
+    };
+    
+    // display the 'new field' DIV
+    var MoveGroup = function(btnObj) {
+        var btnid = $(btnObj).attr("id");
+        var parts = btnid.split("~");
+        var groupid = parts[0];
+        var direction = parts[1];
+        
+        // submit the form to change group order
+        $("#formaction").val("movegroup");
+        $("#movegroupname").val(groupid);
+        $("#movedirection").val(direction);
+        $("#theform").submit();
+    }
+    
+    
+    // show the rename group DIV
+    var RenameGroup = function(btnObj) {
+        $('#renamegroupdetail').css('visibility', 'visible');
+        $('#renamegroupdetail').css('display', 'block');
+        $(btnObj).parent().append($("#renamegroupdetail"));
+        $('#renameoldgroupname').val($(btnObj).attr("id"));
+        $('#renamegroupname').val($(btnObj).attr("id").replace(/^\d+/, ""));
+    }
+    
+    // save the new group to the form
+    var SaveRenameGroup = function(btnObj) {
+        // the group name field can only have letters, numbers, spaces and underscores
+        // AND it cannot start with a number
+        if ($("#renamegroupname").val().match(/^\d+/)) {
+            alert("Group names cannot start with numbers.");
+            return false;
+        }
+        var validname = $("#renamegroupname").val().replace(/[^A-za-z0-9 ]/g, "_"); // match any non-word characters and replace them
+        $("#renamegroupname").val(validname);
+    
+        // submit the form to add a new field to a specific group
+        $("#formaction").val("renamegroup");
+        $("#theform").submit();
+    }
+   
+    // just hide the new field DIV
+    var CancelRenameGroup = function(btnObj) {
+        // hide the field details DIV
+        $('#renamegroupdetail').css('visibility', 'hidden');
+        $('#renamegroupdetail').css('display', 'none');
+        // reset the rename group values to a default
+        $('#renameoldgroupname').val("");
+        $('#renamegroupname').val("");
+    };
+    
+    
+    /****************************************************/
+    /************ Field functions ***********************/
+    /****************************************************/
+    
+    // display the 'new field' DIV
+    var AddField = function(btnObj) {
+        // update the fieldgroup value to be the groupid
+        var btnid = $(btnObj).attr("id");
+        var parts = btnid.split("~");
+        var groupid = parts[1];
+        $('#fielddetail > #newfieldgroupid').attr('value', groupid);
+    
+        // show the field details DIV
+        $('#fielddetail').css('visibility', 'visible');
+        $('#fielddetail').css('display', 'block');
+        $(btnObj).parent().append($("#fielddetail"));
+    };
+    
+    var DeleteField = function(btnObj) {
+        var parts = $(btnObj).attr("id").split("~");
+        var groupname = parts[0].replace(/^\d+/, "");
+        if (confirm("WARNING - This action cannot be undone.\n Are you sure you wish to delete the field in '"+groupname+"' identified as '"+parts[1]+"'?")) {
+            // submit the form to add a new field to a specific group
+            $("#formaction").val("deletefield");
+            $("#deletefieldgroup").val(parts[0]);
+            $("#deletefieldid").val(parts[1]);
+            $("#theform").submit();
+        }
+    };
+    
+    // save the new field to the form
+    var SaveNewField = function(btnObj) {
+        // check the new field values for correct formatting
+    
+        // seq must be numeric and less than 999
+        if (! IsNumeric($("#newseq").val(), 0, 999)) {
+            alert("Order must be a number between 1 and 999");
+            return false;
+        }
+        // length must be numeric and less than 999
+        if (! IsNumeric($("#newlength").val(), 0, 999)) {
+            alert("Size must be a number between 1 and 999");
+            return false;
+        }
+        // titlecols must be numeric and less than 100
+        if (! IsNumeric($("#newtitlecols").val(), 0, 999)) {
+            alert("TitleCols must be a number between 1 and 999");
+            return false;
+        }
+        // datacols must be numeric and less than 100
+        if (! IsNumeric($("#newdatacols").val(), 0, 999)) {
+            alert("DataCols must be a number between 1 and 999");
+            return false;
+        }
+        // some fields cannot be blank
+        if ($("#newtitle").val() == "") {
+            alert("Label cannot be blank");
+            return false;
+        }
+        // the id field can only have letters, numbers and underscores
+        var validid = $("#newid").val().replace(/(\s|\W)/g, "_"); // match any non-word characters and replace them
+        $("#newid").val(validid);
+    
+        // submit the form to add a new field to a specific group
+        $("#formaction").val("addfield");
+        $("#theform").submit();
+    };
+    
+    // just hide the new field DIV
+    var CancelNewField = function(btnObj) {
+        // hide the field details DIV
+        $('#fielddetail').css('visibility', 'hidden');
+        $('#fielddetail').css('display', 'none');
+        // reset the new field values to a default
+        ResetNewFieldValues();
+    };
+
+    // show the popup choice of lists
+    var ShowLists = function(btnObj) {
+        dlgopen("./show_lists_popup.php", "lists", 300, 500);
+        selectedfield = btnObj;
+    }
+
+});
+
+function SetList(listid) {
+    $(selectedfield).val(listid);
+}
+
+// set the new-field values to a default state
+function ResetNewFieldValues () {
+    $("#newseq").val("");
+    $("#newid").val("");
+    $("#newtitle").val("");
+    $("#newuor").val(1);
+    $("#newlength").val("");
+    $("#newdatatype").val("");
+    $("#newlistid").val("");
+    $("#newtitlecols").val("");
+    $("#newdatacols").val("");
+    $("#newdefault").val("");
+    $("#newdesc").val("");
+}
+
+// is value an integer and between min and max
+function IsNumeric(value, min, max) {
+    if (! IsN(value) ||
+        parseInt(value) < min || 
+        parseInt(value) > max)
+        return false;
+
+    return true;
+}
+
+/****************************************************/
+/****************************************************/
+/****************************************************/
+
+// tell if num is an Integer
+function IsN(num) { return !/\D/.test(num); }
+</script>
+
+</html>
diff --git a/interface/super/edit_list.php b/interface/super/edit_list.php
index fc41ee575..c92319831 100644
--- a/interface/super/edit_list.php
+++ b/interface/super/edit_list.php
@@ -16,6 +16,78 @@ $list_id = empty($_REQUEST['list_id']) ? 'language' : $_REQUEST['list_id'];
 $thisauth = acl_check('admin', 'super');
 if (!$thisauth) die("Not authorized.");
 
+// If we are saving, then save.
+//
+if ($_POST['formaction']=='save' && $list_id) {
+    $opt = $_POST['opt'];
+    if ($list_id == 'feesheet') {
+        // special case for the feesheet list
+        sqlStatement("DELETE FROM fee_sheet_options");
+        for ($lino = 1; isset($opt["$lino"]['category']); ++$lino) {
+            $iter = $opt["$lino"];
+            $category = trim($iter['category']);
+            $option   = trim($iter['option']);
+            $codes    = $iter['codes'];
+            if (strlen($category) > 0 && strlen($option) > 0) {
+                sqlInsert("INSERT INTO fee_sheet_options ( " .
+                            "fs_category, fs_option, fs_codes " .
+                            ") VALUES ( "   .
+                            "'$category', " .
+                            "'$option', "   .
+                            "'$codes' "     .
+                        ")");
+            }
+        }
+    }
+    else {
+        // all other lists
+        //
+        // erase lists options and recreate them from the submitted form data
+        sqlStatement("DELETE FROM list_options WHERE list_id = '$list_id'");
+        for ($lino = 1; isset($opt["$lino"]['id']); ++$lino) {
+            $iter = $opt["$lino"];
+            $value = empty($iter['value']) ? 0 : (trim($iter['value']) + 0);
+            if (strlen(trim($iter['id'])) > 0) {
+                sqlInsert("INSERT INTO list_options ( " .
+                            "list_id, option_id, title, seq, is_default, option_value " .
+                            ") VALUES ( " .
+                            "'$list_id', "                       .
+                            "'" . trim($iter['id'])      . "', " .
+                            "'" . trim($iter['title'])   . "', " .
+                            "'" . trim($iter['seq'])     . "', " .
+                            "'" . trim($iter['default']) . "', " .
+                            "'" . $value                 . "' "  .
+                            ")");
+            }
+        }
+    }
+}
+else if ($_POST['formaction']=='addlist') {
+    // make a new list ID from the new list name
+    $newlistID = $_POST['newlistname'];
+    $newlistID = preg_replace("/\W/", "_", $newlistID);
+
+    // determine the position of this new list
+    $row = sqlQuery("SELECT max(seq) as maxseq FROM list_options WHERE list_id= 'lists'");
+
+    // add the new list to the list-of-lists
+    sqlInsert("INSERT INTO list_options ( " .
+                "list_id, option_id, title, seq, is_default, option_value " .
+                ") VALUES ( " .
+                "'lists',". // the master list-of-lists
+                "'".$newlistID."',".
+                "'".$_POST['newlistname']."', ".
+                "'".($row['maxseq']+1)."',".
+                "'1', '0')"
+                );
+}
+else if ($_POST['formaction']=='deletelist') {
+    // delete the lists options
+    sqlStatement("DELETE FROM list_options WHERE list_id = '".$_POST['list_id']."'");
+    // delete the list from the master list-of-lists
+    sqlStatement("DELETE FROM list_options WHERE list_id = 'lists' and option_id='".$_POST['list_id']."'");
+}
+
 $opt_line_no = 0;
 
 // Given a string of multiple instances of code_type|code|selector,
@@ -135,6 +207,9 @@ function writeFSLine($category, $option, $codes) {
 <head>
 <?php html_header_show();?>
 
+<!-- supporting javascript code -->
+<script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/js/jquery.js"></script>
+
 <link rel="stylesheet" href='<?php  echo $css_header ?>' type='text/css'>
 <title><?php  xl('List Editor','e'); ?></title>
 
@@ -223,55 +298,12 @@ function set_related(codetype, code, selector, codedesc) {
 
 <body class="body_top">
 
-<?php
-// If we are saving, then save.
-//
-if ($_POST['form_save'] && $list_id) {
-  $opt = $_POST['opt'];
-  if ($list_id == 'feesheet') {
-    sqlStatement("DELETE FROM fee_sheet_options");
-    for ($lino = 1; isset($opt["$lino"]['category']); ++$lino) {
-      $iter = $opt["$lino"];
-      $category = trim($iter['category']);
-      $option   = trim($iter['option']);
-      $codes    = $iter['codes'];
-      if (strlen($category) > 0 && strlen($option) > 0) {
-        sqlInsert("INSERT INTO fee_sheet_options ( " .
-          "fs_category, fs_option, fs_codes " .
-          ") VALUES ( "   .
-          "'$category', " .
-          "'$option', "   .
-          "'$codes' "     .
-          ")");
-      }
-    }
-  }
-  else {
-    sqlStatement("DELETE FROM list_options WHERE list_id = '$list_id'");
-    for ($lino = 1; isset($opt["$lino"]['id']); ++$lino) {
-      $iter = $opt["$lino"];
-      $value = empty($iter['value']) ? 0 : (trim($iter['value']) + 0);
-      if (strlen(trim($iter['id'])) > 0) {
-        sqlInsert("INSERT INTO list_options ( " .
-        "list_id, option_id, title, seq, is_default, option_value " .
-        ") VALUES ( " .
-        "'$list_id', "                       .
-        "'" . trim($iter['id'])      . "', " .
-        "'" . trim($iter['title'])   . "', " .
-        "'" . trim($iter['seq'])     . "', " .
-        "'" . trim($iter['default']) . "', " .
-        "'" . $value                 . "' "  .
-        ")");
-      }
-    }
-  }
-}
-?>
 
-<form method='post' name='theform' action='edit_list.php'>
+<form method='post' name='theform' id='theform' action='edit_list.php'>
+<input type="hidden" name="formaction" id="formaction">
 
 <p><b>Edit list:</b>&nbsp;
-<select name ='list_id' onchange='form.submit()'>
+<select name='list_id' id="list_id">
 <?php
 // The list of lists is also kept incestuously in the lists table.
 // It could include itself, but to maintain sanity we avoid that.
@@ -284,7 +316,10 @@ while ($row = sqlFetchArray($res)) {
   echo ">" . $row['title'] . "</option>\n";
 }
 ?>
-</select></p>
+</select>
+<input type="button" id="<?php echo $list_id; ?>" class="deletelist" value="Delete this List">
+<input type="button" id="newlist" class="newlist" value="New List">
+</p>
 
 <center>
 
@@ -335,10 +370,87 @@ if ($list_id) {
 </table>
 
 <p>
- <input type='submit' name='form_save' value='<?php xl('Save','e'); ?>' />
+ <input type='button' name='form_save' id='form_save' value='<?php xl('Save','e'); ?>' />
 </p>
 </center>
 
 </form>
+
+<!-- template DIV that appears when user chooses to make a new list -->
+<div id="newlistdetail" style="border: 1px solid black; padding: 3px; display: none; visibility: hidden; background-color: lightgrey;">
+List Name: <input type="textbox" size="20" maxlength="30" name="newlistname" id="newlistname">
+<br>
+<input type="button" class="savenewlist" value="Save new list">
+<input type="button" class="cancelnewlist" value="Cancel">
+</div>
 </body>
+<script language="javascript">
+// jQuery stuff to make the page a little easier to use
+
+$(document).ready(function(){
+    $("#form_save").click(function() { SaveChanges(); });
+    $("#list_id").change(function() { $('#theform').submit(); });
+
+    $(".newlist").click(function() { NewList(this); });
+    $(".savenewlist").click(function() { SaveNewList(this); });
+    $(".deletelist").click(function() { DeleteList(this); });
+    $(".cancelnewlist").click(function() { CancelNewList(this); });
+
+    var SaveChanges = function() {
+        $("#formaction").val("save");
+        $('#theform').submit();
+    }
+
+    // show the DIV to create a new list
+    var NewList = function(btnObj) {
+        // show the field details DIV
+        $('#newlistdetail').css('visibility', 'visible');
+        $('#newlistdetail').css('display', 'block');
+        $(btnObj).parent().append($("#newlistdetail"));
+        $('#newlistdetail > #newlistname').focus();
+    }
+    // save the new list
+    var SaveNewList = function() {
+        // the list name can only have letters, numbers, spaces and underscores
+        // AND it cannot start with a number
+        if ($("#newlistname").val().match(/^\d+/)) {
+            alert("List names cannot start with numbers.");
+            return false;
+        }
+        var validname = $("#newlistname").val().replace(/[^A-za-z0-9 -]/g, "_"); // match any non-word characters and replace them
+        if (validname != $("#newlistname").val()) {
+            if (! confirm("Your list name has been changed to meet naming requirements.\nPlease compare the new name, '"+validname+"' with the old name, '"+$("#newlistname").val()+"'. Do you wish to continue with the new name?"))
+            {
+                return false;
+            }
+        }
+        $("#newlistname").val(validname);
+    
+        // submit the form to add a new field to a specific group
+        $("#formaction").val("addlist");
+        $("#theform").submit();
+    }
+    // actually delete an entire list from the database
+    var DeleteList = function(btnObj) {
+        var listid = $(btnObj).attr("id");
+        if (confirm("WARNING - This action cannot be undone.\n Are you sure you wish to delete the entire list("+listid+")?")) {
+            // submit the form to add a new field to a specific group
+            $("#formaction").val("deletelist");
+            $("#deletelistname").val(listid);
+            $("#theform").submit();
+        }
+    };
+    
+    // just hide the new list DIV
+    var CancelNewList = function(btnObj) {
+        // hide the list details DIV
+        $('#newlistdetail').css('visibility', 'hidden');
+        $('#newlistdetail').css('display', 'none');
+        // reset the new group values to a default
+        $('#newlistdetail > #newlistname').val("");
+    };
+});
+
+</script>
+
 </html>
diff --git a/interface/super/show_lists_popup.php b/interface/super/show_lists_popup.php
new file mode 100644
index 000000000..dc731c7ce
--- /dev/null
+++ b/interface/super/show_lists_popup.php
@@ -0,0 +1,75 @@
+<?php
+ /*
+  * This popup is called when choosing a list for a form layout
+  */
+
+include_once("../globals.php");
+
+?>
+
+<html>
+<head>
+<?php html_header_show();?>
+<title><?php xl('List lists','e'); ?></title>
+<link rel="stylesheet" href='<?php echo $css_header ?>' type='text/css'>
+
+<script type="text/javascript" src="<?php echo $GLOBALS['webroot'] ?>/library/js/jquery-1.2.2.min.js"></script>
+
+<style>
+h1 {
+    font-size: 120%;
+    padding: 3px;
+    margin: 3px;
+}
+ul {
+    list-style: none;
+    padding: 3px;
+    margin: 3px;
+    background-color: white;
+}
+li {
+    cursor: pointer;
+    border-bottom: 1px solid #ccc;
+}
+</style>
+
+</head>
+
+<body class="body_top text">
+<div id="lists">
+<h1>Active lists</h1>
+<ul>
+<?php
+$res = sqlStatement("SELECT * FROM list_options WHERE " .
+                    "list_id = 'lists' ORDER BY title");
+while ($row = sqlFetchArray($res)) {
+    echo "<li id='".$row['option_id']."' class='oneresult'>".$row['title']."</li>";
+}
+?>
+</ul>
+</div>
+</body>
+
+<script language="javascript">
+
+// jQuery stuff to make the page a little easier to use
+
+$(document).ready(function(){
+    $(".oneresult").mouseover(function() { $(this).toggleClass("highlight"); });
+    $(".oneresult").mouseout(function() { $(this).toggleClass("highlight"); });
+    $(".oneresult").click(function() { SelectList(this); });
+
+    var SelectList = function(obj) {
+        var listid = $(obj).attr("id");
+        if (opener.closed || ! opener.SetList)
+            alert('The destination form was closed; I cannot act on your selection.');
+        else
+            opener.SetList(listid);
+        window.close();
+        return false;
+    }
+});
+
+</script>
+
+</html>
-- 
2.11.4.GIT