[Bioperl-l] My last email about Bio::Graphics::Panel, please HELP

[Danielucg Sousa]

Hi,

I'm showing a sequence on browser, but I not get do a
link http.
When a use: print $q->$map;
The out messanger is: 
Undefined subroutine CGI::<map name="bgmap00001"
id="bgmap00001">
<area shape="rect" coords="10,0,490,11"
href="http://www.google.com.br" title="test 2"
alt="test 2" />
<area shape="rect" coords="329,0,650,11"
href="http://www.google.com.br" title="test 2"
alt="test 2" />
</map>

Please, What I do?
I have used Bioperl 1.5 RC 2 
Thanky for all.

My little code :
#!/usr/bin/perl -wT

use strict;
use Bio::Graphics;
use Bio::Graphics::FeatureFile;
use Bio::SeqIO;
use Bio::SeqFeature::Generic;
use CGI  qw / :standard /;
use CGI::Pretty;

my $wholeseq =
Bio::SeqFeature::Generic->new(-start=>1,-end=>600);

my $q = new CGI;

print $q->header('text/html');
print $q->start_html('A Vector Rendering ');

print $q->h1('teste');
my $panel = Bio::Graphics::Panel->new(-length  => 
1000, -width  => 800, -pad_left     => 10,  -pad_right
   => 10,  -key_style =>'none', -spacing => -0.25, 
-box_subparts => 'true',-link =>
"http://www.google.com");

my $track =  $panel->add_track($wholeseq,  -glyph  =>
'transcript2', -bgcolor =>'orange', -bump   => 0,
-height =>12,-title=>'test 2', -link
=>'http://www.google.com.br' );

my $feature =
Bio::SeqFeature::Generic->new(-display_name=>'teste',
-score=>20, -start=>400, -end=>800,
-url=>'http://www.google.com' );
 $track -> add_feature($feature);
      
 my ($url,$map,$mapname) = $panel->image_and_map(-root
=> '/var/www/html',-url => '/tmpimages', -link =>
"http://www.google.com" );
 
print $q->img({-src=>$url,-usemap=>"#$mapname", -link
=> "http://www.google.com" });
print $q->$map;
print $q->($panel->png);
$panel->finished;
print $q->exit_html;

exit;

Thank you very much,
Daniel Xavier


	
	
		
_______________________________________________________ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis