From 0b65ce59c7d2ee712389c27954382274ddf718a5 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 10 Apr 2002 13:42:49 +0000 Subject: bulk checkin from working on the road: - use msgcat for more error messages - should be all things that would come3 back from the signup server normally now - signup server: don't display access number ' unless @$pops; + return $pops->[0]{city}. ', '. $pops->[0]{state}. + ' ('. $pops->[0]{ac}. ')/'. $pops->[0]{exch}. + '' + if scalar(@$pops) == 1; + my %pop = (); push @{ $pop{$_->{state}} }, $_ foreach @$pops; @@ -359,6 +367,13 @@ sub success_default { #html to use if you don't specify a success file Signup successful Signup successful

Thanks for signing up! +

+Signup information for <%= $email_name %>: +

+Username: <%= $username %>
+Password: <%= $password %>
+Access number: (<%= $ac %>) / $exch - $local
+Package: <%= $pkg %>
END } @@ -515,13 +530,11 @@ Contact Information Password - - (blank to generate) + Re-enter Password - - + <%= if ( $init_data->{'security_phrase'} ) { @@ -536,10 +549,14 @@ ENDOUT $OUT .= ''; } %> - - Access number - <%= popselector($popnum) %> - +<%= + if ( scalar(@$pops) ) { + $OUT .= 'Access number'. + popselector($popnum). ''; + } else { + $OUT .= popselector($popnum); + } +%>

-- cgit v1.2.1