syntax error at (eval 131) line 98, near "->use file"
syntax error at (eval 131) line 368, next char $
syntax error at (eval 131) line 379, next char $
syntax error at (eval 131) line 424, next char $
syntax error at (eval 131) line 445, next char $
syntax error at (eval 131) line 473, near "} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ "
syntax error at (eval 131) line 499, near "} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ "
syntax error at (eval 131) line 525, near "} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ "
syntax error at (eval 131) line 577, near "} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ "
syntax error at (eval 131) line 603, near "} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ "
(eval 131) has too many errors.
 in # ==============================================================================
#
# /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/html/contacts/index.html.pl
#
# Program generated by wrapper.pm - Do not modify
#
# Date           : 2010/07/29 16:36:16
# Source         : /home/webhosting/jenro/www.jenrosport.com/htdocs/contacts/index.html
# Event Handlers : Iplume::Wrapper::Events_Perl
#
# ==============================================================================

use utf8 ;

use Iplume::Wrapper::Events_Perl ;
use Iplume::Wrapper::Events_Default ;
my $__wrapper_element__ = new Iplume::Wrapper::Events_Perl ;

# -- event_start --
    my $_result_ = '' ;
    my $request = $__w__context__ -> {'request'} ;
    my $lang_id = $__w__context__ -> {'lang_id'} ;
    my $page = $__w__context__ -> {'page'} ;
    my $site = $__w__context__ -> {'site'} ;
    my $page_id = $__w__context__ -> {'page_id'} ;
    my $display = $__w__context__ -> {'display'} ;

    my $subwrapper = new Iplume::Wrapper ;
    $subwrapper -> initialize (
      'event_handlers'    => new Iplume::Wrapper::Events_Perl ,
    ) ;
    $subwrapper -> {'path_html'} = [] ;
    push @{$subwrapper -> {'path_html'}} , {
        'src' => '/home/webhosting/jenro/www.jenrosport.com/httmpl' ,
        'prg' => '/home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/tmpl' ,
        'def' => '/home/webhosting/jenro/www.jenrosport.com/htdata/blocs' ,
    } ;
    $subwrapper -> {'path_tmpl'} = $subwrapper -> {'path_html'} ;
    $subwrapper -> {'texts'} = $__w__texts__ ;
    $subwrapper -> {'elements'} = $__w__elements__ ;

    $subwrapper -> {'context'} -> {'request'} = $request ;
    $subwrapper -> {'context'} -> {'lang_id'} = $lang_id ;
    $subwrapper -> {'context'} -> {'page'} = $page ;
    $subwrapper -> {'context'} -> {'site'} = $site ;
    $subwrapper -> {'context'} -> {'page_id'} = $page_id ;
    $subwrapper -> {'context'} -> {'display'} = $display ;

    my $langwrapper = new Iplume::Wrapper ;
    $langwrapper -> initialize (
      'lang_id'           => $lang_id ,
      'event_handlers'    => new Iplume::Wrapper::Events_Default ,
    ) ;
    $langwrapper -> {'texts'} = $__w__texts__ ;
    $langwrapper -> {'elements'} = $__w__elements__ ;

    $langwrapper -> {'context'} -> {'request'} = $request ;
    $langwrapper -> {'context'} -> {'lang_id'} = $lang_id ;
    $langwrapper -> {'context'} -> {'page'} = $page ;
    $langwrapper -> {'context'} -> {'site'} = $site ;
    $langwrapper -> {'context'} -> {'page_id'} = $page_id ;
    $langwrapper -> {'context'} -> {'display'} = $display ;

