use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
do 'exports-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_export.cgi') {
my @exps = &list_exports();
return @exps ? 'idx='.$exps[0]->{'index'} : 'new=1';
}
return undef;
}