| 1 | <?php |
|---|
| 2 | // +-------------------------------------------------+ |
|---|
| 3 | // © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net) |
|---|
| 4 | // +-------------------------------------------------+ |
|---|
| 5 | // $Id: atalante2xmluni.inc.php,v 1.4 2007-03-10 08:32:25 touraine37 Exp $ |
|---|
| 6 | |
|---|
| 7 | if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access"); |
|---|
| 8 | |
|---|
| 9 | function convert_atalante($notice, $s, $islast, $isfirst, $param_path) { |
|---|
| 10 | global $typ_doc_atalante; |
|---|
| 11 | global $charset; |
|---|
| 12 | |
|---|
| 13 | if (!$typ_doc_atalante) { |
|---|
| 14 | $typ_doc_atalante=array("DOC"=>"a","VID"=>"g","PMU"=>"c","URL"=>"l","SON"=>"j"); |
|---|
| 15 | } |
|---|
| 16 | |
|---|
| 17 | $fields=explode(chr(0x01).chr(0x0A),$notice); |
|---|
| 18 | $data="<notice>\n"; |
|---|
| 19 | |
|---|
| 20 | $typ_doc=$typ_doc_atalante[substr($fields[0],0,3)]; |
|---|
| 21 | |
|---|
| 22 | if ($typ_doc) { |
|---|
| 23 | $data.=" <dt>".$typ_doc."</dt>\n"; |
|---|
| 24 | } |
|---|
| 25 | |
|---|
| 26 | for ($i=0; $i<count($fields)-1; $i++) { |
|---|
| 27 | $field=explode("@",$fields[$i]); |
|---|
| 28 | $cf=substr($field[2],0,3); |
|---|
| 29 | $csf=substr($field[2],3,1); |
|---|
| 30 | switch ($cf) { |
|---|
| 31 | case '990': |
|---|
| 32 | switch ($csf) { |
|---|
| 33 | case 'a': |
|---|
| 34 | $cf1='995'; |
|---|
| 35 | $csf1='k'; |
|---|
| 36 | break; |
|---|
| 37 | case 'b': |
|---|
| 38 | $cf1='995'; |
|---|
| 39 | $csf1='4'; |
|---|
| 40 | break; |
|---|
| 41 | case 'x': |
|---|
| 42 | $cf1='995'; |
|---|
| 43 | $csf1='5'; |
|---|
| 44 | break; |
|---|
| 45 | case 'z': |
|---|
| 46 | $cf1='995'; |
|---|
| 47 | $csf1='6'; |
|---|
| 48 | break; |
|---|
| 49 | } |
|---|
| 50 | break; |
|---|
| 51 | default: |
|---|
| 52 | $cf1=$cf; |
|---|
| 53 | $csf1=$csf; |
|---|
| 54 | break; |
|---|
| 55 | } |
|---|
| 56 | $zs[$cf1][$csf1]=$field[3]; |
|---|
| 57 | } |
|---|
| 58 | while (list($key,$val)=each($zs)) { |
|---|
| 59 | $data.=" <f c='".$key."' ind=' '>\n"; |
|---|
| 60 | while (list($keys,$vals)=each($val)) { |
|---|
| 61 | if ((substr($key,0,1)=="7") && ($keys=="4") && ($vals=="Auteur")) $vals = "070" ; |
|---|
| 62 | $data.=" <s c='".$keys."'>".htmlspecialchars($vals,ENT_QUOTES,$charset)."</s>\n"; |
|---|
| 63 | } |
|---|
| 64 | $data.=" </f>\n"; |
|---|
| 65 | } |
|---|
| 66 | $data.="</notice>\n"; |
|---|
| 67 | $r['VALID'] = true; |
|---|
| 68 | $r['ERROR'] = ""; |
|---|
| 69 | $r['DATA'] = $data; |
|---|
| 70 | return $r; |
|---|
| 71 | } |
|---|
| 72 | ?> |
|---|