use Iplume::Object ;
my $__data_page__ = new Iplume::Object ;
my $page_def_file = "/home/webhosting/jenro/www.jenrosport.com/htdata/pages/contacts/index.html.xml" ;
if ( -e $page_def_file ) {
    $__data_page__ -> from_xml (
        'file'     => $page_def_file ,
    ) ;
    foreach $text_definition ( @{$__data_page__->{'texts'}} ) {
        if ( exists($text_definition->{'text_rsc'}->{$lang_id}) && $text_definition->{'text_rsc'}->{$lang_id} ne '' ) {
            $site->{'texts'}->{$text_definition->{'text_id'}} = $text_definition->{'text_rsc'}->{$lang_id} ;
        }
        elsif ( exists($text_definition->{'text_rsc'}->{'en'}) ) {
            $site->{'texts'}->{$text_definition->{'text_id'}} = $text_definition->{'text_rsc'}->{'en'} ;
        }
        else {
            $site->{'texts'}->{$text_definition->{'text_id'}} = '' ;
        }
    }
    while ( ($k,$v) = each ( %{$__data_page__} ) ) {
        $page -> {$k} = $v ;
    }
}
if ( exists ( $__data_page__->{'html_title'} ) ) {
    $page->{'html_title'} = $__data_page__->{'html_title'} ;
    $page->{'html_keywords'} = $__data_page__->{'html_keywords'} ;
    $page->{'html_description'} = $__data_page__->{'html_description'} ;
}
eval {
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
# ----------------------------------------------------------------------------------------------------
#  use file="tmpl_002.html" 
# --------------------------------------------------
    $_result_ .= $subwrapper->use file="tmpl_002.html" ;
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
# 
#     my $zone_list = [
#         {
#             'picture'       => 'map_na.png' ,
#             'zone_name'     => {
#                 'en'            => 'North America' ,
#                 'fr'            => 'Am\xE9rique du Nord' ,
#             } ,
# 
#             'office_name'   => {
#                 'en'            => 'Jenro USA' ,
#                 'fr'            => 'Jenro USA' ,
#             } ,
# 
#             'contact_list'  => [
#                 {
# #                    'name'      => 'Angelica Pena' ,
# #                    'tel'       => '++1 866 99 JENRO<br><i>++1 866 99 53676</i>' ,
#                     'e-mail'    => 'northamerica-info@jenrosport.com' ,
#                 } ,
#             ] ,
#         } ,
# 
#         {
#             'picture'       => 'map_la.png' ,
#             'zone_name'     => {
#                 'en'            => 'Latin America' ,
#                 'fr'            => 'Am\xE9rique Latine' ,
#             } ,
# 
#             'office_name'   => {
#                 'en'            => 'Jenro South America' ,
#                 'fr'            => 'Jenro Amerique du Sud' ,
#             } ,
# 
#             'contact_list'  => [
#                 {
# #                    'tel'       => '++1 786 308 1241' ,
#                     'e-mail'    => 'latinamerica-info@jenrosport.com' ,
#                 } ,
#             ] ,
#         } ,
# 
#         {
#             'picture'       => 'map_eu.png' ,
#             'zone_name'     => {
#                 'en'            => 'Europa, Middle East and Africa' ,
#                 'fr'            => 'Europe, Afrique et Moyen-Orient' ,
#             } ,
# 
#             'office_name'   => {
#                 'en'            => 'Jimex Trading' ,
#                 'fr'            => 'Jimex Trading' ,
#             } ,
# 
#             'contact_list'  => [
#                 {
#                     'mob'       => '++33 6 22 19 96 87' ,
#                     'tel'       => '++33 4 94 40 39 36' ,
#                     'e-mail'    => 'europe-info@jenrosport.com' ,
#                 } ,
# #                {
# #                    'title'     => {
# #                        'fr'    => 'Paris and Belgium' ,
# #                        'en'    => 'Paris et Belgique' ,
# #                    } ,
# #                    'name'      => 'Fabrice Meunier' ,
# #                    'tel'       => '++33 6 62 10 19 42' ,
# #                } ,
#             ] ,
#         } ,
# 
#         {
#             'picture'       => 'map_as.png' ,
#             'zone_name'     => {
#                 'en'            => 'Asia and Oceania' ,
#                 'fr'            => 'Asie et Oc\xE9anie' ,
#             } ,
# 
#             'office_name'   => {
#                 'en'            => 'Jenro Asia' ,
#                 'fr'            => 'Jenro Asia' ,
#             } ,
# 
#             'contact_list'  => [
#                 {
#                     'e-mail'    => 'asia-info@jenrosport.com' ,
#                 } ,
#             ] ,
#         } ,
# 
#     ] ;
# --------------------------------------------------

    my $zone_list = [
        {
            'picture'       => 'map_na.png' ,
            'zone_name'     => {
                'en'            => 'North America' ,
                'fr'            => 'Am\xE9rique du Nord' ,
            } ,

            'office_name'   => {
                'en'            => 'Jenro USA' ,
                'fr'            => 'Jenro USA' ,
            } ,

            'contact_list'  => [
                {
#                    'name'      => 'Angelica Pena' ,
#                    'tel'       => '++1 866 99 JENRO<br><i>++1 866 99 53676</i>' ,
                    'e-mail'    => 'northamerica-info@jenrosport.com' ,
                } ,
            ] ,
        } ,

        {
            'picture'       => 'map_la.png' ,
            'zone_name'     => {
                'en'            => 'Latin America' ,
                'fr'            => 'Am\xE9rique Latine' ,
            } ,

            'office_name'   => {
                'en'            => 'Jenro South America' ,
                'fr'            => 'Jenro Amerique du Sud' ,
            } ,

            'contact_list'  => [
                {
#                    'tel'       => '++1 786 308 1241' ,
                    'e-mail'    => 'latinamerica-info@jenrosport.com' ,
                } ,
            ] ,
        } ,

        {
            'picture'       => 'map_eu.png' ,
            'zone_name'     => {
                'en'            => 'Europa, Middle East and Africa' ,
                'fr'            => 'Europe, Afrique et Moyen-Orient' ,
            } ,

            'office_name'   => {
                'en'            => 'Jimex Trading' ,
                'fr'            => 'Jimex Trading' ,
            } ,

            'contact_list'  => [
                {
                    'mob'       => '++33 6 22 19 96 87' ,
                    'tel'       => '++33 4 94 40 39 36' ,
                    'e-mail'    => 'europe-info@jenrosport.com' ,
                } ,
#                {
#                    'title'     => {
#                        'fr'    => 'Paris and Belgium' ,
#                        'en'    => 'Paris et Belgique' ,
#                    } ,
#                    'name'      => 'Fabrice Meunier' ,
#                    'tel'       => '++33 6 62 10 19 42' ,
#                } ,
            ] ,
        } ,

        {
            'picture'       => 'map_as.png' ,
            'zone_name'     => {
                'en'            => 'Asia and Oceania' ,
                'fr'            => 'Asie et Oc\xE9anie' ,
            } ,

            'office_name'   => {
                'en'            => 'Jenro Asia' ,
                'fr'            => 'Jenro Asia' ,
            } ,

            'contact_list'  => [
                {
                    'e-mail'    => 'asia-info@jenrosport.com' ,
                } ,
            ] ,
        } ,

    ] ;




# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  $page -> {'content'} = sub {my $_result_='';
# --------------------------------------------------
 $page -> {'content'} = sub {my $_result_='';
# ----------------------------------------------------------------------------------------------------
# 
# <div style="padding-right:10px">
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<div style="padding-right:10px">' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  if ( ! exists ( $site->{'request'}->{'params'}->{'contact.e_mail'} ) ) { 
# --------------------------------------------------
 if ( ! exists ( $site->{'request'}->{'params'}->{'contact.e_mail'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# 
#     
# 
# 
#     
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '    ' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  foreach $zone ( @{$zone_list} ) { 
# --------------------------------------------------
 foreach $zone ( @{$zone_list} ) { 
# ----------------------------------------------------------------------------------------------------
# 
# 
#     <table><tr>
#     <td valign=top><img src="/_img/
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    <table><tr>' . "\n" ;
    $_result_ .= '    <td valign=top><img src="/_img/' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $zone->{'picture'} 
# --------------------------------------------------
$_temp_result_ = eval {  $zone->{'picture'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# "></td>
#     <td valign=top style="padding:10px 0px 0px 20px">
#         <i style="font-size:11px;color:#666666">
# --------------------------------------------------
    $_result_ .= '"></td>' . "\n" ;
    $_result_ .= '    <td valign=top style="padding:10px 0px 0px 20px">' . "\n" ;
    $_result_ .= '        <i style="font-size:11px;color:#666666">' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $zone->{'zone_name'} 
# --------------------------------------------------
\xA7 $zone->{'zone_name'} 
# ----------------------------------------------------------------------------------------------------
# </i>
#         <h2 style="margin:0px;padding:0px">
# --------------------------------------------------
    $_result_ .= '</i>' . "\n" ;
    $_result_ .= '        <h2 style="margin:0px;padding:0px">' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $zone->{'office_name'} 
# --------------------------------------------------
\xA7 $zone->{'office_name'} 
# ----------------------------------------------------------------------------------------------------
# </h2>
#         <div style="margin:0px 0px 30px 30px">
#         
# --------------------------------------------------
    $_result_ .= '</h2>' . "\n" ;
    $_result_ .= '        <div style="margin:0px 0px 30px 30px">' . "\n" ;
    $_result_ .= '        ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  foreach $contact ( @{$zone->{'contact_list'}} ) { 
# --------------------------------------------------
 foreach $contact ( @{$zone->{'contact_list'}} ) { 
# ----------------------------------------------------------------------------------------------------
# 
#             <table style="margin-top:5px" cellpadding=0 cellspacing=0 border=0>
#             
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '            <table style="margin-top:5px" cellpadding=0 cellspacing=0 border=0>' . "\n" ;
    $_result_ .= '            ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $contact->{'title'} ) || exists ( $contact->{'name'} ) ) { 
# --------------------------------------------------
 if ( exists ( $contact->{'title'} ) || exists ( $contact->{'name'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# 
#                 <tr><td valign=top colspan=2>
#                     
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '                <tr><td valign=top colspan=2>' . "\n" ;
    $_result_ .= '                    ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $contact->{'title'} ) ) { 
# --------------------------------------------------
 if ( exists ( $contact->{'title'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# 
#                     <b>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '                    <b>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $contact->{'title'} 
# --------------------------------------------------
\xA7 $contact->{'title'} 
# ----------------------------------------------------------------------------------------------------
#  :</b>
#                     
# --------------------------------------------------
    $_result_ .= ' :</b>' . "\n" ;
    $_result_ .= '                    ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#                     <b>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '                    <b>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $contact->{'name'} 
# --------------------------------------------------
\xA7 $contact->{'name'} 
# ----------------------------------------------------------------------------------------------------
# </b>
#                 </td></tr>
#             
# --------------------------------------------------
    $_result_ .= '</b>' . "\n" ;
    $_result_ .= '                </td></tr>' . "\n" ;
    $_result_ .= '            ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#             
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '            ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $contact->{'mob'} ) ) { 
# --------------------------------------------------
 if ( exists ( $contact->{'mob'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top style="padding-left:10px">Mob:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top style="padding-left:10px">Mob:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $contact->{'mob'} 
# --------------------------------------------------
\xA7 $contact->{'mob'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#             
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '            ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $contact->{'tel'} ) ) { 
# --------------------------------------------------
 if ( exists ( $contact->{'tel'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top style="padding-left:10px">T\xE9l:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top style="padding-left:10px">T\\xE9l:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $contact->{'tel'} 
# --------------------------------------------------
\xA7 $contact->{'tel'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#             
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '            ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $contact->{'e-mail'} ) ) { 
# --------------------------------------------------
 if ( exists ( $contact->{'e-mail'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top style="padding-left:10px">E-Mail:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top style="padding-left:10px">E-Mail:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $contact->{'e-mail'} 
# --------------------------------------------------
\xA7 $contact->{'e-mail'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#             </table>
#         
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '            </table>' . "\n" ;
    $_result_ .= '        ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#         </div>
#     </td></tr>
#     </table>
# 
#         <table><tr><td valign=top>
# 
#         <table>
#         
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '        </div>' . "\n" ;
    $_result_ .= '    </td></tr>' . "\n" ;
    $_result_ .= '    </table>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '        <table><tr><td valign=top>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '        <table>' . "\n" ;
    $_result_ .= '        ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $contact->{'mob'} ) ) { 
# --------------------------------------------------
 if ( exists ( $contact->{'mob'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top>Mob:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top>Mob:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $contact->{'mob'} 
# --------------------------------------------------
\xA7 $contact->{'mob'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#         
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '        ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $contact->{'tel'} ) ) { 
# --------------------------------------------------
 if ( exists ( $contact->{'tel'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top>T\xE9l:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top>T\\xE9l:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $contact->{'tel'} 
# --------------------------------------------------
\xA7 $contact->{'tel'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#         
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '        ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $contact->{'e-mail'} ) ) { 
# --------------------------------------------------
 if ( exists ( $contact->{'e-mail'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top>E-Mail:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top>E-Mail:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $contact->{'e-mail'} 
# --------------------------------------------------
\xA7 $contact->{'e-mail'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#         </table>
# 
#         </td><td valign=top>
# 
#             
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '        </table>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '        </td><td valign=top>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '            ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  foreach $subcontact ( @{$contact->{'contact_list'}} ) { 
# --------------------------------------------------
 foreach $subcontact ( @{$contact->{'contact_list'}} ) { 
# ----------------------------------------------------------------------------------------------------
# 
#         
#             <b>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '        ' . "\n" ;
    $_result_ .= '            <b>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $subcontact->{'location'} 
# --------------------------------------------------
\xA7 $subcontact->{'location'} 
# ----------------------------------------------------------------------------------------------------
# </b> : <i>
# --------------------------------------------------
    $_result_ .= '</b> : <i>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $subcontact->{'name'} 
# --------------------------------------------------
\xA7 $subcontact->{'name'} 
# ----------------------------------------------------------------------------------------------------
# </i>
# 
#                 <table>
#                 
# --------------------------------------------------
    $_result_ .= '</i>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '                <table>' . "\n" ;
    $_result_ .= '                ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $subcontact->{'mob'} ) ) { 
# --------------------------------------------------
 if ( exists ( $subcontact->{'mob'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top>Mob:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top>Mob:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $subcontact->{'mob'} 
# --------------------------------------------------
\xA7 $subcontact->{'mob'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#                 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '                ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $subcontact->{'tel'} ) ) { 
# --------------------------------------------------
 if ( exists ( $subcontact->{'tel'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top>T\xE9l:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top>T\\xE9l:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $subcontact->{'tel'} 
# --------------------------------------------------
\xA7 $subcontact->{'tel'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#                 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '                ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  if ( exists ( $subcontact->{'e-mail'} ) ) { 
# --------------------------------------------------
 if ( exists ( $subcontact->{'e-mail'} ) ) { 
# ----------------------------------------------------------------------------------------------------
# <tr><td valign=top>E-Mail:</td><td valign=top>
# --------------------------------------------------
    $_result_ .= '<tr><td valign=top>E-Mail:</td><td valign=top>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $subcontact->{'e-mail'} 
# --------------------------------------------------
\xA7 $subcontact->{'e-mail'} 
# ----------------------------------------------------------------------------------------------------
# </td></tr>
# --------------------------------------------------
    $_result_ .= '</td></tr>' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
#                 </table>
# 
#             
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '                </table>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '            ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# 
# 
# 
#         </td></tr></table>
# 
#     
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '        </td></tr></table>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# <!--
# 
#     <h2>O\xF9 remplissez notre formulaire de contact</h2>
# 
# 
#     <table border=0>
#     <form name="form_password" id="form_password" method=post action="
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '<!--' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    <h2>O\\xF9 remplissez notre formulaire de contact</h2>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    <table border=0>' . "\n" ;
    $_result_ .= '    <form name="form_password" id="form_password" method=post action="' . "" ;
# -- event_element --
    $_result_ .= $__w__elements__ ->  url('display'=>'/contacts.html' )  ;
# ----------------------------------------------------------------------------------------------------
# ">
# 
#     <tr><td colspan="2">
#     <h3>Vos coordonn\xE9es</h3>
#     </td></tr>
# 
#     <tr>
#     <td class=p1 valign="top">Pr\xE9nom:</td>
#     <td align=right><input class="main" type=text name='contact.first_name' size=40></td>
#     </tr>
#     <tr>
#     <td class=p1 valign="top">Nom:</td>
#     <td align=right><input class="main" type=text name='contact.last_name' size=40></td>
#     </tr>
#     <tr>
#     <td class=p1 valign="top">E-mail:</td>
#     <td align=right><input class="main" type=text name='contact.e_mail' size=40></td>
#     </tr>
#     <tr>
#     <td class=p1 valign="top">Adresse,<br>Coordonn\xE9es:</td>
#     <td align=right><textarea class="main" name='contact.address' rows=4 cols=30></textarea></td>
#     </tr>
# 
# 
#     <tr><td colspan="2">
#     <h3>Votre message</h3>
#     </td></tr>
# 
# 
# 
# 
#     <tr>
#     <td class=p1>Objet:</td>
#     <td align=right><input class="main" type=text name='mail.subject' size=40></td>
#     </tr>
#     <tr>
#     <td colspan="2" align=right><textarea class="main" name='mail.content' rows=8 cols=50></textarea></td>
#     </tr>
# 
#     <tr>
#     <td colspan="2" align=center><input class="main" type=submit value="Envoyer"></td>
#     </tr>
#     
# 
#     </form>
#     </table>
# 
# -->
# --------------------------------------------------
    $_result_ .= '">' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    <tr><td colspan="2">' . "\n" ;
    $_result_ .= '    <h3>Vos coordonn\\xE9es</h3>' . "\n" ;
    $_result_ .= '    </td></tr>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    <tr>' . "\n" ;
    $_result_ .= '    <td class=p1 valign="top">Pr\\xE9nom:</td>' . "\n" ;
    $_result_ .= '    <td align=right><input class="main" type=text name=\'contact.first_name\' size=40></td>' . "\n" ;
    $_result_ .= '    </tr>' . "\n" ;
    $_result_ .= '    <tr>' . "\n" ;
    $_result_ .= '    <td class=p1 valign="top">Nom:</td>' . "\n" ;
    $_result_ .= '    <td align=right><input class="main" type=text name=\'contact.last_name\' size=40></td>' . "\n" ;
    $_result_ .= '    </tr>' . "\n" ;
    $_result_ .= '    <tr>' . "\n" ;
    $_result_ .= '    <td class=p1 valign="top">E-mail:</td>' . "\n" ;
    $_result_ .= '    <td align=right><input class="main" type=text name=\'contact.e_mail\' size=40></td>' . "\n" ;
    $_result_ .= '    </tr>' . "\n" ;
    $_result_ .= '    <tr>' . "\n" ;
    $_result_ .= '    <td class=p1 valign="top">Adresse,<br>Coordonn\\xE9es:</td>' . "\n" ;
    $_result_ .= '    <td align=right><textarea class="main" name=\'contact.address\' rows=4 cols=30></textarea></td>' . "\n" ;
    $_result_ .= '    </tr>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    <tr><td colspan="2">' . "\n" ;
    $_result_ .= '    <h3>Votre message</h3>' . "\n" ;
    $_result_ .= '    </td></tr>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    <tr>' . "\n" ;
    $_result_ .= '    <td class=p1>Objet:</td>' . "\n" ;
    $_result_ .= '    <td align=right><input class="main" type=text name=\'mail.subject\' size=40></td>' . "\n" ;
    $_result_ .= '    </tr>' . "\n" ;
    $_result_ .= '    <tr>' . "\n" ;
    $_result_ .= '    <td colspan="2" align=right><textarea class="main" name=\'mail.content\' rows=8 cols=50></textarea></td>' . "\n" ;
    $_result_ .= '    </tr>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    <tr>' . "\n" ;
    $_result_ .= '    <td colspan="2" align=center><input class="main" type=submit value="Envoyer"></td>' . "\n" ;
    $_result_ .= '    </tr>' . "\n" ;
    $_result_ .= '    ' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    </form>' . "\n" ;
    $_result_ .= '    </table>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '-->' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# </div>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '</div>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  return $_result_ ;} ; 
# --------------------------------------------------
 return $_result_ ;} ; 
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
# -- event_end --
    if ( $subwrapper->{'using'} ) {
        $_result_ = $subwrapper -> include ( 'file' => $subwrapper->{'using'} ) ;
    }
} ;
if ( $@ ) {
        if ( $ENV{'I-PLUME-ERROR'} eq 'TRUE' ) {
            return "Content-type: text/plain\n\n$@" ;
        }
        else {
            $ENV{'I-PLUME-ERROR-MSG'} = $@ ;
            $ENV{'I-PLUME-ERROR'} = 'TRUE' ;
            my $wrapper = new Iplume::Wrapper ;
            $wrapper -> initialize (
                'event_handlers'    => new Iplume::Wrapper::Events_Perl ,
            ) ;
            $wrapper -> {'path_html'} = [] ;
            push @{$wrapper -> {'path_html'}} , {
                'src' => '/home/webhosting/jenro/www.jenrosport.com/httmpl' ,
                'prg' => '/home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/tmpl' ,
                'def' => '/home/webhosting/jenro/www.jenrosport.com/htdata/blocs' ,
            } ;
            $wrapper -> {'path_tmpl'} = $wrapper -> {'path_html'} ;
            $wrapper -> {'texts'} = $__w__texts__ ;
            $wrapper -> {'elements'} = $__w__elements__ ;

            $wrapper -> {'context'} -> {'request'} = $request ;
            $wrapper -> {'context'} -> {'lang_id'} = $lang_id ;
            $wrapper -> {'context'} -> {'page'} = $page ;
            $wrapper -> {'context'} -> {'site'} = $site ;
            $wrapper -> {'context'} -> {'page_id'} = $page_id ;
            $wrapper -> {'context'} -> {'display'} = $display ;

            my $file_name = ( $ENV{'I-PLUME-ERROR-FILE'} ) ? $ENV{'I-PLUME-ERROR-FILE'} : 'page_error.html' ;
            $wrapper -> update_prg (
                 'src_file'          => $file_name ,
            ) ;

            $_result_ = $wrapper -> execute_prg ( ) ;
        }
}
else {
    return $_result_ ;
}
Iplume::Wrapper::execute_prg at /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-lib/Iplume/WebSite.pm line 524.
Iplume::WebSite::print_display at /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-lib/Iplume/WebSite.pl line 29.