--- trunk/lib/Strix/View.pm 2008/06/30 20:02:14 41 +++ trunk/lib/Strix/View.pm 2008/06/30 20:02:16 42 @@ -27,8 +27,7 @@ sub gen_link { my ($text, $code) = @_; push @callbacks, $code; - my $out = qq{$text}; - return $out; + return qq{$text}; } sub process_links { @@ -55,7 +54,7 @@ if ( ! $user ) { $req->conn->send_status_line( 404, "user $id" ); - $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$@" ) ); } else { $req->print( Frey::HTML->page( 'show-user', $req, $user ) ); # $req->print( '
' . dump( $user ) . '
' ); @@ -63,6 +62,7 @@ @callbacks = (); $req->print(''.join(' ', + $id, gen_link('+' => sub { $id++ }), gen_link('-' => sub { $id-- }), gen_link('X' => sub { $continue = 0 }),