re-work coupons to allow multiple coupon types
[bse.git] / site / cgi-bin / modules / BSE / Request / Base.pm
index 7fb1413..f03c63f 100644 (file)
@@ -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 = "";