[Rt-commit] r10104 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Mon Dec 24 18:52:09 2007
New Revision: 10104

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Elements/EditCustomFieldFreeform

Log:
 r10027 at cubic-pc (orig r10026):  ruz | 2007-12-20 23:03:43 +0300
 * delete new line characters only when CF is not multiply 


Modified: rt/branches/3.7-EXPERIMENTAL/html/Elements/EditCustomFieldFreeform
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Elements/EditCustomFieldFreeform	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Elements/EditCustomFieldFreeform	Mon Dec 24 18:52:09 2007
@@ -52,13 +52,11 @@
 <input name="<%$name%>" id="<%$name%>" size="<%$Cols%>" value="<%$Default ? $Default : ''%>" />
 % }
 <%INIT>
-if ($Multiple and $Values) {
-  $Default = '';
-  while (my $value = $Values->Next ) {
-    $Default .= $value->Content."\n";
-  }
-} else {
-  $Default =~ s/\s*\n\s*/ /g if $Default;
+if ( $Multiple and $Values ) {
+    $Default = join "\n", map $_->Content, @{ $Values->ItemsArrayRef };
+}
+unless ( $Multiple ) {
+    $Default =~ s/\s*\n+\s*/ /g if $Default;
 }
 </%INIT>
 <%ARGS>