source: pmb4.2/trunk/fuentes/pmb/catalog/caddie/action/edit.php @ 815

Last change on this file since 815 was 815, checked in by jrpelegrina, 4 years ago

Initial release of pmb 4.2

  • Property svn:executable set to *
File size: 2.7 KB
Line 
1<?php
2// +-------------------------------------------------+
3// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
4// +-------------------------------------------------+
5// $Id: edit.php,v 1.16 2015-06-18 13:55:50 jpermanne Exp $
6
7// définition du minimum nécessaire
8$base_path="../../..";                           
9$base_auth = "CATALOGAGE_AUTH"; 
10$base_title = "";
11$base_noheader=1;
12require_once ("$base_path/includes/init.inc.php"); 
13require_once ("./edition_func.inc.php"); 
14require_once ("$class_path/caddie.class.php");
15
16$fichier_temp_nom=str_replace(" ","",microtime());
17$fichier_temp_nom=str_replace("0.","",$fichier_temp_nom);
18
19$myCart = new caddie($idcaddie);
20if (!$myCart->idcaddie) die();
21// création de la page
22switch($dest) {
23        case "TABLEAU":
24                require_once ("$class_path/writeexcel/class.writeexcel_workbookbig.inc.php");
25                require_once ("$class_path/writeexcel/class.writeexcel_worksheet.inc.php");
26
27                $fname = tempnam("./temp", $fichier_temp_nom.".xls");
28                if (substr(phpversion(), 0, 3) <= "5.2") {
29                        eval ("
30                                \$workbook = new writeexcel_workbookbig(\$fname);
31                                \$worksheet = &\$workbook->addworksheet();
32                        ");
33                } else {
34                        eval ("
35                                \$workbook = new writeexcel_workbookbig(\$fname);
36                                \$worksheet = \$workbook->addworksheet();
37                        ");
38                }
39
40                $worksheet->write_string(0,0,$msg["caddie_numero"].$idcaddie);
41                $worksheet->write_string(0,1,$myCart->type);
42                $worksheet->write_string(0,2,$myCart->name);
43                $worksheet->write_string(0,3,$myCart->comment);
44                break;
45        case "TABLEAUHTML":
46                header("Content-Type: application/download\n");
47                header("Content-Disposition: atachement; filename=\"tableau.xls\"");
48                print "<html><head>" .
49                '<meta http-equiv=Content-Type content="text/html; charset='.$charset.'" />'.
50                "</head><body>";
51                break;
52        case "EXPORT_NOTI":
53                $fname = "bibliographie.doc";           
54                break;         
55        default:
56        header ("Content-Type: text/html; charset=$charset");
57                print $std_header;
58                break;
59        }
60       
61$contents=afftab_cart_objects ($idcaddie, $elt_flag , $elt_no_flag, $notice_tpl ) ;
62
63switch($dest) {
64        case "TABLEAU":
65                $workbook->close();
66                header("Content-Type: application/x-msexcel; name=\""."Caddie_".$myCart->type."_".$idcaddie.".xls"."\"");
67                header("Content-Disposition: inline; filename=\""."Caddie_".$myCart->type."_".$idcaddie.".xls"."\"");
68                $fh=fopen($fname, "rb");
69                fpassthru($fh);
70                unlink($fname);
71                break;
72        case "EXPORT_NOTI":             
73                header('Content-Disposition: attachment; filename='.$fname);
74                header('Content-type: application/msword'); 
75                header("Expires: 0");
76            header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
77            header("Pragma: public");
78                echo $contents;                                 
79        break;
80        case "TABLEAUHTML":
81        default:
82                if ($etat_table) echo "\n</table>";
83                break;
84        }
85       
86pmb_mysql_close($dbh);
Note: See TracBrowser for help on using the repository browser.