re-work coupons to allow multiple coupon types

[bse.git] / site / cgi-bin / modules / BSE / Request / Base.pm

diff --git a/site/cgi-bin/modules/BSE/Request/Base.pm b/site/cgi-bin/modules/BSE/Request/Base.pm
index 7fb141327d68fda208a61334bacbc39ec912bd2d..f03c63f6588d8894639ec1dad94dfbf14967fd28 100644 (file)
--- a/site/cgi-bin/modules/BSE/Request/Base.pm
+++ b/site/cgi-bin/modules/BSE/Request/Base.pm
@@ -5,7 +5,7 @@ use BSE::Cfg;
 use BSE::Util::HTML;
 use Carp qw(cluck confess);
 
-our $VERSION = "1.033";
+our $VERSION = "1.034";
 
 =head1 NAME
 
@@ -1813,6 +1813,10 @@ sub cgi_fields {
       my ($hour, $minute, $sec) = DevHelp::Date::dh_parse_time($value, \$msg);
       $value = sprintf("%02d:%02d:%02d", $hour, $minute, $sec);
     }
+    elsif ($field->{type} && $field->{type} eq "money") {
+      ($value) = $cgi->param($name);
+      $value *= 100;
+    }
     else {
       ($value) = $cgi->param($name);
       defined $name or $value = "";