Changeset 2788

Timestamp:

07/16/08 02:45:59 (2 months ago)

Author:

takayama

Message:

Fixed BugId:80673
* Recovered the lost function

Files:

• branches/release-41/lib/MT/Util.pm (modified) (2 diffs)

branches/release-41/lib/MT/Util.pm

@@ -26 +26 @@
-                 epoch2ts ts2epoch escape_unicode unescape_unicode
-                 sax_parser trim ltrim rtrim asset_cleanup caturl multi_iter
-
+make_string_csv 
-
-{
@@ -1964 +1964 @@
-};
-
+sub make_string_csv {
+    my ( $value, $enc ) = @_;
+    $value =~ s/\r|\r\n/\n/gs;
+    if ( ( ( index( $value, '"' ) > -1 ) || ( index( $value, '\n' ) > -1 ) )
+        && !( $value =~ m/^".*"$/gs ) )
+    {
+        $value = "\"$value\"";
+    }
+    return MT::I18N::encode_text( $value, undef, $enc );
+}
+
-1;
-