diff options
author | Bharat Mediratta <bharat@menalto.com> | 2008-12-15 08:56:18 +0000 |
---|---|---|
committer | Bharat Mediratta <bharat@menalto.com> | 2008-12-15 08:56:18 +0000 |
commit | 3b35e8b91ce94c292b46a296d034542ac5f0f6da (patch) | |
tree | 7a1444b5e16475b66300be105b8fc39e5117c881 /kohana/core/utf8/ucfirst.php | |
parent | 628058b4ed5aefb543ceb6ca9d3b87828c66bef1 (diff) |
Refresh kohana from upstream svn trunk r3771.
During this process, remove a considerable number of files from kohana
that we will not be needing in Gallery3, including the following files
and directories:
kohana/application
kohana/example.htaccess
kohana/index.php
kohana/install.php
kohana/kohana.png
kohana/modules/archive
kohana/modules/auth
kohana/modules/flot
kohana/modules/gmaps
kohana/modules/kodoc
kohana/modules/payment
kohana/modules/smarty
kohana/modules/unit_test/i18n
kohana/modules/unit_test/tests/Example_Test.php
kohana/modules/unit_test/tests/Valid_Test.php
kohana/system/config/captcha.php
kohana/system/controllers/captcha.php
kohana/system/fonts
kohana/system/i18n
kohana/system/libraries/Calendar.php
kohana/system/libraries/Calendar_Event.php
kohana/system/libraries/Captcha.php
kohana/system/libraries/Tagcloud.php
kohana/system/vendor
kohana/system/views/pagination
kohana/system/views/kohana_calendar.php
Diffstat (limited to 'kohana/core/utf8/ucfirst.php')
-rw-r--r-- | kohana/core/utf8/ucfirst.php | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/kohana/core/utf8/ucfirst.php b/kohana/core/utf8/ucfirst.php new file mode 100644 index 00000000..81a4b380 --- /dev/null +++ b/kohana/core/utf8/ucfirst.php @@ -0,0 +1,18 @@ +<?php defined('SYSPATH') OR die('No direct access allowed.'); +/** + * utf8::ucfirst + * + * @package Core + * @author Kohana Team + * @copyright (c) 2007 Kohana Team + * @copyright (c) 2005 Harry Fuecks + * @license http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt + */ +function _ucfirst($str) +{ + if (utf8::is_ascii($str)) + return ucfirst($str); + + preg_match('/^(.?)(.*)$/us', $str, $matches); + return utf8::strtoupper($matches[1]).$matches[2]; +}
\ No newline at end of file |