Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I need help doing some basic arithmatic on some database values. Initially, I query my table for all product codes and quantity ( using DBI ). Then I display these non-editable values along with two editable fields for entering a value that will be added/subtracted from original quantity in a form (using CGI) so it looks something like this: 
Product Name  |  Quantity  |  Add  |  Subtract

WidgetA       |  10        |       |
.
.
.

[download]
What I need to do happen when the form is submitted is take all the input in the add and/or subtract fields and do the appropriate math on the original quantity value, then store the newly calculated quantity back into the table. Can anyone please give me a good example to work with?

Replies are listed 'Best First'.
Re: Add/subtract from a database value
by LeGo (Chaplain) on Jul 06, 2001 at 04:26 UTC
    Would something like this help? Just use those commands and adapt. 
    $dbh = DBI->connect( "dbi:mysql:user", "webserver", "pwd") or dienice(
+"Can't connect: ",$dbh->errstr);
my $sub = param("sub");
my $add = param("add");
if($add){
   $sth = $dbh->do("update database set count=count+$add where address
+=\"$whatever\"")
}
if($sub){
   $sth = $dbh->do("update database set count=count-$sub where address
+=\"$whatever\"")
}

    [download]

    Feel free to update this or correct this as this is the way I do things and if there is a better way or something that I am missing please do let me know.

    LeGo

[reply]
[d/l]
Re: Add/subtract from a database value
by Abigail (Deacon) on Jul 06, 2001 at 03:18 UTC
    Eh, what piece do you have problems with? Everything seems trivial to me. Use an SQL statement to retrieve the values from the table. Use print to print out the form. Use CGI to parse the form response. Use + and - to add or subtract values, and use another SQL query to store the results.

    -- Abigail

[reply]
[d/l]
[select]
A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Seekers of Perl Wisdom