Index: vr_list/vr_list.admin.inc
===================================================================
RCS file: /cvs/drupal-contrib/contributions/modules/vr/vr_list/vr_list.admin.inc,v
retrieving revision 1.1.2.15
diff -u -p -r1.1.2.15 vr_list.admin.inc
--- vr_list/vr_list.admin.inc	13 Jul 2010 16:47:57 -0000	1.1.2.15
+++ vr_list/vr_list.admin.inc	13 Jul 2010 19:37:38 -0000
@@ -531,4 +531,47 @@ function vr_list_member_map_submit($form
 function vr_list_push($list) {
   $lists = array($list->id);
   vr_list_update_batch($lists);
+}
+
+/**
+ * Administrators should have the ability to rename VerticalResponse
+ * mailing lists.
+ */
+function vr_list_rename(&$form_state, $list) {
+  $form['list_name'] = array(
+    '#type' => 'textfield',
+    '#title' => t('List Name'),
+    '#default_value' => $list->name,
+    '#required' => TRUE,
+    '#description' => t('Change the name of this mailing list.'),
+    );
+  $form['list'] = array(
+    '#type' => 'value',
+    '#value' => $list,
+    );
+  $form['submit'] = array(
+    '#type' => 'submit',
+    '#value' => t('Save'),
+    );
+  return $form;
+}
+
+/**
+ * Push new list name to VerticalResponse.
+ */
+function vr_list_rename_submit($form, &$form_state) {
+  $list = $form_state['values']['list'];
+  $param['attribute_name'] = 'name';
+  $param['attribute_value'] = $form_state['values']['list_name'];
+  $param['list_id'] = $list->id;
+  $success = vr_api('editListAttribute', $param);
+  if ($success) {
+    $message = t('The list name has been updated.');
+    drupal_set_message($message);
+  }
+  else {
+    $message = t('The list name was not changed due to an error. Please try again.');
+    drupal_set_message($message, 'error');
+  }
+  $form_state['redirect'] = url('admin/build/vr/list/' . $list->id . '/edit');
 }
\ No newline at end of file
Index: vr_list/vr_list.module
===================================================================
RCS file: /cvs/drupal-contrib/contributions/modules/vr/vr_list/vr_list.module,v
retrieving revision 1.1.2.10
diff -u -p -r1.1.2.10 vr_list.module
--- vr_list/vr_list.module	13 Jul 2010 16:47:57 -0000	1.1.2.10
+++ vr_list/vr_list.module	13 Jul 2010 19:37:39 -0000
@@ -31,14 +31,23 @@ function vr_list_menu() {
     'file' => 'vr_list.admin.inc',
     'type' => MENU_LOCAL_TASK,
     );
+  $items['admin/build/vr/list/%vr_list/rename'] = array(
+    'title' => t('Rename'),
+    'page callback' => 'drupal_get_form',
+    'page arguments' => array('vr_list_rename', 4),
+    'access arguments' => array('administer VerticalResponse'),
+    'file' => 'vr_list.admin.inc',
+    'type' => MENU_LOCAL_TASK,
+    'weight' => 2,
+    );
   $items['admin/build/vr/list/%vr_list/delete'] = array(
-    'title' => t('Delete Mailing List'),
+    'title' => t('Delete'),
     'page callback' => 'drupal_get_form',
     'page arguments' => array('vr_list_delete', 4),
     'access arguments' => array('administer VerticalResponse'),
     'file' => 'vr_list.admin.inc',
     'type' => MENU_LOCAL_TASK,
-    'weight' => 2,
+    'weight' => 3,
     );
   $items['admin/build/vr/list/%vr_list/add-member'] = array(
     'title' => t('Add List Member'),