--- trunk/lib/Frey/Server.pm 2008/07/11 22:54:42 101 +++ trunk/lib/Frey/Server.pm 2008/07/13 12:22:14 106 @@ -18,8 +18,9 @@ #$repl = Continuity::REPL->new; sub run { + my ( $self, $port ) = @_; $server = Continuity->new( - port => 16001, + port => $port || 16001, path_session => 1, cookie_session => 'sid', callback => \&main, @@ -72,8 +73,8 @@ ( li => [ a => { href => '/~/' . $package . '/' } => [ $package ], ' ', $f->package_path( $package ), ' ', - $package->can('rows') ? - ( a => { href => '/ob/' . $package } => [ 'browse' ] ) : '', + $package->can('collection') ? + ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '', ] ) } $f->classes ],