source: pmb4.2/trunk/fuentes/pmb/catalog/serials/serial_replace.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: 1.3 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: serial_replace.inc.php,v 1.2 2009-03-13 16:36:16 dbellamy Exp $
6
7if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");
8
9//verification des droits de modification notice
10$acces_m=1;
11if ($gestion_acces_active==1 && $gestion_acces_user_notice==1) {
12        require_once("$class_path/acces.class.php");
13        $ac= new acces();
14        $dom_1= $ac->setDomain(1);
15        $acces_m = $dom_1->getRights($PMBuserid,$serial_id,8);
16}
17
18if ($acces_m==0) {
19
20        error_message('', htmlentities($dom_1->getComment('mod_seri_error'), ENT_QUOTES, $charset), 1, '');
21
22} else {
23               
24        print pmb_bidi("<h1>$msg[catal_rep_per_h1]</h1>");
25        if(!$by) {
26                $perio = new serial($serial_id);
27                $perio->replace_form();
28        } else {
29                // routine de remplacement
30                $perio = new serial($serial_id);
31                $rep_result = $perio->replace($by);
32                if(!$rep_result) {
33                        print pmb_bidi("<div class='row'><div class='msg-perio'>".$msg["maj_encours"]."</div></div>
34                                                <script type=\"text/javascript\">document.location='./catalog.php?categ=serials&sub=view&serial_id=$by'</script>");
35                } else {
36                        error_message($msg[132], $rep_result, 1, "./catalog.php?categ=serials&sub=view&serial_id=$id");
37                }
38        }
39}
40?>
Note: See TracBrowser for help on using the repository browser.