%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
my $res = '';
$res .= qq{<select id="$name" name="$name">};
my @options = @{ $box->{'Options'} };
- while( my $k = shift @options ) {
+ while( @options ) {
+ my $k = shift @options;
my $v = shift @options;
$res .= qq{<option value="$k">$v</option>};
}