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
 
 
 =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.
 
 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
 
 
 =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.
 
 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) = @_;
 
 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 = $_;
   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 = @_;
 
 
 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'};
 my $labels = $opt{'option_labels'} || $opt{'labels'};
 
 my $curr_value = $opt{'curr_value'};