]> git.imager.perl.org - bse.git/commitdiff
fix not validating product option name on add
authorTony Cook <tony@develop-help.com>
Tue, 21 Apr 2020 09:43:13 +0000 (19:43 +1000)
committerTony Cook <tony@develop-help.com>
Tue, 21 Apr 2020 09:43:13 +0000 (19:43 +1000)
site/cgi-bin/modules/BSE/Edit/Product.pm

index 3847bddf1518e6748a31a7169bd385f0ad840525..d90ce205eab56ad53b40706f29af247d159c6695 100644 (file)
@@ -729,7 +729,7 @@ sub req_add_option {
     or return $self->_service_error($req, $article, $articles, "Insufficient product access to add options");
 
   my %errors;
     or return $self->_service_error($req, $article, $articles, "Insufficient product access to add options");
 
   my %errors;
-  my %work_option_fields = \%option_fields;
+  my %work_option_fields = %option_fields;
   for my $field (grep /^value[1-9][0-9]*$/, $req->cgi->param) {
     my ($index) = ( $field =~ /([1-9][0-9]*)$/);
     $work_option_fields{$field} =
   for my $field (grep /^value[1-9][0-9]*$/, $req->cgi->param) {
     my ($index) = ( $field =~ /([1-9][0-9]*)$/);
     $work_option_fields{$field} =