minor cleanup, RT#15017

diff --git a/FS/FS/radius_attr.pm b/FS/FS/radius_attr.pm
index b4c6e70..51b1bab 100644 (file)
--- a/FS/FS/radius_attr.pm
+++ b/FS/FS/radius_attr.pm
@@ -52,7 +52,7 @@ currently supported:
 
 =item new HASHREF
 
-Creates a new example.  To add the example to the database, see L<"insert">.
+Creates a new record.  To add the record to the database, see L<"insert">.
 
 Note that this stores the hash reference, not a distinct copy of the hash it
 points to.  You can ask the object for a copy with the I<hash> method.
@@ -143,7 +143,7 @@ sub replace {
 
 =item check
 
-Checks all fields to make sure this is a valid example.  If there is
+Checks all fields to make sure this is a valid record.  If there is
 an error, returns the error, otherwise returns false.  Called by the insert
 and replace methods.
 

diff --git a/httemplate/edit/radius_group.html b/httemplate/edit/radius_group.html
index c9bf525..164f0a5 100644 (file)
--- a/httemplate/edit/radius_group.html
+++ b/httemplate/edit/radius_group.html
@@ -43,7 +43,6 @@ die "access denied"
 my $m2_error_callback = sub { # reconstruct the list
   my ($cgi, $object) = @_;
 
-  warn Dumper({$cgi->Vars});
   my @fields = qw(attrname attrtype op value);
   map {
     my $k = $_;

diff --git a/httemplate/elements/select.html b/httemplate/elements/select.html
index 1bf56b5..efcf27b 100644 (file)
--- a/httemplate/elements/select.html
+++ b/httemplate/elements/select.html
@@ -45,11 +45,6 @@
 
 my %opt = @_;
 
-#no-op code...
-#my $onchange = $opt{'onchange'}
-#                 ? 'onChange="'. $opt{'onchange'}. '(this)"'
-#                 : '';
-
 my $labels = $opt{'option_labels'} || $opt{'labels'};
 
 my $curr_value = $opt{'curr_value'};