[Rt-commit] r5897 - in commitbit: . lib/CommitBit/Model share/web/templates share/web/templates/project

[jesse at bestpractical.com]

Author: jesse
Date: Sun Sep 10 20:23:16 2006
New Revision: 5897

Modified:
   commitbit/   (props changed)
   commitbit/lib/CommitBit/Dispatcher.pm
   commitbit/lib/CommitBit/Model/Repository.pm
   commitbit/share/web/templates/index.html
   commitbit/share/web/templates/project/index.html

Log:
 r27353 at pinglin:  jesse | 2006-09-11 01:23:12 +0100
 * checkpoint


Modified: commitbit/lib/CommitBit/Dispatcher.pm
==============================================================================
--- commitbit/lib/CommitBit/Dispatcher.pm	(original)
+++ commitbit/lib/CommitBit/Dispatcher.pm	Sun Sep 10 20:23:16 2006
@@ -1,9 +1,10 @@
 package CommitBit::Dispatcher;
 use Jifty::Dispatcher -base;
 
-on qr'repository/(.+?)(/.*|)$' => run {
+on qr'^/repository/(.+?)(/.*|)$' => run {
     my $name    = $1;
     my $path    = $2;
+    $name = URI::Escape::uri_unescape($name);
     warn "Name - $name - $path";
     my $repository = CommitBit::Model::Repository->new();
     $repository->load_by_cols( name => $name );
@@ -16,10 +17,11 @@
     show( '/repository/' . $path || '/repository/index.html' );
 };
 
-on qr'project/(.+?)(/.*|)$' => run {
+on qr'^/project/(.+?)(/.*|)$' => run {
     my $name    = $1;
     my $path    = $2;
     warn "Name - $name - $path";
+    $name = URI::Escape::uri_unescape($name);
     my $project = CommitBit::Model::Project->new();
     $project->load_by_cols( name => $name );
     unless ($project->id) {

Modified: commitbit/lib/CommitBit/Model/Repository.pm
==============================================================================
--- commitbit/lib/CommitBit/Model/Repository.pm	(original)
+++ commitbit/lib/CommitBit/Model/Repository.pm	Sun Sep 10 20:23:16 2006
@@ -25,6 +25,15 @@
 
 # Your model-specific methods go here.
 
+sub projects {
+    my $self = shift;
+    my $projects = CommitBit::Model::ProjectCollection->new();
+    $projects->limit(column => 'repository', value => $self->id);
+    return ($projects);
+
+}
+
+
 # XXX: make sure svn/svnadmin is in path during compile time.
 sub _svnadmin {
     my $self = shift;

Modified: commitbit/share/web/templates/index.html
==============================================================================
--- commitbit/share/web/templates/index.html	(original)
+++ commitbit/share/web/templates/index.html	Sun Sep 10 20:23:16 2006
@@ -2,6 +2,15 @@
 
 <h1><%_('Welcome to CommitBit')%></h1>
 
+<p><%_('Local repositories')%></p>
+<dl>
+% my $repositorys = CommitBit::Model::RepositoryCollection->new;
+% $repositorys->unlimit();
+% while ( my $p = $repositorys->next ) {
+<dt><%Jifty->web->link( url => '/repository/'.$p->name, label => $p->name)%></dt>
+<dd<%$p->description%></dd>
+% }
+</dl>
 
 <p><%_('Pick a project')%></p>
 <dl>

Modified: commitbit/share/web/templates/project/index.html
==============================================================================
--- commitbit/share/web/templates/project/index.html	(original)
+++ commitbit/share/web/templates/project/index.html	Sun Sep 10 20:23:16 2006
@@ -1,4 +1,8 @@
 <%args>
 $project
 </%args>
-HI.  <%$project->name%>
+<&|/_elements/wrapper,title => $project->name &>
+<h1><%$project->name%></h1>
+
+<%Jifty->web->link( label => 'People', url => '/project/'.$project->name.'/people')%>
+</&>