[BACK]Return to dudelicious.pl CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo / bin

Diff for /todotxt/Text-Todo/bin/dudelicious.pl between version 1.12 and 1.16

version 1.12, 2010/05/01 21:54:56 version 1.16, 2010/05/05 03:01:08
Line 82 
Line 82 
     else {      else {
         $self->render(          $self->render(
             list   => $self->helper('get_list'),              list   => $self->helper('get_list'),
               tags   => $self->helper('todo')->known_tags,
             layout => 'todotxt'              layout => 'todotxt'
         );          );
     }      }
Line 105 
Line 106 
     my $self = shift;      my $self = shift;
   
     my $format = $self->stash('format') || 'html';      my $format = $self->stash('format') || 'html';
     my $tags = $self->helper('todo')->known_tags;  
   
     if ( $format eq 'json' ) {      if ( $format eq 'json' ) {
         $self->render_json($tags);          $self->render_json( $self->helper('todo')->known_tags );
     }      }
     else {      else {
         $self->render( tags => $tags, layout => 'todotxt' );          $self->render(
               tags   => $self->helper('todo')->known_tags,
               layout => 'todotxt'
           );
     }      }
 } => 'tags';  } => 'tags';
   
   get '/l/:file/t/:tag' => sub {
       my $self = shift;
   
       my $format = $self->stash('format') || 'html';
       my $items  = $self->helper('todo')->listtag( $self->stash('tag') );
   
       if ( $format eq 'json' ) {
           $self->render_json($items);
       }
       else {
           $self->render( items => $items, layout => 'todotxt' );
       }
   } => 'tag';
   
 app->start if !caller();  app->start if !caller();
   
 1;  1;
Line 129 
Line 146 
 <%= $entry->{text} %>  <%= $entry->{text} %>
   
 @@ tags.txt.ep  @@ tags.txt.ep
 % foreach my $tag (keys%{ $tags }) {  % foreach my $tag (keys %{ $tags }) {
 <%= $tag %>, <%= $tags->{$tag} %>  <%= $tag %>: <%= $tags->{$tag} %>
 % }  % }
   
   @@ tag.txt.ep
   # <%== $tag %>
   % foreach my $item (@{ $items}) {
   <%= $item %>
   % }
   
 @@ layouts/todotxt.txt.ep  @@ layouts/todotxt.txt.ep
 %= content  %= content
   
 @@ index.html.ep  @@ index.html.ep
 % foreach my $file (@{ $files }) {  % foreach my $file (@{ $files }) {
 <%== $file %> <br />  % my ($basename) = $file =~ /^(.*?)(?:\.[^\.]+)?$/xms;
   <a href="<%= url_for 'list', format => '' %>/<%= $basename %>"><%= $file %></a><br />
 % }  % }
   
 @@ list.html.ep  @@ list.html.ep
 <h1><%= $file %></h1>  <h1><%= $file %></h1>
   % if ( $tags ) {
   %   foreach my $tag (keys%{ $tags }) {
   %= include 'tag_menu', tag => $tag
   <br />
   %   }
   % }
 <ol>  <ol>
 % foreach my $entry (@{ $list }) {  % foreach my $entry (@{ $list }) {
     <li>      <li>
Line 156 
Line 186 
   
 @@ tags.html.ep  @@ tags.html.ep
 % foreach my $tag (keys%{ $tags }) {  % foreach my $tag (keys%{ $tags }) {
 <%= $tag %> == <%= $tags->{$tag} %><br />  <a href="<%= url_for 'tag', format => '' %>/<%= $tag %>"><%= $tag %> == <%= $tags->{$tag} %></a><br />
 % }  % }
   
   @@ tag.html.ep
   <h2><%= $tag %></h2>
   % foreach my $item (sort @{ $items }) {
   <%= $item %><br />
   % }
   
   @@ tag_menu.html.ep
   % my $items = todo()->listtag($tag);
   <%= $tag %>:
   <select>
   % foreach my $item (sort @{ $items }) {
       <option><%= $item %></option>
   % }
   </select>
   
   
 @@ layouts/todotxt.html.ep  @@ layouts/todotxt.html.ep
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.16
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>