allow metadata to be defined for new products
[bse.git] / site / cgi-bin / modules / BSE / Request / Base.pm
index 131c56c..1fafbbf 100644 (file)
@@ -5,7 +5,7 @@ use BSE::Cfg;
 use BSE::Util::HTML;
 use Carp qw(cluck confess);
 
 use BSE::Util::HTML;
 use Carp qw(cluck confess);
 
-our $VERSION = "1.031";
+our $VERSION = "1.032";
 
 =head1 NAME
 
 
 =head1 NAME
 
@@ -1802,8 +1802,9 @@ sub cgi_fields {
       ($value) = $cgi->param($name);
       require DevHelp::Date;
       my $msg;
       ($value) = $cgi->param($name);
       require DevHelp::Date;
       my $msg;
-      my ($year, $month, $day) = DevHelp::Date::dh_parse_date($value, \$msg);
-      $value = sprintf("%04d-%02d-%02d", $year, $month, $day);
+      if (my ($year, $month, $day) = DevHelp::Date::dh_parse_date($value, \$msg)) {
+       $value = sprintf("%04d-%02d-%02d", $year, $month, $day);
+      }
     }
     elsif ($field->{type} && $field->{type} eq "time" && !$opts{api}) {
       ($value) = $cgi->param($name);
     }
     elsif ($field->{type} && $field->{type} eq "time" && !$opts{api}) {
       ($value) = $cgi->param($name);