#! /usr/bin/perl
# infocon - Admin-Tool for InfoCon
-# Copyright (c) 1998-2003,2005-7 Martin Schulze <joey@infodrom.org>
+# Copyright (c) 1998-2003,2005-8 Martin Schulze <joey@infodrom.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
}
@categories = ();
+$term = undef;
sub sdate
{
@categories = get_categories unless @categories;
my @descriptions = get_descriptions;
+ $term = new Term::ReadLine '' unless $term;
+
$term->addhistory($_) foreach (@categories);
$term->addhistory($_) foreach (@descriptions);
} elsif ($fieldname[$i] eq "Description") {
$attribs->{completion_entry_function} = $attribs->{list_completion_function};
$attribs->{completion_word} = \@descriptions;
+ } elsif ($fieldname[$i] eq "Tax assigned") {
+ if ($input[$i-1] == 0) {
+ $input[$i++] = 0;
+ next;
+ }
} else {
$attribs->{completion_word} = undef;
}
exit 0;
}
-$term = new Term::ReadLine '';
$i = 0;
$opt_all = 0;
$opt_verbose = 0;