3 # Copyright (C) 2005 Jason Woofenden
5 # This file is part of wfpl.
7 # wfpl is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU Lesser General Public License as published by the Free
9 # Software Foundation; either version 2.1 of the License, or (at your option)
12 # wfpl is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14 # FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
17 # You should have received a copy of the GNU Lesser General Public License
18 # along with wfpl; if not, write to the Free Software Foundation, Inc., 51
19 # Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22 # This file contains basic encodings
24 function format_caption($str) {
25 $str = str_replace('_', ' ', $str);
27 return str_replace('Email', 'E-mail', $str);
30 # This function makes sure that $str is in the list of options, and returns "" otherwise
31 function format_options($str, $name) {
32 if(!isset($GLOBALS[$name . '_options'])) {
33 die("Couldn't find options for \"$name\". Be sure to call pulldown().");
36 foreach($GLOBALS[$name . '_options']['options'] as $keyval) {
37 list($key, $value) = $keyval;
46 function format_int($str) {
47 $str = ereg_replace('[^0-9]', '', $str);
48 return ereg_replace('^0*([0-9])', '\1', $str);
51 function format_decimal($str) {
52 $str = ereg_replace('[^0-9.]', '', $str);
53 $pos = strpos($str, '.');
55 $str = str_replace('.', '', $str);
58 } elseif($pos == strlen($str)) {
61 return substr($str, 0, $pos) . '.' . substr($str, $pos);
67 # return 0 of there's no digits
68 function format_int_0($str) {
69 $str = format_int($str);
76 function format_zip($str) {
77 $str = ereg_replace('[^0-9]', '', $str);
78 if(strlen($str) > 5) {
79 return substr($str, 0, 5) . '-' . substr($str, 5);
84 function format_filename($str, $allow_uppercase = false) {
85 if(!$allow_uppercase) {
86 $str = strtolower($str);
88 $str = ereg_replace('[^a-zA-Z0-9_.-]', '_', $str);
89 return ereg_replace('^[.-]', '_', $str);
92 function client_path_to_filename($path) {
93 $filename = ereg_replace(".*[:/\\]", '', $path);
94 return format_filename($filename, true);
98 function format_h_w_image($str) {
99 $fields = explode(' ', $str);
100 if(count($fields) != 3) {
104 list($width, $height, $filename) = $fields;
105 $width = format_int_0($width);
106 $height = format_int_0($height);
107 $filename = format_filename($filename);
109 return "$width $height $filename";
112 function format_varname($str) {
113 $str = strtolower($str);
114 $str = ereg_replace('[^a-z0-9_]', '_', $str);
115 return ereg_replace('^[0-9]*', '', $str);
118 function format_oneline($str) {
119 $str = str_replace("\r", '', $str);
120 return str_replace("\n", '', $str);
123 function format_unix($str) {
124 return unix_newlines($str);
127 function format_yesno($str) {
128 if($str && $str != 'No') {
135 function format_email($str) {
137 return trim(format_oneline($str));
140 function format_url($str) {
142 return format_oneline($str);
145 function format_money($str, $display_cents = true) {
146 $str = ereg_replace('[^0-9.]', '', $str);
148 $int = (int)($str * 100);
150 $cents = sprintf('.%02d', $cents);
151 $int = (int)($str); # go from the source again, so we can print numbers above 2M without cents.
156 $chars = (string)$int;
159 $index = strlen($chars);
165 $output = ',' . $output;
167 $char = substr($chars, $index, 1);
168 $output = $char . $output;
170 $output = '$' . $output . $cents;
174 function format_dollars($str) {
175 return format_money($str, false);
178 # date is edited as mm/dd/yyyy but stored as yyyy-mm-dd
179 function format_mdy_to_ymd($str) {
180 require_once('code/wfpl/time.php');
181 return mdy_to_ymd(format_oneline($str));
184 function format_phone($str) {
185 $str = ereg_replace('[^0-9]', '', $str);
186 $str = ereg_replace('^1*', '', $str);
190 if($len < 10 && $len != 7) {
191 #NOT A VALID PHONE NUMBER
196 $output = ' ext: ' . substr($str, 10);
201 $area = substr($str, 0, 3);
202 $str = substr($str, 3);
205 $output = substr($str, 3) . $output;
206 $output = substr($str, 0, 3) . '-' . $output;
209 $output = "($area) " . $output;