Index: /trunk/dns.cgi
===================================================================
--- /trunk/dns.cgi	(revision 375)
+++ /trunk/dns.cgi	(revision 376)
@@ -331,12 +331,5 @@
   }
 
-  if ($session->param('resultmsg')) {
-    $page->param(resultmsg => $session->param('resultmsg'));
-    $session->clear('resultmsg');
-  }
-  if ($session->param('errmsg')) {
-    $page->param(errmsg => $session->param('errmsg'));
-    $session->clear('errmsg');
-  }
+  show_msgs();
 
   $page->param(curpage => $webvar{page});
@@ -442,12 +435,5 @@
   }
 
-  if ($session->param('resultmsg')) {
-    $page->param(resultmsg => $session->param('resultmsg'));
-    $session->clear('resultmsg');
-  }
-  if ($session->param('errmsg')) {
-    $page->param(errmsg => $session->param('errmsg'));
-    $session->clear('errmsg');
-  }
+  show_msgs();
 
   $page->param(curpage => $webvar{page});
@@ -604,16 +590,5 @@
     }
 
-    if ($session->param('resultmsg')) {
-      $page->param(resultmsg => $session->param('resultmsg'));
-      $session->clear('resultmsg');
-    }
-    if ($session->param('warnmsg')) {
-      $page->param(warnmsg => $session->param('warnmsg'));
-      $session->clear('warnmsg');
-    }
-    if ($session->param('errmsg')) {
-      $page->param(errmsg => $session->param('errmsg'));
-      $session->clear('errmsg');
-    }
+    show_msgs();
 
   } # close "you can't edit default records" check
@@ -849,16 +824,5 @@
   $page->param(delgrp => $permissions{admin} || $permissions{group_delete});
 
-  if ($session->param('resultmsg')) {
-    $page->param(resultmsg => $session->param('resultmsg'));
-    $session->clear('resultmsg');
-  }
-  if ($session->param('warnmsg')) {
-    $page->param(warnmsg => $session->param('warnmsg'));
-    $session->clear('warnmsg');
-  }
-  if ($session->param('errmsg')) {
-    $page->param(errmsg => $session->param('errmsg'));
-    $session->clear('errmsg');
-  }
+  show_msgs();
   $page->param(curpage => $webvar{page});
 
@@ -1120,16 +1084,5 @@
   $page->param(deluser => $permissions{admin} || $permissions{user_delete});
 
-  if ($session->param('resultmsg')) {
-    $page->param(resultmsg => $session->param('resultmsg'));
-    $session->clear('resultmsg');
-  }
-  if ($session->param('warnmsg')) {
-    $page->param(warnmsg => $session->param('warnmsg'));
-    $session->clear('warnmsg');
-  }
-  if ($session->param('errmsg')) {
-    $page->param(errmsg => $session->param('errmsg'));
-    $session->clear('errmsg');
-  }
+  show_msgs();
   $page->param(curpage => $webvar{page});
 
@@ -1352,4 +1305,5 @@
 #  }
   list_locations();
+  show_msgs();
 
 # Permissions!
@@ -1418,4 +1372,6 @@
     $page->param(locname => ($webvar{locname} ? $webvar{locname} : ''));
     $page->param(iplist => ($webvar{iplist} ? $webvar{iplist} : ''));
+
+    show_msgs();
   }
 
@@ -1775,4 +1731,20 @@
 } # end changepage
 
+# wrap up the usual suspects for result, warning, or error messages to be displayed
+sub show_msgs {
+  if ($session->param('resultmsg')) {
+    $page->param(resultmsg => $session->param('resultmsg'));
+    $session->clear('resultmsg');
+  }
+  if ($session->param('warnmsg')) {
+    $page->param(warnmsg => $session->param('warnmsg'));
+    $session->clear('warnmsg');
+  }
+  if ($session->param('errmsg')) {
+    $page->param(errmsg => $session->param('errmsg'));
+    $session->clear('errmsg');
+  }
+} # end show_msgs
+
 sub fillsoa {
   my $defrec = shift;