my( $panel, $object, $p ) = @_;
  my $width = $object->param('image_width');
  $panel->print( qq(<div style="width: ${width}px;" class="bg5 autocenter" id="$panel->{'code'}_image">
    <p style="padding: 2px; margin: 0px;">
      Generating image... please wait while image is fetched...<br />
      AJAX Call - WUC: $p->{'wuc'} of $p->{'sr'} $p->{'s'} -> $p->{'e'}
    </p>
  </div>));
}

1;

  my( $panel, $object ) = @_;
  ajax_place_holder( $panel, $object,
  {
    'sr'  => $object->seq_region_name,
    's'   => $object->centrepoint - 100,
    'e'   => $object->centrepoint + 100,
    'wuc' => 'contigviewbottom'
  });

  my( $panel, $object ) = @_;
  ajax_place_holder( $panel, $object,
  {
    'sr'  => $object->seq_region_name,
    's'   => $object->seq_region_start,
    'e'   => $object->seq_region_end,
    'wuc' => 'contigviewbottom'
  });

  my( $panel, $object ) = @_;
  ajax_place_holder( $panel, $object,
  {
    'sr'  => $object->seq_region_name,
    's'   => 1,
    'e'   => $object->seq_region_length,
    'wuc' => 'ideogram'
  });

  my( $panel, $object ) = @_;
  ajax_place_holder( $panel, $object,
  {
    'sr'  => $object->seq_region_name,
    's'   => 1,
    'e'   => $object->seq_region_end,
    'wuc' => 'contigviewtop'
  });

  my $self = shift;
  my $object = $self->{object};
  my $type = shift;
  my %pars = (
    'l'    => $object->seq_region_name.':'.$object->seq_region_start.'-'.$object->seq_region_end,
    'script' => 'contigview'
  );
  if( $type eq 'ideogram' ) {
    %pars = (
      %pars,
      's'            => 1,
      'e'            => $object->seq_region_length,
      'type'         => 'button',
      'user_config'  => 'chromosome'
    ); 
  } elsif( $type eq 'overview' ) {
    %pars = (
      %pars,
      's'            => $object->centrepoint - 500000,
      'e'            => $object->centrepoint + 500000,
      'type'         => 'button',
      'user_config'  => 'contigviewtop'
    );
  } elsif( $type eq 'bottom' ) {
    %pars = (
      %pars,
      's'            => $object->seq_region_start,
      'e'            => $object->seq_region_end,
      'type'         => 'imagemap',
      'user_config'  => 'contigviewbottom'
    );
  } else {
    %pars = (
      %pars,
      's'            => $object->centrepoint - 500,
      'e'            => $object->centrepoint + 500,
      'type'         => 'imagemap',
      'user_config'  => 'contigviewbottom'
    );
  }
  my $return = '';
  foreach (keys %pars) {
    $return .= sprintf ";%s=%s", $_, $pars{$_};
  }
  substr($return,0,1)='?';
  return $return;

   my $self = shift;
  my $flag = "_".($self->{'flag'}+0);
  warn $self->{object}->script;
  my $wsc = $self->{object}->get_scriptconfig('contigview');
  warn "PANELS... ", map { $_->{code} } @{ $self->{page}->content->{'panels'}||[] };
  $self->{page}->javascript->add_source( '/js/ajax.js' );
  $self->{page}->javascript->add_source( '/js/ensembl_ajax.js' );
  foreach my $K ( qw(ideogram overview bottom basepair) ) {
    my $key = "$K$flag";
    my $P = $self->{page}->content->panel( $key );
    if( $P ) {
      $P->replace_component( 
        'image',
        'EnsEMBL::AJAX::Configuration::Location::ajax_place_holder_'.$K,
        'no'
      );
      $self->{page}->add_body_attr( 'onLoad' => qq(load_image_into("@{[$self->{object}->species]}","${key}_image","@{[$self->get_parameters($K)]}");) );
    }
  }