%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
%# <jesse@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
%# along with this program; if not, write to the Free Software
%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/copyleft/gpl.html.
+%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
%#
%#
%# CONTRIBUTION SUBMISSION POLICY:
}
}
+ if ($ARGS{clear}) {
+ $current = [];
+ }
+
$self->{Current} = $current;
}
><% $self->{_item_map}{$_} %></option>
% }
</select>
+% unless ($ARGS{'NoArrows'}) {
<input name="moveup" type="submit" class="button" value=" ↑ " />
<input name="movedown" type="submit" class="button" value=" ↓ " />
+% }
<input name="remove" type="submit" class="button" value="<&|/l&>Delete</&>" />
+% if ($ARGS{'Clear'}) {
+ <input name="clear" type="submit" class="button" value="<&|/l&>Clear</&>" />
+% }
% my $caption = "";
% unless ($self->{'AutoSave'}) {