source: pmb4.2/trunk/fuentes/pmb/circ/transferts/envoi.inc.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: 6.0 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: envoi.inc.php,v 1.6 2012-08-20 08:06:32 ngantier Exp $
6
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9
10// Titre de la fenetre
11echo window_title($database_window_title.$msg[transferts_circ_menu_envoi].$msg[1003].$msg[1001]);
12
13//creation de l'objet transfert
14$obj_transfert = new transfert();
15
16switch ($action) {
17       
18        case "aff_env":
19                echo "<h1>" . $msg[transferts_circ_menu_titre] . " > " . $msg[transferts_circ_menu_envoi] . "</h1>";
20               
21                echo affiche_liste_valide(
22                                                                $transferts_envoi_liste_valide_envoi,
23                                                                $transferts_envoi_liste_valide_envoi_ligne,
24                                                                "SELECT num_notice, num_bulletin, " .
25                                                                        "expl_cb as val_ex, lender_libelle, transferts.date_creation as val_date_creation, " .
26                                                                        "date_visualisee as val_date_accepte, motif as val_motif, location_libelle as val_dest, empr_cb as val_empr " .
27                                                                "FROM transferts " .
28                                                                        "INNER JOIN transferts_demande ON id_transfert=num_transfert " .
29                                                                        "INNER JOIN exemplaires ON num_expl=expl_id " .
30                                                                        "INNER JOIN lenders ON idlender=expl_owner " .
31                                                                        "INNER JOIN docs_location ON num_location_dest=idlocation " .
32                                                                        "LEFT JOIN resa ON resa_trans=id_resa " .
33                                                                        "LEFT JOIN empr ON resa_idempr=id_empr " .
34                                                                "WHERE ".
35                                                                        "id_transfert IN (!!liste_numeros!!) ".
36                                                                        "AND etat_demande=1",
37                                                                "circ.php?categ=trans&sub=". $sub
38                                                                );
39                break;
40        case "env":
41                //on valide les envois
42                $obj_transfert->enregistre_envoi($liste_transfert);
43                //on affiche l'ecran principal
44                $action = "";
45                break;
46
47        case "aff_refus":
48                //on affiche l'écran de saisie du refus
49                echo "<h1>" . $msg[transferts_circ_menu_titre] . " > " . $msg[transferts_circ_menu_envoi] . "</h1>";
50               
51                echo affiche_liste_valide(
52                                                                $transferts_validation_liste_refus,
53                                                                $transferts_validation_liste_valide_ligne,
54                                                                "SELECT num_notice, num_bulletin, " .
55                                                                        "expl_cb as val_ex, lender_libelle, transferts.date_creation as val_date_creation, " .
56                                                                        "motif as val_motif, location_libelle as val_dest, empr_cb as val_empr  " .
57                                                                "FROM transferts " .
58                                                                        "INNER JOIN transferts_demande ON id_transfert=num_transfert " .
59                                                                        "INNER JOIN exemplaires ON num_expl=expl_id " .
60                                                                        "INNER JOIN lenders ON idlender=expl_owner " .
61                                                                        "INNER JOIN docs_location ON num_location_dest=idlocation " .
62                                                                        "LEFT JOIN resa ON resa_trans=id_resa " .
63                                                                        "LEFT JOIN empr ON resa_idempr=id_empr " .
64                                                                "WHERE ".
65                                                                        "id_transfert IN (!!liste_numeros!!) ".
66                                                                        "AND etat_demande=1",
67                                                                "circ.php?categ=trans&sub=". $sub
68                                                                );
69                break;
70        case "refus":
71                //on enregistre les refus
72                $obj_transfert->enregistre_refus($liste_transfert,$motif_refus);
73                $action="";
74                break;
75}
76
77if ($action=="") {
78
79        get_cb_expl($msg[transferts_circ_menu_titre]." > ".$msg[transferts_circ_menu_envoi],
80                                        $msg[661], $msg[transferts_circ_envoi_exemplaire], "./circ.php?categ=trans&sub=".$sub."&f_destination=".$f_destination."&nb_per_page=".$nb_per_page, 0);
81
82        if ($form_cb_expl != "") {
83                //enregistrement de l'envoi
84                $res_env = $obj_transfert->enregistre_envoi_cb($form_cb_expl);
85
86                if ($res_env==false) {
87                        // l'envoi n'est pas valide
88                        echo $transferts_envoi_erreur;
89                } else {
90                        // l'envoi est fait
91                        $aff=str_replace("!!cb_expl!!", $form_cb_expl,$transferts_envoi_OK);
92                        echo str_replace("!!new_location!!", $obj_transfert->new_location_libelle,$aff);
93                }
94        }
95       
96        $filtres = "&nbsp;".$msg["transferts_circ_envoi_filtre_destination"].str_replace("!!nom_liste!!","f_destination",$transferts_liste_localisations_tous);
97        $filtres = str_replace("!!liste_localisations!!", do_liste_localisation($f_destination), $filtres);
98       
99        if ($transferts_validation_actif=="1")
100                $req =  "FROM transferts " .
101                                        "INNER JOIN transferts_demande ON id_transfert=num_transfert " .
102                                        "INNER JOIN exemplaires ON num_expl=expl_id " .
103                                        "INNER JOIN lenders ON idlender=expl_owner " .
104                                        "INNER JOIN docs_location ON num_location_dest=idlocation " .
105                                        "LEFT JOIN resa ON resa_trans=id_resa " .
106                                        "LEFT JOIN empr ON resa_idempr=id_empr " .
107                                "WHERE etat_transfert=0 " . //pas fini
108                                        "AND etat_demande=1 " . //validé
109                                        "AND num_location_source=".$deflt_docs_location; //pour le site de l'utilisateur
110        else
111                $req =  "FROM transferts " .
112                                        "INNER JOIN transferts_demande ON id_transfert=num_transfert " .
113                                        "INNER JOIN exemplaires ON num_expl=expl_id " .
114                                        "INNER JOIN lenders ON idlender=expl_owner " .
115                                        "INNER JOIN docs_location ON num_location_dest=idlocation " .
116                                        "LEFT JOIN resa ON resa_trans=id_resa " .
117                                        "LEFT JOIN empr ON resa_idempr=id_empr " .
118                                "WHERE etat_transfert=0 " . //pas fini
119                                        "AND (etat_demande=0 " . //pas validé
120                                        "OR etat_demande=1) " . //validé
121                                        "AND num_location_source=".$deflt_docs_location; //pour le site de l'utilisateur
122
123        //pour l'edition de la liste
124        $url_edition = "./edit.php?categ=transferts&sub=envoi";
125       
126        //on applique la seletion du filtre
127        if ($f_destination) {
128                $req .= " AND num_location_dest=".$f_destination;
129                $url_edition .= "&site_destination=" .$f_destination;
130        }
131       
132        //le lien pour l'édition si on a le droit ...
133        if (SESSrights & EDIT_AUTH)
134                $lien_edition = "<a href='" . $url_edition . "'>".$msg[1100]."</a>";
135        else
136                $lien_edition = "";
137        //on affiche la liste
138        echo affiche_liste(
139                $sub,
140                $page,
141                "SELECT num_notice, num_bulletin, id_transfert as val_id, " .
142                        "expl_cb as val_ex, lender_libelle, transferts.date_creation as val_date_creation, " .
143                        "date_visualisee as val_date_accepte, motif as val_motif, location_libelle as val_dest, empr_cb as val_empr ",
144                $req,
145                $nb_per_page,
146                $transferts_envoi_form_global,
147                $transferts_envoi_tableau_definition,
148                $transferts_envoi_tableau_ligne,
149                $transferts_envoi_boutons_action,
150                $transferts_envoi_pas_de_resultats,
151                $lien_edition,
152                $filtres,
153                "&f_destination=".$f_destination 
154                );
155
156}
157?>
Note: See TracBrowser for help on using the repository browser.