The eAuction Support Forums - Numbers in the millions

05/07/25 at 13:00:53

Not just another Perl script

Welcome, Guest. Please Login or Register

The forums are protected by
AccessControl
(written by Dieter Werner)
Click here if you want to check your IP against the most important RBLs of the net.
Click here in order to visite the AccessControl forums.

<< Visit the international e Auction Marketplace >>
Buy and sell PC and Consumer Electronic components

Home

Help

The eAuction Support Forums › eAuction 1.6.2.x › General Discussion › Numbers in the millions

(Moderator: Dieter Werner)

‹ Previous topic | Next topic ›

Pages: 1 2 3

Send Topic | Print

Numbers in the millions (Read 289 times)

ehunyadi

eAuction User

Offline

I love Perl

Posts: 6

Re: Numbers in the millions
Reply #3 - 10/04/05 at 23:57:22

OUTSTANDING!!!!

Grin

Thank you very much, Dieter!!! This did the trick!

Update: Now, I wanted to get rid of "cents," and edited the eAconfig.pl file here:

Code:

#-#############################################
# Config-Section-05
# The Config-Variables of: form_date
#-#############################################
  $config{'continent'}		  = 0;	# 0 = USA  1 = Others
  $config{'time_delay'}		  = 0;	# time delay  (Server/Client)
  $config{'allow_cent'}		= 0;	# 0 = No |  1 = Yes

But it still displays xxxx.00.

I also noticed that the area for config cent is in the date and not currency portion of eAconfig.pl.

Any ideas, Sir?

Thank you!

Advertising

View Profile

IP Logged

Dieter Werner

Administrator

Offline

Dipl. Paranoiac ®

Posts: 1162
Germany
Gender: male

Re: Numbers in the millions
Reply #4 - 10/05/05 at 09:34:37

Go back to sub form_amt_dec
Search the sub for Code:

               $amt .= ".$cent";

Edit the line this way Code:

               #$amt .= ".$cent";

Do the same with line Code:

               $amt .= ",$cent";

Search eAmethods.pl for sub check_item_data
Replace the $config block with Code:

    $config{'currency'} == 0
       ?   do { # USA
               $config{'allow_cent'} == 1
                   ?   ($pattern = qr/(\d*\W*\d{1,3}\.{1}\d{2})$/)
                   :   ($pattern = qr/(\d*\W*\d{1,3})$/);
           }
       :   do {
               $config{'allow_cent'} == 1
                   ?   ($pattern = qr/(\d*\W*\d{1,3}\,{1}\d{2})$/)
                   :   ($pattern = qr/(\d*\W*\d{1,3})$/);
           };

Open eAproc_bid.pl
Replace the contained $config block with Code:

    $config{'currency'} == 1  
     ?   do {                
           $config{'allow_cent'} == 1
               ?       do {                      
                     $form{'BID'} !~ /(\d*\D*\d{1,3}\,{1}\d{2})$/ && do {
                               close LOCK;
                               unlink "$config{'basepath'}$form{'ITEM'}_lock.dat" or die $!;
                               oops($txt{'You must enter a valid bid amount'})
                     };
                 }
               :      do {
                     $form{'BID'} !~ /(\d*\D*\d{1,3})$/ && do {
                               close LOCK;
                               unlink "$config{'basepath'}$form{'ITEM'}_lock.dat" or die $!;
                               oops($txt{'You must enter a valid bid amount'})
                     };
                 };
         }  
     :   do {
           $config{'allow_cent'} == 1
               ?       do {
                     $form{'BID'} !~ /(\d*\D*\d{1,3}\.{1}\d{2})$/ && do {
                               close LOCK;
                               unlink "$config{'basepath'}$form{'ITEM'}_lock.dat" or die $!;
                               oops($txt{'You must enter a valid bid amount'})
                     };
                 }
               :      do {
                     $form{'BID'} !~ /(\d*\D*\d{1,3})$/ && do {
                               close LOCK;
                               unlink "$config{'basepath'}$form{'ITEM'}_lock.dat" or die $!;
                               oops($txt{'You must enter a valid bid amount'})
                     };
                 };
         };

Multimedia file viewing and clickable links are available for registered members only!! You need to Login or Register!!

Greetings from Germany
Dieter Werner

Advertising

View Profile | WWW

IP Logged

ehunyadi

eAuction User

Offline

I love Perl

Posts: 6

Re: Numbers in the millionsPla
Reply #5 - 10/05/05 at 12:21:58

Once again, Sir, you show yourself to be the master!!!

Grin

The numbers are displaying perfectly now, just as we need them to!!!

However, one minor problem: we cannot bid on any items now. In testing, we have three accounts. It is possible to post an item up for auction, but the other accounts cannot bid on the auctions. When we press "Place Bid," the next page comes up with only the menu buttons and it says "Welcome Guest" and "You are not logged in."

I thank you again for your hard work. I hope that I'm helping in some way in testing this great script.

Advertising

View Profile

IP Logged

Pages: 1 2 3

Send Topic | Print

‹ Previous topic | Next topic ›

« Home

‹ Board

If you like eAuction, please Rate it.
If you don't like eAuction, please Rate it too.

1 is being poor and 10 is being excellent

Messages posted in these forums contain only the views and opinions of the posters;
they do not necessarily represent the views or opinions of EveryScript.
EveryScript provides this area as a venue for discussion of
software products and services.
EveryScript makes no claim as to the accuracy of information contained on these pages.
EveryScript dissociates herself expressly from all contributions and links of this forums.