So, back to the list switch widget - can some one whip up some code that will allow the onSubmit select box to work if JS is enabled, but show a submit button if no JS is available? And be standards compliant? If someone can, I can work with that and place it into Dada Mail, where ever it needs to go; If we're targeting the submit button to be used on constrictive environments like text-based browsers, or perhaps a handheld PDA, I don't think pixel perfect layout is absolutely necessary

Justin Simoni

That's not too difficult The version below of "login_switch_widget " will show the button again when Javascript is not available The selection list at screen "Manage Subscribers - View" can be handled the same way I guess

Frans Gouverne

#

sub login_switch_widget {

my %args = (-list => undef, -f => undef, @_); die "no list!" if ! $args{-list};

my @lists = available_lists(); my %label = ();

foreach my $list( @lists ){ my $ls = DADA::MailingList::Settings->new(-List => $list); my $li = $ls->get; $label{$list} = $li->{list_name} ' (' $list ')';

} # a complete guess my $location = $q->self_url || $S_PROGRAM_URL '?flavor=' $args{-f};

my $script = qq~ ~;

$label{$args{-list}} = '------';

my $js = "\n\n";

if($lists[1]){ return $q->start_form(-action => $S_PROGRAM_URL, -method => "post", )

"$js document
write('<div>Switch list:</div>'); $jsend" 


  $q->popup_menu(-style   => 'width:75px',
     -name    => 'change_to_list',
     -value   => [@lists],
     -default => $args{-list},
     -labels  => {%label},
     -onchange  => "submit();",
     ) 

  $q->hidden(-name => 'location',
    -value => $location,
   ) 

  $q->hidden(-name      => 'flavor',
     -value    => 'change_login',
     -override => 1,
 ) 


"<noscript><br>" 

$q->submit(-value => 'switch', -class=>'plain') 

  "</noscript>" 


  $q->end_form();

}else{ return ''; } }

#