Changeset 400

Timestamp:

08/27/09 16:55:24 (15 years ago)

Author:

nanardon

Message:

• DUMP/INPUT file: carraige return are now translate to \n and should be written in this form

Location:

LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases/Objects.pm (modified) (1 diff)
• Utils.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -408 +408 @@
             my @vals = ref $val ? @{ $val } : $val;
                 foreach (@vals) {
+                    s/\r?\n/\\n/g;
                     printf($handle "%s%s: %s\n", 
                         $wok ? '' : '# (ro) ',

LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -65 +65 @@
             die "Malformed input file\n";
         $value =~ s/\s*$//;
+        $value =~ s/\\n/\n/g;
         if ($attributes{$attr}) {
             if (ref $attributes{$attr}) {
@@ -108 +109 @@
     $res;
 }
+
 1;