[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.6 and 1.7

version 1.6, 2010/04/30 07:18:33 version 1.7, 2010/04/30 07:23:32
Line 40 
Line 40 
     my $self   = shift;      my $self   = shift;
     my $file   = $self->stash('file') . '.txt';      my $file   = $self->stash('file') . '.txt';
     my $format = $self->stash('format') || 'html';      my $format = $self->stash('format') || 'html';
       my $list   = _get_list( $self, $file );
   
     if ( $format eq 'json' ) {      if ( $format eq 'json' ) {
         $self->render_json( _get_list( $self, $file ) );          $self->render_json($list);
     }      }
     else {      else {
         $self->render(          $self->render( list => $list, layout => 'todotxt' );
             list   => _get_list( $self, $file ),  
             layout => 'todotxt'  
         );  
     }      }
 } => 'list';  } => 'list';
   
 get '/l/:file/e/:line' => sub {  get '/l/:file/e/:line' => sub {
     my $self   = shift;      my $self   = shift;
     my $file   = $self->stash('file') . '.txt';      my $file   = $self->stash('file') . '.txt';
     my $entry  = $self->stash('line') - 1;  
     my $format = $self->stash('format') || 'html';      my $format = $self->stash('format') || 'html';
       my $entry  = _get_list( $self, $file )->[ $self->stash('line') - 1 ];
   
     if ( $format eq 'json' ) {      if ( $format eq 'json' ) {
         $self->render_json( _get_list( $self, $file )->[$entry] );          $self->render_json($entry);
     }      }
     else {      else {
         $self->render(          $self->render( entry => $entry, layout => 'todotxt' );
             entry  => _get_list( $self, $file )->[$entry],  
             layout => 'todotxt'  
         );  
     }      }
 } => 'entry';  } => 'entry';
   
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>