fix #8 with cheese

lib/Trog/Data/DUMMY.pm

@@ -126,10 +126,10 @@ my $example_posts = [
         data         => "Admin ACL",
         href         => "/config",
         local_href   => '/config',
-        title        => 'admin',
+        title        => 'Administrative Posts',
         user         => 'Nobody',
         id           => "900",
-        tags         => ['series'],
+        tags         => ['series', 'private'],
         created      => time(),
         version      => 0,
         preview      => '/img/sys/testpattern.jpg',
@@ -220,6 +220,7 @@ sub _add_post_type (@posts) {
         $type = 'blog'      if grep { $_ eq 'blog' }    @{$post->{tags}};
         $type = 'microblog' if grep { $_ eq 'news' }    @{$post->{tags}};
         $type = 'profile'   if grep { $_ eq 'profile' } @{$post->{tags}};
+        $type = 'series'    if grep { $_ eq 'series'  } @{$post->{tags}};
         $post->{type} = $type;
         $post
     } @posts;

lib/Trog/Routes/HTML.pm

@@ -88,14 +88,6 @@ our %routes = (
         auth     => 1,
         callback => \&Trog::Routes::HTML::themeclone,
     },
-    '/config/series' => {
-        method => 'GET',
-        callback => \&Trog::Routes::HTML::series_edit,
-    },
-    '/config/series/save' => {
-        method   => 'POST',
-        callback => \&Trog::Routes::HTML::series_edit,
-    },
     '/sitemap', => {
         method   => 'GET',
         callback => \&Trog::Routes::HTML::sitemap,
@@ -412,7 +404,7 @@ sub post ($query, $input, $render_cb) {
         scripts     => $js,
         posts       => $posts,
         can_edit    => 1,
-        types       => [qw{microblog blog file}],
+        types       => [qw{microblog blog file series}],
         route       => '/posts',
         category    => '/posts',
         page        => int($query->{page} || 1),
@@ -477,16 +469,6 @@ sub _post_helper ($query, $tags, $acls) {
     );
 }
 
-sub series_edit ($query, $input, $render_cb) {
-    if (!$query->{user}) {
-        $query->{to} = '/series/edit';
-        return login($query,$input,$render_cb);
-    }
-    return forbidden($query, $input, $render_cb) unless grep { $_ eq 'admin' } @{$query->{acls}};
-
-    return Trog::Routes::HTML::index($query,$input,$render_cb);
-}
-
 =head2 sitemap
 
 Return the sitemap index unless the static or a set of dynamic routes is requested.

www/templates/series.tx

@@ -0,0 +1,14 @@
+<form class="Submissions" action="/post/save" method="POST">
+    Title *<br /><input class="cooltext" type="text" name="title" placeholder="Iowa Man Destroys Moon" />
+    ACL name *<br /><input class="cooltext" type="file" name="series" />
+    Preview Image<br /><input type="file" class="cooltext" name="preview" placeholder="PROMO.JPG"></input>
+    Visibility<br />
+    <select class="cooltext" name="visibility">
+        : for $post_visibilities -> $visibility {
+            <option value="<: $visibility :>"><: $visibility :></option>
+        : }
+    </select>
+    Comments<br /><textarea class="cooltext" name="comment" placeholder="Potzrebie"></textarea>
+    <input type="hidden" name="app" value="file" />
+    <input class="coolbutton" type="submit" value="Publish" text="Publish" />
+</form>

www/templates/sysbar.tx

@@ -3,7 +3,6 @@
     <span id="configbar">
         <a class="topbar" title="Back home" href="/">Home</a>
         <a class="topbar" title="Edit Various Settings" href="/config">Settings</a>
-        <a class="topbar" title="Series CRUD" href="/config/series">Series</a>
         <a class="topbar" title="Compose Posts" href="/post">Post</a>
     </span>
 </div>