syntax error at (eval 99) line 98, near "->use file"
BEGIN not safe after errors--compilation aborted at (eval 99) line 138.
 in # ==============================================================================
#
# /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/html/shop/catalog.html.pl
#
# Program generated by wrapper.pm - Do not modify
#
# Date           : 2010/03/13 02:32:11
# Source         : /home/webhosting/jenro/www.jenrosport.com/htdocs/shop/catalog.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/shop/catalog.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_main.html" 
# --------------------------------------------------
    $_result_ .= $subwrapper->use file="tmpl_main.html" ;
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  $page -> {'content'} = sub {my $_result_='';
# --------------------------------------------------
 $page -> {'content'} = sub {my $_result_='';
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
# 
#     use EPV::Object ;
#     my $data_dictionary = new EPV::Object ;
# 
#     my $data_file = $ENV{'EPV.PRG_DIRECTORY'} . '/public_data/products/catalog.xml' ;
#     my $_o_xml = "" ;
#     open ( XML_FILE , $data_file ) or die "Can't open file: $data_file, $!" ;
#     while ( <XML_FILE> ) {
#         $_o_xml .= $_ ;
#     }
#     close ( XML_FILE ) ;
# 
#     $data_dictionary -> from_xml (
#         '_o_xml'    => $_o_xml ,
#     ) ;
# 
#     $data_dictionary = $data_dictionary->{'dictionary'} ;
# 
#     while ( ( $_o_id, $object ) = each ( %{$data_dictionary} ) ) {
#         $object -> {'_o_id'} = $_o_id ;
#     }
# 
# 
#     my $catalog = $data_dictionary -> {'catalog_000001'} ;
# --------------------------------------------------

    use EPV::Object ;
    my $data_dictionary = new EPV::Object ;

    my $data_file = $ENV{'EPV.PRG_DIRECTORY'} . '/public_data/products/catalog.xml' ;
    my $_o_xml = "" ;
    open ( XML_FILE , $data_file ) or die "Can't open file: $data_file, $!" ;
    while ( <XML_FILE> ) {
        $_o_xml .= $_ ;
    }
    close ( XML_FILE ) ;

    $data_dictionary -> from_xml (
        '_o_xml'    => $_o_xml ,
    ) ;

    $data_dictionary = $data_dictionary->{'dictionary'} ;

    while ( ( $_o_id, $object ) = each ( %{$data_dictionary} ) ) {
        $object -> {'_o_id'} = $_o_id ;
    }


    my $catalog = $data_dictionary -> {'catalog_000001'} ;

# ----------------------------------------------------------------------------------------------------
# 
# 
# 
# <script><!--
#     var product_dico = {
# 
# 
#     } ;
# //--></script>
# 
# 
# 
# <div style="padding-right:10px;min-height:100%">
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '<script><!--' . "\n" ;
    $_result_ .= '    var product_dico = {' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    } ;' . "\n" ;
    $_result_ .= '//--></script>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '<div style="padding-right:10px;min-height:100%">' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  for $range_o_id ( @{$catalog->{'ranges'}} ) { 
# --------------------------------------------------
 for $range_o_id ( @{$catalog->{'ranges'}} ) { 
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  my $range = $data_dictionary -> {$range_o_id} ; 
# --------------------------------------------------
 my $range = $data_dictionary -> {$range_o_id} ; 
# ----------------------------------------------------------------------------------------------------
# 
# <h2>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<h2>' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $range->{'name'} 
# --------------------------------------------------
\xA7 $range->{'name'} 
# ----------------------------------------------------------------------------------------------------
# </h2>
# --------------------------------------------------
    $_result_ .= '</h2>' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  for $product_o_id ( @{$range->{'products'}} ) { 
# --------------------------------------------------
 for $product_o_id ( @{$range->{'products'}} ) { 
# ----------------------------------------------------------------------------------------------------
# 
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  my $product = $data_dictionary -> {$product_o_id} ; 
# --------------------------------------------------
 my $product = $data_dictionary -> {$product_o_id} ; 
# ----------------------------------------------------------------------------------------------------
# 
# <span class="bloc">
# <table cellpadding=0 cellspacing=0 border=0>
# <tr>
# <td valign=top rowspan=2 style="padding-bottom:10px"><a href="
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<span class="bloc">' . "\n" ;
    $_result_ .= '<table cellpadding=0 cellspacing=0 border=0>' . "\n" ;
    $_result_ .= '<tr>' . "\n" ;
    $_result_ .= '<td valign=top rowspan=2 style="padding-bottom:10px"><a href="' . "" ;
# -- event_element --
    $_result_ .= $__w__elements__ ->  url ( 'display' => '/shop/product.html' , 'params' => { '_o_id' => $product->{'_o_id'} } )  ;
# ----------------------------------------------------------------------------------------------------
# "><img class="product" width=84 height=100 src="/_img/products/84x100/
# --------------------------------------------------
    $_result_ .= '"><img class="product" width=84 height=100 src="/_img/products/84x100/' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $product->{'picture_id'} 
# --------------------------------------------------
$_temp_result_ = eval {  $product->{'picture_id'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# .png" alt="
# --------------------------------------------------
    $_result_ .= '.png" alt="' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $product->{'name'} 
# --------------------------------------------------
\xA7 $product->{'name'} 
# ----------------------------------------------------------------------------------------------------
# "></a></td>
# <td valign=top width=100% style="font-size:65%;padding:0px 5px 0px 5px">
# <h3 style="padding:0px 0px 2px 0px">
# <a class="text" href="
# --------------------------------------------------
    $_result_ .= '"></a></td>' . "\n" ;
    $_result_ .= '<td valign=top width=100% style="font-size:65%;padding:0px 5px 0px 5px">' . "\n" ;
    $_result_ .= '<h3 style="padding:0px 0px 2px 0px">' . "\n" ;
    $_result_ .= '<a class="text" href="' . "" ;
# -- event_element --
    $_result_ .= $__w__elements__ ->  url ( 'display' => '/shop/product.html' , 'params' => { '_o_id' => $product->{'_o_id'} } )  ;
# ----------------------------------------------------------------------------------------------------
# ">
# --------------------------------------------------
    $_result_ .= '">' . "\n" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $product->{'name'} 
# --------------------------------------------------
\xA7 $product->{'name'} 
# ----------------------------------------------------------------------------------------------------
# </h3><p style="line-height:12px">
# --------------------------------------------------
    $_result_ .= '</h3><p style="line-height:12px">' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $product->{'short_description'} 
# --------------------------------------------------
\xA7 $product->{'short_description'} 
# ----------------------------------------------------------------------------------------------------
# </p>
# </a>
# </td></tr><tr><td style="font-size:65%;padding:2px 5px 40px 5px;vertical-align:bottom">
# --------------------------------------------------
    $_result_ .= '</p>' . "\n" ;
    $_result_ .= '</a>' . "\n" ;
    $_result_ .= '</td></tr><tr><td style="font-size:65%;padding:2px 5px 40px 5px;vertical-align:bottom">' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  if ( $product->{'price'}->{'eur'} ) { 
# --------------------------------------------------
 if ( $product->{'price'}->{'eur'} ) { 
# ----------------------------------------------------------------------------------------------------
# 
# <p style="margin:3px 15px 0px 0px;text-align:right;line-height:10px">
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<p style="margin:3px 15px 0px 0px;text-align:right;line-height:10px">' . "\n" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 [web_price] 
# --------------------------------------------------
\xA7 [web_price] 
# ----------------------------------------------------------------------------------------------------
#  : 
# --------------------------------------------------
    $_result_ .= ' : ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $product->{'price'}->{'eur'} 
# --------------------------------------------------
$_temp_result_ = eval {  $product->{'price'}->{'eur'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
#  \x80<br>
# --------------------------------------------------
    $_result_ .= ' \\x80<br>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  if ( $site->{'shop_status'} eq 'on' ) { 
# --------------------------------------------------
 if ( $site->{'shop_status'} eq 'on' ) { 
# ----------------------------------------------------------------------------------------------------
# 
# <script><!--
#     product_dico['
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<script><!--' . "\n" ;
    $_result_ .= '    product_dico[\'' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $product->{'_o_id'} 
# --------------------------------------------------
$_temp_result_ = eval {  $product->{'_o_id'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# '] = {
#         'picture'       : "/_img/products/84x100/
# --------------------------------------------------
    $_result_ .= '\'] = {' . "\n" ;
    $_result_ .= '        \'picture\'       : "/_img/products/84x100/' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $product->{'picture_id'} 
# --------------------------------------------------
$_temp_result_ = eval {  $product->{'picture_id'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# .png" ,
#         'name'          : "
# --------------------------------------------------
    $_result_ .= '.png" ,' . "\n" ;
    $_result_ .= '        \'name\'          : "' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $product->{'name'} 
# --------------------------------------------------
\xA7 $product->{'name'} 
# ----------------------------------------------------------------------------------------------------
# " ,
#         'price'         : "
# --------------------------------------------------
    $_result_ .= '" ,' . "\n" ;
    $_result_ .= '        \'price\'         : "' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $product->{'price'}->{'eur'} 
# --------------------------------------------------
$_temp_result_ = eval {  $product->{'price'}->{'eur'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# " ,
#         'version_title' : "
# --------------------------------------------------
    $_result_ .= '" ,' . "\n" ;
    $_result_ .= '        \'version_title\' : "' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $product->{'version_title'} 
# --------------------------------------------------
$_temp_result_ = eval {  $product->{'version_title'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# " ,
#         'versions'      : [ ]
#     } ;
# 
#     
# --------------------------------------------------
    $_result_ .= '" ,' . "\n" ;
    $_result_ .= '        \'versions\'      : [ ]' . "\n" ;
    $_result_ .= '    } ;' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '    ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  foreach $version ( @{$product->{'versions'}} ) { 
# --------------------------------------------------
 foreach $version ( @{$product->{'versions'}} ) { 
# ----------------------------------------------------------------------------------------------------
# 
#         product_dico['
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '        product_dico[\'' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $product->{'_o_id'} 
# --------------------------------------------------
$_temp_result_ = eval {  $product->{'_o_id'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# '].versions.push ( {
#             'name'      : "
# --------------------------------------------------
    $_result_ .= '\'].versions.push ( {' . "\n" ;
    $_result_ .= '            \'name\'      : "' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 $version->{'title'} 
# --------------------------------------------------
\xA7 $version->{'title'} 
# ----------------------------------------------------------------------------------------------------
# " ,
#             'reference' : "
# --------------------------------------------------
    $_result_ .= '" ,' . "\n" ;
    $_result_ .= '            \'reference\' : "' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $version->{'reference'} 
# --------------------------------------------------
$_temp_result_ = eval {  $version->{'reference'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# "
#         } ) ;
#     
# --------------------------------------------------
    $_result_ .= '"' . "\n" ;
    $_result_ .= '        } ) ;' . "\n" ;
    $_result_ .= '    ' . "" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# 
# 
# //--></script>
# <a href="#" class="user_action" onClick="basket.splash(event,'
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '//--></script>' . "\n" ;
    $_result_ .= '<a href="#" class="user_action" onClick="basket.splash(event,\'' . "" ;
# ----------------------------------------------------------------------------------------------------
#  $product->{'_o_id'} 
# --------------------------------------------------
$_temp_result_ = eval {  $product->{'_o_id'} } ;
die $@ if ( $@ ) ;
$_temp_result_ =~ s/&/&amp;/gms ;
$_result_ .= $_temp_result_ ;
# ----------------------------------------------------------------------------------------------------
# ');return false">
# --------------------------------------------------
    $_result_ .= '\');return false">' . "" ;
# ----------------------------------------------------------------------------------------------------
# \xA7 [buy_now] 
# --------------------------------------------------
\xA7 [buy_now] 
# ----------------------------------------------------------------------------------------------------
# </a>
# --------------------------------------------------
    $_result_ .= '</a>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# </p>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '</p>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# </td></tr>
# </table>
# </span>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '</td></tr>' . "\n" ;
    $_result_ .= '</table>' . "\n" ;
    $_result_ .= '</span>' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# <div style="clear:both"></div>
# --------------------------------------------------
    $_result_ .= '' . "\n" ;
    $_result_ .= '<div style="clear:both"></div>' . "\n" ;
    $_result_ .= '' . "\n" ;
    $_result_ .= '' . "\n" ;
# ----------------------------------------------------------------------------------------------------
#  } 
# --------------------------------------------------
 } 
# ----------------------------------------------------------------------------------------------------
# 
# 
# 
# </div>
# --------------------------------------------------
    $_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.