sub show_monkey {
  my $self        = shift;
  my $db          = $self->param('db');
  my $q	          = $self->query();
  my $monkey_id   = $q->param('monkey_id');
  my $ref         = $db->select_monkey($monkey_id);
	
  unless ( defined($ref) ) {
    $self->param('error' , "Invalid Monkey ID: $monkey_id in show_monkey()");
    return $self->show_all_monkies();
  }
  my $tmpl = $self->load_tmpl('show_monkey.tmpl');
  $tmpl->param( $ref );
  return $tmpl->output();
}