allow metadata to be defined for new products
[bse.git] / site / cgi-bin / modules / BSE / Edit / Product.pm
index 2deead0..8097806 100644 (file)
@@ -10,7 +10,7 @@ use BSE::CfgInfo 'product_options';
 use BSE::Util::Tags qw(tag_hash tag_article);
 use constant PRODUCT_CUSTOM_FIELDS_CFG => "product custom fields";
 
-our $VERSION = "1.015";
+our $VERSION = "1.016";
 
 =head1 NAME
 
@@ -35,6 +35,13 @@ my %money_fields =
 
 sub generator { 'BSE::Generate::Product' }
 
+sub _make_dummy_article {
+  my ($self, $article) = @_;
+
+  require BSE::DummyProduct;
+  return bless $article, "BSE::DummyProduct";
+}
+
 sub base_template_dirs {
   return ( "products" );
 }
@@ -292,6 +299,7 @@ sub low_edit_tags {
   my @tiers;
   my $price_tier;
   my %prices;
+  $req->set_variable(product => $article);
   return 
     (
      product => [ \&tag_article, $article, $cfg ],