allow metadata when creating a new article

diff --git a/site/cgi-bin/modules/BSE/DummyArticle.pm b/site/cgi-bin/modules/BSE/DummyArticle.pm
index 25b53c62c83154f733219721e4d0f678aeac8262..82c31ce03e63bb9481dca9f44fc343ee664bf0fd 100644 (file)
--- a/site/cgi-bin/modules/BSE/DummyArticle.pm
+++ b/site/cgi-bin/modules/BSE/DummyArticle.pm
@@ -3,8 +3,11 @@ use strict;
 use base 'BSE::TB::SiteCommon';
 use base 'BSE::FormatterBase';
 use BSE::TB::Articles;
+use BSE::MetaOwnerBase;
 
-our $VERSION = "1.005";
+our @ISA = qw(BSE::MetaOwnerBase);
+
+our $VERSION = "1.006";
 
 sub images {
   return;
@@ -52,8 +55,38 @@ sub should_index {
   1;
 }
 
+sub tags {
+  ();
+}
+
 sub has_tags {
   0;
 }
 
+sub meta_owner_type {
+  'bse_article';
+}
+
+sub meta_meta_cfg_section {
+  "global article metadata";
+}
+
+sub meta_meta_cfg_prefix {
+  "article metadata";
+}
+
+sub metafields {
+  my ($self, $cfg) = @_;
+
+  $cfg ||= BSE::Cfg->single;
+
+  my %metanames = map { $_ => 1 } $self->metanames;
+
+  require BSE::ArticleMetaMeta;
+  my @fields = grep $metanames{$_->name} || $_->cond($self), BSE::ArticleMetaMeta->all_metametadata($cfg);
+
+  return ( @fields );
+}
+
+
 1;

diff --git a/site/cgi-bin/modules/BSE/Edit/Article.pm b/site/cgi-bin/modules/BSE/Edit/Article.pm
index ad0545c1d3a9ee63a2a8b9160b7f1fffdcc77bd9..3fcc4ab50950f77d837a2f2b01a8ca77a7b79389 100644 (file)
--- a/site/cgi-bin/modules/BSE/Edit/Article.pm
+++ b/site/cgi-bin/modules/BSE/Edit/Article.pm
@@ -16,7 +16,7 @@ use List::Util qw(first);
 use constant MAX_FILE_DISPLAYNAME_LENGTH => 255;
 use constant ARTICLE_CUSTOM_FIELDS_CFG => "article custom fields";
 
-our $VERSION = "1.052";
+our $VERSION = "1.053";
 
 =head1 NAME
 
@@ -1557,7 +1557,8 @@ sub _dummy_article {
     return;
   }
 
-  return \%article;
+  require BSE::DummyArticle;
+  return bless \%article, "BSE::DummyArticle";
 }
 
 sub add_form {
@@ -1813,6 +1814,12 @@ sub save_new {
     $self->_validate_tags(\@tags, \%errors);
   }
 
+  my $meta;
+  if ($cgi->param("_save_meta")) {
+    require BSE::ArticleMetaMeta;
+    $meta = BSE::ArticleMetaMeta->retrieve($req, $article, \%errors);
+  }
+
   if (keys %errors) {
     if ($req->is_ajax) {
       return $req->json_content
@@ -1966,6 +1973,10 @@ sub save_new {
     $article->set_tags([ grep /\S/, @tags ], \$error);
   }
 
+  if ($meta) {
+    BSE::ArticleMetaMeta->save($article, $meta);
+  }
+
   generate_article($articles, $article) if $Constants::AUTO_GENERATE;
 
   if ($req->is_ajax) {

diff --git a/site/templates/admin/edit_1.tmpl b/site/templates/admin/edit_1.tmpl
index fa81838eaf214206bc348ede8ae8d69c4d4047c5..1511eeec1ae5b01d68157f9a04332afc6276488c 100644 (file)
--- a/site/templates/admin/edit_1.tmpl
+++ b/site/templates/admin/edit_1.tmpl
@@ -245,7 +245,6 @@
           </tr>
           <:or Article:><:eif Article:> 
         </table>
-<:.if !ifnew -:>
 <:.set metas = [ article.metafields ] -:>
 <:  .if metas.size -:>
 <fieldset>
@@ -271,7 +270,6 @@
 <:  .end for -:>
 </fieldset>
 <:  .end if -:>
-<:.end if -:>
 
   <p><: ifNew :>
     <input type="submit" name="save" value="Add New <: articleType:>" />