source: pmb4.1/trunk/fuentes/pmb/catalog/serials/analysis/ana_explnum_update.inc.php @ 478

Last change on this file since 478 was 478, checked in by mabarracus, 4 years ago

copy trusty code 4.1

  • Property svn:executable set to *
File size: 1.4 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: ana_explnum_update.inc.php,v 1.12 2009-07-03 09:35:43 kantin Exp $
6
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9
10// mise à jour de l'entête de page
11echo str_replace('!!page_title!!', $msg[4000].$msg[1003].$msg[explnum_doc_associe], $serial_header);
12
13
14//verification des droits de modification notice
15$acces_m=1;
16if ($gestion_acces_active==1 && $gestion_acces_user_notice==1) {
17        require_once("$class_path/acces.class.php");
18        $ac= new acces();
19        $dom_1= $ac->setDomain(1);
20        $acces_j = $dom_1->getJoin($PMBuserid,8,'bulletin_notice');
21        $q = "select count(1) from bulletins $acces_j where bulletin_id=".$bul_id;
22        $r = mysql_query($q, $dbh);
23        if(mysql_result($r,0,0)==0) {
24                $acces_m=0;
25        }
26}
27
28if ($acces_m==0) {
29        if (!$f_explnum_id) {
30                error_message('', htmlentities($dom_1->getComment('mod_depo_error'), ENT_QUOTES, $charset), 1, '');
31        } else {
32                error_message('', htmlentities($dom_1->getComment('mod_enum_error'), ENT_QUOTES, $charset), 1, '');
33        }
34
35} else {
36       
37        $retour = "./catalog.php?categ=serials&sub=bulletinage&action=view&bul_id=$bul_id";
38        $explnum = new explnum($f_explnum_id);
39        $explnum->mise_a_jour($f_notice, $f_bulletin, $f_nom, $f_url, $retour, $conservervignette, $f_statut_chk);     
40}
41?>
Note: See TracBrowser for help on using the repository browser.