Index: branches/htmlform/cgi-bin/main.cgi
===================================================================
--- branches/htmlform/cgi-bin/main.cgi	(revision 504)
+++ branches/htmlform/cgi-bin/main.cgi	(revision 505)
@@ -15,5 +15,4 @@
 use HTML::Template;
 use DBI;
-use CommonWeb qw(:ALL);
 use CustIDCK;
 use POSIX qw(ceil);
@@ -1084,8 +1083,7 @@
   if ($@) {
     my $msg = $@;
-    carp "Transaction aborted because $msg";
     eval { $ip_dbh->rollback; };
     syslog "err", "$authuser could not update block/IP '$webvar{block}': '$msg'";
-    printError("Could not update block/IP $webvar{block}: $msg");
+    $page->param(err => "Could not update block/IP $webvar{block}: $msg");
     return;
   }