Changeset 9874

Timestamp:

04/19/08 15:48:13 (5 years ago)

Author:

vkgtaro

Message:

lang/perl/Chaostr:

• Schema::Timeline に create_from_fv を生やした
  
• Base::Controller 追加
  
• Controller::Texts 追加
  

Location:

lang/perl/Chaostr/trunk

Files:

• lib/Chaostr/DB/Schema/Links.pm (modified) (1 diff)
• lib/Chaostr/DB/Schema/Photos.pm (modified) (1 diff)
• lib/Chaostr/DB/Schema/Quotes.pm (modified) (1 diff)
• lib/Chaostr/DB/Schema/Texts.pm (modified) (1 diff)
• lib/Chaostr/DB/Schema/Timeline.pm (modified) (1 diff)
• lib/Chaostr/DB/Schema/Videos.pm (modified) (1 diff)
• lib/Chaostr/Web/Base (added)
• lib/Chaostr/Web/Base/Controller.pm (added)
• lib/Chaostr/Web/Controller/Root.pm (modified) (2 diffs)
• lib/Chaostr/Web/Controller/Texts.pm (added)
• root/src/error.tt (modified) (1 diff)
• root/src/texts (added)
• root/src/texts/create.tt (added)
• root/src/texts/destroy.tt (added)
• root/src/texts/list.tt (added)
• root/src/texts/show.tt (added)
• root/src/texts/update.tt (added)
• t/controller_Text.t (added)

lang/perl/Chaostr/trunk/lib/Chaostr/DB/Schema/Links.pm

@@ -5 +5 @@
 
 __PACKAGE__->belongs_to(
-    'timeline_id',
+    'timeline',
     'Chaostr::DB::Schema::Timeline',
-    { id => 'timeline' },
+    { id => 'timeline_id' },
 );
 

lang/perl/Chaostr/trunk/lib/Chaostr/DB/Schema/Photos.pm

@@ -5 +5 @@
 
 __PACKAGE__->belongs_to(
-    'timeline_id',
+    'timeline',
     'Chaostr::DB::Schema::Timeline',
-    { id => 'timeline' },
+    { id => 'timeline_id' },
 );
 

lang/perl/Chaostr/trunk/lib/Chaostr/DB/Schema/Quotes.pm

@@ -5 +5 @@
 
 __PACKAGE__->belongs_to(
-    'timeline_id',
+    'timeline',
     'Chaostr::DB::Schema::Timeline',
-    { id => 'timeline' },
+    { id => 'timeline_id' },
 );
 

lang/perl/Chaostr/trunk/lib/Chaostr/DB/Schema/Texts.pm

@@ -5 +5 @@
 
 __PACKAGE__->belongs_to(
-    'timeline_id',
+    'timeline',
     'Chaostr::DB::Schema::Timeline',
-    { id => 'timeline' },
+    { id => 'timeline_id' },
 );
 

lang/perl/Chaostr/trunk/lib/Chaostr/DB/Schema/Timeline.pm

@@ -39 +39 @@
 );
 
+sub create_from_fv {
+    my ( $self, $results, $extra ) = @_;
+
+    $extra->{timeline_id} = $self->id;
+
+    my $type   = ucfirst $self->type;
+    my $schema = $self->result_source->schema;
+
+    return $schema->resultset($type)->create_from_fv($results, $extra);
+}
+
 1;
 

lang/perl/Chaostr/trunk/lib/Chaostr/DB/Schema/Videos.pm

@@ -5 +5 @@
 
 __PACKAGE__->belongs_to(
-    'timeline_id',
+    'timeline',
     'Chaostr::DB::Schema::Timeline',
-    { id => 'timeline' },
+    { id => 'timeline_id' },
 );
 

lang/perl/Chaostr/trunk/lib/Chaostr/Web/Controller/Root.pm

@@ -34 +34 @@
     }
 
+    if ( $c->req->path !~ m{\A (?:login|logout) }xms
+             && ! $c->user_exists ) {
+        $c->res->redirect( $c->uri_for('/login') );
+        return;
+    }
+
     return 1;
+}
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+
+    my $template = $c->req->path . '.tts';
+    if ( -s $c->path_to( '/root/src/' . $template ) ) {
+        $c->stash->{template} = $template;
+        return;
+    }
+
+    $c->res->status(404);
+    $c->error('指定された URL にリソースが見つかりませんでした。');
+    return;
 }
 
@@ -57 +77 @@
 
 sub end : ActionClass('RenderView') {
+    my ( $self, $c ) = @_;
+
+    if ( scalar @ { $c->error } && ! $c->debug ) {
+        $c->stash->{error}    = $c->error;
+        $c->stash->{template} = 'error.tt';
+        $c->forward('TT');
+        $c->error(0);
+    }
 }
 

lang/perl/Chaostr/trunk/root/src/error.tt

@@ -7 +7 @@
 <p>
   Here's the error message, on the off-chance that it means something
-  to you: <span class="error">[% error %]</span>
+  to you:
 </p>
+
+<p>
+[% FOREACH msg = error %]
+ <span class="error">[% msg %]</span>
+[% END %]
+</p>