1.1 --- a/paypal/generate_paylists.pm	Mon Jan 25 13:38:05 2010 -0500
     1.2 +++ b/paypal/generate_paylists.pm	Wed Jan 27 22:04:43 2010 -0500
     1.3 @@ -23,7 +23,7 @@
     1.4          COSTS_NAMES   => ['40 cards -- $125', '3 cards -- $15'],
     1.5          COSTS_CODE    => ['40 cards @125.00', '3 cards @15.00'],
     1.6          INITIAL_PRICE => '$125.00',
     1.7 -        DEFAULTS      => ['jbond@mi6.co.uk','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
     1.8 +        DEFAULTS      => ['PERL::EMAIL','PERL','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
     1.9          @_,         # argument pair list goes here
    1.10      );
    1.11      $short_form = $args{SHORT_FORM};
    1.12 @@ -136,13 +136,14 @@
    1.13  $start = <<OHYEAH;
    1.14  <br>
    1.15  PERL::OPT:&nbsp;&nbsp;
    1.16 -<input type="text" id="PERL::OPT" name="line_PERL::NUMb" size="20" value = "PERL::DEFAULT" ONFOCUS="clearDefault(this);" onKeyUp="redraw('PERL::SHORT');"
    1.17 +<input type="text"  name="line_PERL::NUMb" size="20" id="PERL::OPT" 
    1.18 +ONFOCUS="clearDefault(this);" onKeyUp="redraw('PERL::SHORT'); updateForm(['args__PERL::OPT', 'PERL::OPT', 'formValues'] , ['formValues']);"
    1.19  
    1.20  >
    1.21  <!--   -->
    1.22  <br>
    1.23  OHYEAH
    1.24 -$start =~ s/PERL::SHORT/$short_form/;
    1.25 +$start =~ s/PERL::SHORT/$short_form/g;
    1.26  
    1.27  my $input = "";
    1.28