view release on metacpan or  search on metacpan

Embperl/Form/Control/textarea.pm  view on Meta::CPAN

    {
    my ($self, $dataref) = @_ ;

    return if ($self -> {format} ne 'html') ;
    
    use utf8 ;
    $$dataref =~ s/<.+?>/ /g ;
    $$dataref =~ s/&auml;/ä/g ;
    $$dataref =~ s/&ouml;/ö/g ;
    $$dataref =~ s/&uuml;/ü/g ;
    $$dataref =~ s/&Auml;/Ä/g ;
    $$dataref =~ s/&Ouml;/Ö/g ;
    $$dataref =~ s/&Uuml;/Ü/g ;
    $$dataref =~ s/&szlig;/ß/g ;
    $$dataref =~ s/&gt;/>/g ;
    $$dataref =~ s/&lt;/</g ;
    $$dataref =~ s/&quot;/"/g ;
    $$dataref =~ s/&apos;/'/g ;
    $$dataref =~ s/&#39;/'/g ;
    $$dataref =~ s/&amp;/&/g ;
    $$dataref =~ s/&nbsp;/ /g ;
    }

# ------------------------------------------------------------------------------------------
#
#   get_display_text - returns the text that should be displayed
#

sub get_display_text
    {
    my ($self, $req, $value, $compact) = @_ ;
    
    $value = $self -> get_value ($req) if (!defined ($value)) ;
    return $value if ($self -> {format} ne 'html') ;    

    if ($compact)
        {
        $self -> _html2text (\$value) ;
        }
    else
        {
        $self -> _filter_html (\$value) ;
        $self -> _text2html (\$value) ;
        }
    
    return $value ;
    }


    
# ------------------------------------------------------------------------------------------
#
#   init_data - daten aufteilen
#

sub init_data
    {
    my ($self, $req, $parentctrl, $force) = @_ ;


    my $fdat  = $req -> {docdata} || \%fdat ;
    my $name  = $self->{name} ;
    return if (!exists $fdat->{$name} || $req -> {"ef_textarea_init_done_$name"}) ;

    if ($self -> {format} ne 'html')
        {
        if ($self -> is_readonly ($req))
            {
            $self -> _text2pre (\$fdat->{$name}) ;
            }
        }
    else
        {
        $self -> _filter_html (\$fdat->{$name}) ;
        $self -> _text2html (\$fdat->{$name}) ;
        }
        
    $req -> {"ef_textarea_init_done_$name"} = 1 ;
    return ;
    }

# ---------------------------------------------------------------------------
#
#   init_markup - add any dynamic markup to the form data
#

sub init_markup

    {
    my ($self, $req, $parentctl, $method) = @_ ;

    return $self -> init_data ($req, $parentctl) ;
    }

# ------------------------------------------------------------------------------------------
#
#   prepare_fdat - daten zusammenfuehren
#

sub prepare_fdat
    {
    my ($self, $req) = @_ ;

    my $fdat  = $req -> {form} || \%Embperl::fdat ;
    my $name  = $self->{name} ;
    return if (!exists $fdat->{$name}) ;

    if ($self -> {format} ne 'html')
        {
        return ;
        }

    $self -> _filter_html (\$fdat->{$name}) ;
    $self -> _text2html (\$fdat->{$name}) ;

    return ;
    }

1 ;

__EMBPERL__