1.1 --- a/paypal/generate_paylists.pm	Sun Jan 24 15:06:22 2010 -0500
     1.2 +++ b/paypal/generate_paylists.pm	Mon Jan 25 03:42:08 2010 -0500
     1.3 @@ -26,6 +26,7 @@
     1.4          DEFAULTS      => ['jbond@mi6.co.uk','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
     1.5          @_,         # argument pair list goes here
     1.6      );
     1.7 +    $short_form = $args{SHORT_FORM};
     1.8      $prod_name = $args{PRODUCT_NAME};
     1.9      @defaults = @{$args{DEFAULTS}};
    1.10      $name = $args{NAME};
    1.11 @@ -135,36 +136,13 @@
    1.12  $start = <<OHYEAH;
    1.13  <br>
    1.14  PERL::OPT:&nbsp;&nbsp;
    1.15 -<input type="text" id="PERL::OPT" name="line_PERL::NUMb" size="20" value = "PERL::DEFAULT" ONFOCUS="clearDefault(this)" 
    1.16 -onKeyUp="
    1.17 -tt.remove();
    1.18 -
    1.19 -var font_size = 30;
    1.20 -
    1.21 -tt = raphe.print(0, 145, value, raphe.getFont('HelveticaNeue', 700), font_size);
    1.22 -tt.attr('stroke', '#f00');
    1.23 -tt.attr('fill', 'TRANSPARENT');
    1.24 -var c = tt.getBBox().width;
    1.25 -tt.translate((502 - c)/2,0);
    1.26 -
    1.27 -
    1.28 -
    1.29 -
    1.30 -
    1.31 -
    1.32 -//document.write( c );
    1.33 -
    1.34 -
    1.35 -
    1.36 -
    1.37 -
    1.38 -"
    1.39 +<input type="text" id="PERL::OPT" name="line_PERL::NUMb" size="20" value = "PERL::DEFAULT" ONFOCUS="clearDefault(this);" onKeyUp="redraw('PERL::SHORT');"
    1.40  
    1.41  >
    1.42  <!--   -->
    1.43  <br>
    1.44  OHYEAH
    1.45 -
    1.46 +$start =~ s/PERL::SHORT/$short_form/;
    1.47  
    1.48  my $input = "";
    1.49