upgrade fckeditor to ckeditor, for IE10 compatibility, RT#22014

[freeside.git] / httemplate / elements / fckeditor / editor / filemanager / browser / default / connectors / perl / util.pl

diff --git a/httemplate/elements/fckeditor/editor/filemanager/browser/default/connectors/perl/util.pl b/httemplate/elements/fckeditor/editor/filemanager/browser/default/connectors/perl/util.pl
deleted file mode 100644 (file)
index e860292..0000000
--- a/httemplate/elements/fckeditor/editor/filemanager/browser/default/connectors/perl/util.pl
+++ /dev/null
@@ -1,60 +0,0 @@
-#####\r
-#  FCKeditor - The text editor for Internet - http://www.fckeditor.net\r
-#  Copyright (C) 2003-2007 Frederico Caldeira Knabben\r
-#\r
-#  == BEGIN LICENSE ==\r
-#\r
-#  Licensed under the terms of any of the following licenses at your\r
-#  choice:\r
-#\r
-#   - GNU General Public License Version 2 or later (the "GPL")\r
-#     http://www.gnu.org/licenses/gpl.html\r
-#\r
-#   - GNU Lesser General Public License Version 2.1 or later (the "LGPL")\r
-#     http://www.gnu.org/licenses/lgpl.html\r
-#\r
-#   - Mozilla Public License Version 1.1 or later (the "MPL")\r
-#     http://www.mozilla.org/MPL/MPL-1.1.html\r
-#\r
-#  == END LICENSE ==\r
-#\r
-#  This is the File Manager Connector for Perl.\r
-#####\r
-\r
-sub RemoveFromStart\r
-{\r
-       local($sourceString, $charToRemove) = @_;\r
-       $sPattern = '^' . $charToRemove . '+' ;\r
-       $sourceString =~ s/^$charToRemove+//g;\r
-       return $sourceString;\r
-}\r
-\r
-sub RemoveFromEnd\r
-{\r
-       local($sourceString, $charToRemove) = @_;\r
-       $sPattern = $charToRemove . '+$' ;\r
-       $sourceString =~ s/$charToRemove+$//g;\r
-       return $sourceString;\r
-}\r
-\r
-sub ConvertToXmlAttribute\r
-{\r
-       local($value) = @_;\r
-       return $value;\r
-#      return utf8_encode(htmlspecialchars($value));\r
-\r
-}\r
-\r
-sub specialchar_cnv\r
-{\r
-       local($ch) = @_;\r
-\r
-       $ch =~ s/&/&/g;             # &\r
-       $ch =~ s/\"/"/g;   #"\r
-       $ch =~ s/\'/'/g;    # '\r
-       $ch =~ s/</&lt;/g;              # <\r
-       $ch =~ s/>/&gt;/g;              # >\r
-       return($ch);\r
-}\r
-\r
-1;\r