/[Frey]/trunk/lib/Strix/View.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Strix/View.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 41 by dpavlin, Mon Jun 30 20:02:10 2008 UTC revision 42 by dpavlin, Mon Jun 30 20:02:16 2008 UTC
# Line 27  my @callbacks; Line 27  my @callbacks;
27  sub gen_link {  sub gen_link {
28          my ($text, $code) = @_;          my ($text, $code) = @_;
29          push @callbacks, $code;          push @callbacks, $code;
30          my $out = qq{<a href="?cb=$#callbacks">$text</a>};          return qq{<a href="?cb=$#callbacks">$text</a>};
         return $out;  
31  }  }
32    
33  sub process_links {  sub process_links {
# Line 55  template 'user' => sub { Line 54  template 'user' => sub {
54    
55                  if ( ! $user ) {                  if ( ! $user ) {
56                          $req->conn->send_status_line( 404, "user $id" );                          $req->conn->send_status_line( 404, "user $id" );
57                          $req->print( "Can't find user with id $id\n$@" );                          $req->print( Frey::HTML->page( 'error', $req, "Can't find user with id $id\n$@" ) );
58                  } else {                  } else {
59                          $req->print( Frey::HTML->page( 'show-user', $req, $user ) );                          $req->print( Frey::HTML->page( 'show-user', $req, $user ) );
60  #                       $req->print( '<pre>' . dump( $user ) . '</pre>' );  #                       $req->print( '<pre>' . dump( $user ) . '</pre>' );
# Line 63  template 'user' => sub { Line 62  template 'user' => sub {
62    
63                  @callbacks = ();                  @callbacks = ();
64                  $req->print('<tt>'.join('&nbsp;',                  $req->print('<tt>'.join('&nbsp;',
65                            $id,
66                          gen_link('+' => sub { $id++ }),                          gen_link('+' => sub { $id++ }),
67                          gen_link('-' => sub { $id-- }),                          gen_link('-' => sub { $id-- }),
68                          gen_link('X' => sub { $continue = 0 }),                          gen_link('X' => sub { $continue = 0 }),
Legend:
Removed from v.41  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26