package SGN::View::Mason::Commands;
use strict;
use vars qw($m $c);
HTML::Mason::Component::FileBased->new(
'code' => sub {
use utf8; local $SGN::View::Mason::Commands::m = $HTML::Mason::Commands::m;
HTML::Mason::Exception::Params->throw
( error =>
"Odd number of parameters passed to component expecting name/value pairs"
) if @_ % 2;
my ( $user_id );
{
my %pos;
for ( my $x = 0; $x < @_; $x += 2 )
{
$pos{ $_[$x] } = $x + 1;
}
#line 3 "/home/production/cxgn/sgn/mason/breeders_toolbox/location_map.mas"
$user_id = exists $pos{'user_id'} ? $_[ $pos{'user_id'} ] : undef;
}
$m->debug_hook( $m->current_comp->path ) if ( HTML::Mason::Compiler::IN_PERL_DB() );
#line 1 "/home/production/cxgn/sgn/mason/breeders_toolbox/location_map.mas"
$m->print( '
' );
#line 5 "/home/production/cxgn/sgn/mason/breeders_toolbox/location_map.mas"
$m->print( '
' );
#line 6 "/home/production/cxgn/sgn/mason/breeders_toolbox/location_map.mas"
$m->comp( '/util/import_javascript.mas', classes => ['leaflet', 'esri-leaflet', 'esri-leaflet-geocoder-debug', 'leaflet_extra-markers_min', 'jquery.dstk']
); #line 6 "/home/production/cxgn/sgn/mason/breeders_toolbox/location_map.mas"
$m->print( '
Add a new location by clicking on the map. Or select an exisiting location to view details and options.
' );
;return;
},
'declared_args' => {
'$user_id' => { default => ' undef' }
},
'load_time' => 1763180352,
)
;