svn commit: r1721102 - in /perl/embperl/trunk/Embperl/Form/Control: checkboxes.pm datetime.pm info.pm

[richter]

Author: richter
Date: Mon Dec 21 07:56:16 2015
New Revision: 1721102

URL: http://svn.apache.org/viewvc?rev=1721102&view=rev
Log:
Controls

Modified:
    perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm
    perl/embperl/trunk/Embperl/Form/Control/datetime.pm
    perl/embperl/trunk/Embperl/Form/Control/info.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm?rev=1721102&r1=1721101&r2=1721102&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm Mon Dec 21 07:56:16 
2015
@@ -80,6 +80,7 @@ __EMBPERL__
     my ($values, $options) = $self -> get_all_values ($req) ;
     my ($ctlattrs, $ctlid, $ctlname) =  $self -> get_std_control_attr($req) ;
     my $tab      = $self -> {tab} ;
+    push @{$self -> form -> {fields2empty}}, $name ;
 
 $]
 [$if $tab $]<[# #]table style="width: 100%">[$ endif $]

Modified: perl/embperl/trunk/Embperl/Form/Control/datetime.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/datetime.pm?rev=1721102&r1=1721101&r2=1721102&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/datetime.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/datetime.pm Mon Dec 21 07:56:16 2015
@@ -65,7 +65,7 @@ sub get_display_text
         return $1 ;
         }
     
-    my ($y, $m, $d, $h, $min, $s, $z) = ($time =~ 
/^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(.)/) ;
+    my ($y, $m, $d, $h, $min, $s, $z) = (($time . '00000000000000Z') =~ 
/^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(.)/) ;
 
     # Getting the local timezone
 

Modified: perl/embperl/trunk/Embperl/Form/Control/info.pm
URL: 
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/info.pm?rev=1721102&r1=1721101&r2=1721102&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/info.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/info.pm Mon Dec 21 07:56:16 2015
@@ -37,11 +37,12 @@ my $span = ($self->{width_percent});
 my $state   = $self -> {state} ;
 $state =~ s/[^-a-zA-Z0-9_]/_/g ;
 my $srctext = $self -> {showtext}?($self->{text}):$self -> form -> 
convert_text ($self, undef, undef, $req) ;
-my $text = join ('<br>', map {$epreq -> Escape ($_, 5)} split /\n/, $srctext) ;
+my @text = split /\n/, $srctext ;
 
 $]<table class="ef-element ef-element-width-[+ $self -> {width_percent} +][+ ' 
'+][+ $state +]">
   <tr>
-<td [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, undef, 
'readonly', 'ef-control-info') } +] >[$ if $self -> {image} $]<img 
class="cControlButtonSymbol" src="[+ $self -> {image} +]">[$endif$][+ do { 
local $escmode = 0 ; $text } +]&nbsp;</td>
+<td [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, undef, 
'readonly', 'ef-control-info') } +] >[$ if $self -> {image} $]<img 
class="cControlButtonSymbol" src="[+ $self -> {image} +]">[$endif$]
+[+ shift @text +][$ foreach my $val (@text) $]<br>[+ $val 
+][$endforeach$]&nbsp;</td>
 </tr>
   </table>[$endsub$]
 



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org