<%init> use Date::Parse qw(str2time); #i should be in Mason.pm my %opt = @_; #my $paybatch = $opt{'curr_value'}; # || $opt{'value'} necessary? my $conf = new FS::Conf; my $date_format = $conf->config('date_format') || '%m/%d/%Y'; my $sth = dbh->prepare('SELECT DISTINCT paybatch FROM cust_pay WHERE paybatch IS NOT NULL') or die dbh->errstr; $sth->execute or die $sth->errstr; my @paybatch = #map $_->[0], sort { $a->[1] <=> $b->[1] } map { my $date = ''; if ( /^\w+\-(\d+)\-/ ) { $date = $1; } elsif ( /^\w+\-([\d\/]+)\-([\d\:]+)\-/ ) { $date = str2time("$1 $2"); #} else { # warn "unparsable: $_\n"; } [ $_, $date ]; } grep ! /^webui-/, #don't actually want the single entries map $_->[0], @{ $sth->fetchall_arrayref };