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

[michael watson (IAH-C)]

Just for completion, Dan and I looked at this outside of the list and
finally discovered what he actually wanted was:

$q->print($map);
$q->print($panel->png);

Which makes a LOT more sense.... :-)

-----Original Message-----
From: bioperl-l-bounces at portal.open-bio.org
[mailto:bioperl-l-bounces at portal.open-bio.org] On Behalf Of
palmeida at igc.gulbenkian.pt
Sent: 18 January 2005 12:01
To: Danielucg Sousa
Cc: bioperl-l at portal.open-bio.org
Subject: Re: [Bioperl-l] My last email about Bio::Graphics::Panel,
please HELP


Hi,

Have you tried: print $map;

You are using it as if $map were a subroutine of CGI, but you just want
to print whatever is in the variable $map.

-Paulo

On Tue, Jan 18, 2005 at 07:34:50AM -0300, Danielucg Sousa wrote:
> 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

-- 
Paulo Almeida
Instituto Gulbenkian de Ciencia
Apartado 14, 2781-901, Oeiras, PORTUGAL
tel  +351 21 446 46 35
fax  +351 21 440 79 70
http://www.igc.gulbenkian.pt
_______________________________________________
Bioperl-l mailing list
Bioperl-l at portal.open-bio.org
http://portal.open-bio.org/mailman/listinfo/bioperl-l