rlm@51:
rlm@51:
rlm@51: HERE
rlm@51:
rlm@51:
rlm@51: %shankHash =
rlm@51: (
rlm@51:
rlm@51: big => template2,
rlm@51: basic => template3,
rlm@51: classic => template1,
rlm@51: lines => template4
rlm@51: );
rlm@51:
rlm@51: $target = $shankHash{$style};
rlm@51:
rlm@51:
rlm@51:
rlm@51:
rlm@51: #$r =~ s/inputbox\(\['$target'\], \['inputbox'\]\)\;//;
rlm@51:
rlm@51:
rlm@51:
rlm@51:
rlm@51:
rlm@51: return $r;
rlm@51: }
rlm@51:
rlm@51:
rlm@51:
rlm@51:
rlm@51: sub inputbox
rlm@51: {
rlm@51:
rlm@51: #grab the type of template we'll be using <<<<
rlm@51: $type = shift;
rlm@51:
rlm@51: $hashString = shift;
rlm@51: #return $hashString;
rlm@51:
rlm@51: $perl_hash = decode_json $hashString;
rlm@51:
rlm@51: %fieldHash = %$perl_hash;
rlm@51:
rlm@51:
rlm@51: # we have to care about both the type of template and the material and the color. these are stored in $type>>>>
rlm@51:
rlm@51: #Then, update with a special custon paypal form, taken from the paypal folder and specially designed for that particular template.
rlm@51: #will probaly eventually create a script to automate the generation of these files.
rlm@51:
rlm@51:
rlm@51: #take care of everythign but acrylic clear type
rlm@51:
rlm@51: {
rlm@51: local( $/, *FH ) ;
rlm@51: open( FH, "<./paypal/$type.paylist" ) or die "sudden flaming death\n";
rlm@51: $z = ;
rlm@51: }
rlm@51:
rlm@51:
rlm@51: #every type has it's own associated paylist file the contains the things we need
rlm@51:
rlm@51: $z = <
rlm@51: HERE
rlm@51:
rlm@51:
rlm@51:
rlm@51:
rlm@51: $z = $z.'';
rlm@51:
rlm@51:
rlm@51: foreach my $key ( keys %fieldHash )
rlm@51: {
rlm@51:
rlm@51: my $replace = $fieldHash{$key};
rlm@51:
rlm@51: #id="Name" value = "PERL::NAME"
rlm@51:
rlm@51:
rlm@51: $z =~ s/id="$key"/id="$key" value = "$replace"/g;
rlm@51:
rlm@51:
rlm@51: }
rlm@51:
rlm@51:
rlm@51: return $z;
rlm@51:
rlm@51:
rlm@51:
rlm@51:
rlm@51:
rlm@51: }
rlm@51:
rlm@51:
rlm@51:
rlm@51:
rlm@51: sub display
rlm@51: {
rlm@51: $all = shift;
rlm@51:
rlm@51:
rlm@51: #~
rlm@51: #~ $t = <
rlm@51: #~
rlm@51: #~