source: pmb4.2/trunk/fuentes/pmb/admin/convert/imports/catmarciso2unimarc/catmarc.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: 763 bytes
Line 
1<?php
2// +-------------------------------------------------+
3// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
4// +-------------------------------------------------+
5// $Id: catmarc.inc.php,v 1.1 2008-05-21 14:23:18 gueluneau Exp $
6
7
8function cut_header($notice, $s, $islast, $isfirst, $param_path) {
9        global $ISO_decode_do_not_decode;
10        $ISO_decode_do_not_decode=true;
11        if ($notice) {
12                if (substr($notice,0,2)=="\r\n")
13                                $data=substr($notice,2);
14                else $data=$notice;
15        } else {       
16                        $error="Registre buit";
17        }
18        if ((!$data)&&(!$error)) $error="Dernière notice : ne pas tenir compte !";
19        if (!$error) $r['VALID'] = true; else $r['VALID']=false;
20        $r['ERROR'] = $error;
21        $r['DATA'] = $data;
22        return $r;
23}
24?>
Note: See TracBrowser for help on using the repository browser.