File: CSV.php

package info (click to toggle)
opendb 0.62p9-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,544 kB
  • ctags: 3,560
  • sloc: php: 26,575; sql: 1,982; sh: 250; makefile: 54
file content (102 lines) | stat: -rw-r--r-- 2,019 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
<?php
/* 	OpenDb - Open Lending Database Project
	Copyright (C) 2001,2002 by Jason Pell

	This program is free software; you can redistribute it and/or
	modify it under the terms of the GNU General Public License
	as published by the Free Software Foundation; either version 2
	of the License, or (at your option) any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU General Public License for more details.

	You should have received a copy of the GNU General Public License
	along with this program; if not, write to the Free Software
	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
*/

include_once("./functions/widgets.php");
include_once("./functions/utils.php");

//
// CSV Export Plugin
//

/*
* The content type, when saved as file.
*/
function file_content_type()
{
	return "application/csv";
}

/*
* The filename extension, when saved as file.
*/
function file_extension()
{
	return "csv";
}

/*
* The file header, when saved as file.
*/
function file_header($title)
{
	return "";
}

function prompt_header($columns)
{
	$buffer = "";
	
	if(is_not_empty_array($columns))
	{
		while(list(,$column) = each($columns))
		{
			if(strlen($buffer)>0)
				$buffer .= ",$column";
			else
				$buffer .= "$column";
		}
		return $buffer."\n";
	}
	else
		return "";
}

function item_row($columns)
{
	$buffer = "";
	
	if(is_not_empty_array($columns))
	{
		while(list(,$column) = each($columns))
		{
			$doQuote=FALSE;
			if(strpos($column, "\"")!==FALSE)
			{
				$column = str_replace("\"", "\"\"", $column);
				$doQuote=TRUE;
			}
			if(strpos($column, ",")!==FALSE || strpos($column, "\n")!==FALSE)
			{
				$doQuote=TRUE;
			}
			
			if($doQuote)
				$column = "\"".$column."\"";
				
			if(strlen($buffer)>0)
				$buffer .= ",$column";
			else
				$buffer .= "$column";
		}
		return $buffer."\n";
	}
	else
		return "";
}
?>