lxo-import/parts_import.php

   1 <?php
   2 //Henry Margies <h.margies@maxina.de>
   3 //Holger Lindemann <hli@lx-system.de>
   4
   5 /**
   6  * Returns ID of a partgroup (or adds a new partgroup entry)
   7  * \db is the database
   8  * \value is the partgroup name
   9  * \add if true and partgroup does not exist yet, we will add it automatically
  10  * \returns partgroup id or "" in case of an error
  11  */
  12 function getPartsgroupId($db, $value, $add) {
  13     $sql="select id from partsgroup where partsgroup = '$value'";
  14     $rs=$db->getAll($sql);
  15     if (empty($rs[0]["id"]) && $add) {
  16         $sql="insert into partsgroup (partsgroup) values ('$value')";
  17         $rc=$db->query($sql);
  18         if (!$rc)
  19             return "";
  20         return getPartsgroupId($db, $value, 0);
  21     }
  22     return $rs[0]["id"];
  23 }
  24 function getPricegroup($db) {
  25     $sql="SELECT * from pricegroup";
  26     $rs=$db->getAll($sql);
  27     $data = false;
  28     if ($rs) foreach ($rs as $row) {
  29         $data["pg_".strtolower($row["pricegroup"])]=$row["id"];
  30     };
  31     return $data;
  32 }
  33 function insertParts($db,$insert,$show,$data,$pricegroup) {
  34     if ($show) {
  35         show('<tr>',false);
  36         show($data["partnumber"]);        show($data["lastcost"]);          show($data["sellprice"]);   show($data["listprice"]);
  37         show($data["description"]);       show(substr($data["notes"],0,25));show($data["ean"]);
  38         show($data["weight"]);            show($data["image"]);             show($data["partsgroup_id"]);
  39         show($data["buchungsgruppen_id"]);show($data["income_accno"]);      show($data["expense_accno"]);
  40         show($data["inventory_accno"]);   show($data["microfiche"]);        show($data["drawing"]);
  41         show($data["rop"]);               show($data["assembly"]);          show($data["makemodel"]);
  42         show($data["shop"]);
  43     }
  44
  45     /*foreach ($data as $key=>$val) {
  46         echo $key.":".gettype($val).":".gettype($data[$key]).":".$val."<br>";
  47     }*/
  48     if ($insert) {
  49         $data["import"]=time();
  50         $sqlIa  = 'INSERT INTO parts (';
  51         $sqlIa .= 'partnumber,description,notes,ean,unit,';
  52         $sqlIa .= 'weight,image,sellprice,listprice,lastcost,partsgroup_id,';
  53         $sqlIa .= 'buchungsgruppen_id,income_accno_id,expense_accno_id,inventory_accno_id,';
  54         $sqlIa .= 'microfiche,drawing,rop,assembly,shop,makemodel,import) ';
  55         //$sqlIa .= 'VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)';
  56         //$rc=$db->execute($sqlIa,$data);
  57         $sqlIa .= "VALUES ('%s','%s','%s','%s','%s',%0.5f,'%s',%0.5f,%0.5f,%0.5f,%d,%d,%d,%d,%d,'%s','%s',%.0f,'%s','%s','%s',%s)";
  58         $sql = sprintf($sqlIa,$data['partnumber'],$data['description'],$data['notes'],$data['ean'],
  59                                 $data['unit'],$data['weight'],$data['image'],$data['sellprice'],
  60                                 $data['listprice'],$data['lastcost'],$data['partsgroup_id'],
  61                                 $data['buchungsgruppen_id'],$data['income_accno_id'],$data['expense_accno_id'],
  62                                 $data['inventory_accno_id'],$data['microfiche'],$data['drawing'],$data['rop'],
  63                                 $data['assembly'],$data['shop'],$data['makemodel'],$data['import']);
  64         $rc = $db->query($sql);
  65     } else {
  66         $rc = true;
  67     }
  68     if ($pricegroup) $ok = insPrices($db,$data["partnumber"],$pricegroup);
  69     if ($show) {
  70         if ($rc)
  71             show('<b>ok</b>');
  72         else
  73             show('<font color="red">error</font>');
  74         show('</tr>'."\n",false);
  75     }
  76     return $rc;
  77 }
  78 function updPrice($db,$insert,$show,$partnumber,$lastcost,$sellprice,$listprice,$pricegroup,$shop) {
  79     if ($show) {
  80         show('<tr>',false);
  81         show($partnumber); show($lastcost); show($sellprice); show($listprice);
  82     }
  83     if ($insert) {
  84         $sqlPr  = 'UPDATE PARTS SET ';
  85         $sqlPr .= 'sellprice = ?, listprice = ?, lastcost = ?, shop = ? ';
  86         $sqlPr .= 'WHERE  partnumber = ?';
  87         $rc=$db->execute($sqlPr,array("sellprice"=>$sellprice,"listprice"=>$listprice,"lastcost"=>$lastcost,"shop"=>$shop,"partnumber"=>$partnumber));
  88     } else {
  89         $rc = true;
  90     }
  91     if ($pricegroup) $ok = insPrices($db,$partnumber,$pricegroup);
  92     if ($show) {
  93         if ($rc)
  94             show('<b>ok</b>');
  95         else
  96             show('<font color="red">error</font>');
  97         show('</tr>'."\n",false);
  98     }
  99     return $rc;
 100 }
 101 function updParts($db,$insert,$show,$partnumber,$lastcost,$sellprice,$listprice,
 102                     $description,$notes,$ean,$weight,$image,
 103                     $partsgroup_id,$pricegroup, $shop) {
 104     if ($show) {
 105         show('<tr>',false);
 106         show($partnumber);      show($lastcost);          show($sellprice);     show($listprice);
 107         show($description);     show(substr($notes,0,25));show($ean);
 108         show($weight);          show($image);             show($partsgroup_id);
 109     }
 110     if ($insert) {
 111         $sqlUa  = 'UPDATE PARTS SET ';
 112         $sqlUa .= 'description = ?, notes = ?, ean = ?, weight = ?, image = ?, ';
 113         $sqlUa .= 'sellprice = ?, listprice = ?, lastcost = ?, partsgroup_id = ?, shop = ? ';
 114         $sqlUa .= 'WHERE  partnumber = ?';
 115         $rc=$db->execute($sqlUa,array($description,$notes,$ean,$weight,$image,
 116                                 $sellprice,$listprice,$lastcost,$partsgroup_id,$shop,$partnumber));
 117     } else {
 118         $rc = true;
 119     }
 120     if ($pricegroup) $ok = insPrices($db,$partnumber,$pricegroup);
 121     if ($show) {
 122         if ($rc)
 123             show('<b>ok</b>');
 124         else
 125             show('<font color="red">error</font>');
 126         show('</tr>'."\n",false);
 127     }
 128     return $rc;
 129 }
 130
 131 function getMakemodel($db,$check,$hersteller,$model,$partsid,$add=true) {
 132     $sql="select * from makemodel where make = $hersteller and model = '$model' and parts_id = $partsid";
 133     $rs=$db->getAll($sql);
 134     if (empty($rs[0]["id"]) && $add) {
 135         $sql="insert into makemodel (parts_id,make,model) values ($partsid,'$hersteller','$model')";
 136         $rc=$db->query($sql);
 137     }
 138 }
 139
 140 function getAccnoId($db, $accno) {
 141     $sql = "select id from chart where accno='$accno'";
 142     $rs=$db->getAll($sql);
 143     return $rs[0]["id"];
 144 }
 145
 146 function getPartsid($db,$number) {
 147     $sql = "select id from parts where partnumber = '$number'";
 148     $rs=$db->getAll($sql);
 149     if ($rs[0]["id"]>0) {
 150         return $rs[0]["id"];
 151     } else {
 152         return false;
 153     }
 154 }
 155
 156 function newPartNumber($db,$check) {
 157     if ($check) return "check";
 158     $rc=$db->query("BEGIN");
 159     $sql = "select  articlenumber from defaults";
 160     $rs=$db->getAll($sql);
 161     if ($rs[0]["articlenumber"]) {
 162         preg_match("/([^0-9]+)?([0-9]+)([^0-9]+)?/", $rs[0]["articlenumber"] , $regs);
 163         $number=$regs[1].($regs[2]+1).$regs[3];
 164     }
 165     $sql = "update defaults set articlenumber = '$number'";
 166     $rc=$db->query($sql);
 167     $rc=$db->query("COMMIT");
 168     //Prüfen ob die Nummer nicht doch schon vergeben ist.
 169     $sql = "select * from parts where partnumber = '$number'";
 170     $rs=$db->getAll($sql);
 171     if ($rs[0]["id"]>0) return "";
 172     return $number;
 173 }
 174
 175 function getBuchungsgruppe($db, $income, $expense) {
 176     $income_id = getAccnoId($db, $income);
 177     $expense_id = getAccnoId($db, $expense);
 178     $sql  = "select id from buchungsgruppen where ";
 179     $sql .= "income_accno_id_0 = $income and ";
 180     $sql .= "expense_accno_id_0 = $expense ";
 181     $sql .= "order by sortkey";
 182     $rs=$db->getAll($sql);
 183     return $rs[0]["id"];
 184 }
 185
 186 function getFromBG($db, $bg_id, $name) {
 187     $sql  = "select $name from buchungsgruppen where id='$bg_id'";
 188     $rs=$db->getAll($sql);
 189     return 1*$rs[0][$name];
 190 }
 191
 192 function existUnit($db, $value) {
 193     $sql="select name from units where name = '$value'";
 194     $rs=$db->getAll($sql);
 195     if (empty($rs[0]["name"]))
 196         return FALSE;
 197     return TRUE;
 198 }
 199
 200 function show($things,$td=true) {
 201         if ($td)
 202             echo '<td>'.$things.'</td>';
 203         else
 204             echo $things;
 205 }
 206
 207 function getStdUnit($db,$type) {
 208     $sql="select * from units where type='$type' order by sortkey limit 1";
 209     $rs=$db->getAll($sql);
 210     return $rs[0]["name"];
 211 }
 212
 213 function insPrices($db,$pid,$prices) {
 214     $rc = $db->query("BEGIN");
 215     $sql="delete from prices where parts_id = (select id from parts where partnumber = '$pid')";
 216     $rc = $db->query($sql);
 217     $sql = "insert into prices (parts_id,pricegroup_id,price) values ((select id from parts where partnumber = '%s'),%d,%0.5f)";
 218     foreach ($prices as $key => $val) {
 219         $rc = $db->query(sprintf($sql,$pid,$key,$val));
 220         if (!$rc) {
 221             $db->query("ROLLBACK");
 222             return false;
 223         }
 224     }
 225     $db->query("COMMIT");
 226     return true;
 227 }
 228
 229 function import_parts($db, $file, $trenner, $trennzeichen, $fields, $check, $insert, $show ,$maske) {
 230     $precision=$maske["precision"];
 231     $quotation=$maske["quotation"];
 232     $quottype=$maske["quottype"];
 233     $shop=$maske["shop"];
 234     $wgtrenner=$maske["wgtrenner"];
 235     $Update=($maske["update"]=="U")?true:false;
 236     $UpdText=($maske["TextUpd"]=="1")?true:false;
 237
 238     //$stdunitW=getStdUnit($db,"dimension");
 239     //$stdunitD=getStdUnit($db,"service");
 240     $stdunitW=$maske["dimensionunit"];
 241     $stdunitD=$maske["serviceunit"];
 242     if ($quottype=="P") $quotation=($quotation+100)/100;
 243
 244     if ($show && !$insert) show("<b>Testimport</b>",false);
 245     if ($show) show("<table border='1'>\n",false);
 246
 247     /* field description */
 248     $prices = getPricegroup($db);
 249     if ($prices) {
 250         $priceskey = array_keys($prices);
 251         $parts_fld = array_merge(array_keys($fields),$priceskey);
 252     } else {
 253         $parts_fld = array_keys($fields);
 254     }
 255
 256     if ($trenner=="other") $trenner=trim($trennzeichen);
 257     if (substr($trenner,0,1)=="#") if (strlen($trenner)>1) $trenner=chr(substr($trenner,1));
 258
 259     /* open csv file */
 260     if (file_exists($file."head.csv")) {
 261         $fh=fopen($file.'head.csv',"r");
 262         // Erst einmal die erste Zeile mit den richtigen Feldbezeichnungen einlesen.
 263         $infld=fgetcsv($fh,1200,$trenner);
 264         fclose($fh);
 265         $f=fopen($file.'.csv',"r");
 266         // Erst einmal die erste Zeile mit den falschen Feldbezeichnungen einlesen.
 267         $tmp=fgetcsv($f,1200,$trenner);
 268     } else {
 269         $f=fopen($file.'.csv',"r");
 270         // Erst einmal die erste Zeile mit den Feldbezeichnungen einlesen.
 271         $infld=fgetcsv($f,1200,$trenner);
 272     }
 273
 274     /*
 275      * read first line with table descriptions
 276      */
 277     if ($show) {
 278         show('<tr>',false);
 279         show("partnumber"); show("lastcost");   show("sellprice");      show("listprice");
 280         show("description");show("notes");      show("ean");
 281         show("weight");     show("image");      show("partsgroup_id");
 282         show("bg");         show("income_accno"); show("expense_accno");
 283         show("inventory_accno"); show("microfiche");show("drawing");show("rop");
 284         show("assembly");show("makemodel");  show("shop"); show("");
 285         show("</tr>\n",false);
 286     }
 287
 288
 289     $p=0;
 290     foreach ($infld as $fld) {
 291         $fld = strtolower(trim(strtr($fld,array("\""=>"","'"=>""))));
 292         if (in_array($fld,$parts_fld)) {
 293             $fldpos[$fld]=$p;
 294         }
 295         $p++;
 296     }
 297     $i=0;
 298     $u=0;
 299     $m=0;        /* line */
 300     $errors=0;    /* number of errors detected */
 301     $income_accno = "";
 302     $expense_accno = "";
 303     $assembly = 'f';
 304
 305     while ( ($zeile=fgetcsv($f,120000,$trenner)) != FALSE) {
 306         $m++;    /* increase line */
 307         $unit=false;
 308         unset($pgroup);
 309         unset($partsgroup_id);
 310         unset($notes);
 311         unset($rop);
 312         unset($weight);
 313         unset($inventory_accno);
 314         unset($income_accno);
 315         unset($expense_accno);
 316         unset($model);
 317         unset($makemodel);
 318         unset($hersteller);
 319
 320         /* VK-Preis bilden */
 321         $sellprice = str_replace(",", ".", $zeile[$fldpos["sellprice"]]);
 322         $listprice = str_replace(",", ".", $zeile[$fldpos["listprice"]]);
 323         $lastcost = str_replace(",", ".", $zeile[$fldpos["lastcost"]]);
 324         if ($prices) {
 325                 foreach ($prices as $pkey=>$val) {
 326                 if (array_key_exists($pkey,$fldpos))
 327                         $pricegroup[$val] = str_replace(",", ".", $zeile[$fldpos[$pkey]]);
 328             }
 329         }
 330         if ($quotation<>0) {
 331             if ($quottype=="A") { $sellprice += $quotation; }
 332             else { $sellprice = $sellprice * $quotation; }
 333         };
 334         if ($lastcost=="") unset($lastcost);
 335         if ($sellprice=="") unset($sellprice);
 336         if ($listprice=="") unset($listprice);
 337
 338         /* Langtext zusammenbauen */
 339         if ($zeile[$fldpos["notes"]]) {
 340             //Kundenspezifisch:
 341             //$notes = preg_replace('/""[^ ]/','"',$zeile[$fldpos["notes"]]);
 342             $notes = addslashes($zeile[$fldpos["notes"]]);
 343             if (Translate) translate($notes);
 344         }
 345         if ($zeile[$fldpos["notes1"]]) {
 346             //Kundenspezifisch:
 347             //$notes1 = preg_replace('/""[^ ]/','"',$zeile[$fldpos["notes1"]]);
 348             $notes1 = addslashes($zeile[$fldpos["notes1"]]);
 349             if (Translate) translate($notes1);
 350             if ($notes) {
 351                 $notes .= "\n".$notes1;
 352             } else {
 353                 $notes = $notes1;
 354             }
 355         }
 356
 357         /* Warengruppe bilden */
 358         if ($fldpos["partsgroup"]>0  and $zeile[$fldpos["partsgroup"]])  $pgroup[]=$zeile[$fldpos["partsgroup"]];
 359         if ($fldpos["partsgroup1"]>0 and $zeile[$fldpos["partsgroup1"]]) $pgroup[]=$zeile[$fldpos["partsgroup1"]];
 360         if ($fldpos["partsgroup2"]>0 and $zeile[$fldpos["partsgroup2"]]) $pgroup[]=$zeile[$fldpos["partsgroup2"]];
 361         if ($fldpos["partsgroup3"]>0 and $zeile[$fldpos["partsgroup3"]]) $pgroup[]=$zeile[$fldpos["partsgroup3"]];
 362         if ($fldpos["partsgroup4"]>0 and $zeile[$fldpos["partsgroup4"]]) $pgroup[]=$zeile[$fldpos["partsgroup4"]];
 363         if (count($pgroup)>0) {
 364                 $pgname = implode($wgtrenner,$pgroup);
 365                 if (Translate) translate($pgname);
 366                 $partsgroup_id = getPartsgroupId($db, $pgname, $insert);
 367         }
 368
 369         /* sind Hersteller und Modelnummer hinterlegt
 370             wenn ja, erfolgt er insert später */
 371         $makemodel = 'f';
 372         if (!empty($zeile[$fldpos["makemodel"]]) and !$artikel) {
 373             $mm = $zeile[$fldpos["makemodel"]];
 374             if (Translate) translate($mm);
 375             $hersteller=suchFirma("vendor",$mm);
 376             $hersteller=$hersteller["cp_cv_id"];
 377             if (!empty($zeile[$fldpos["model"]])) {
 378                 $mo = $zeile[$fldpos["model"]];
 379                 if (Translate) translate($mo);
 380                 $model = $mo;
 381                 $makemodel = 't';
 382             } else {
 383                 unset($hersteller);
 384                 $makemodel = 'f';
 385             }
 386         }
 387
 388         /* Ware oder Dienstleistung */
 389         if (($maske["ware"]=="G" and strtoupper($zeile[$fldpos["art"]])=="D") or $maske["ware"]=="D") {
 390             $artikel = false;
 391         } else if (($maske["ware"]=="G" and strtoupper($zeile[$fldpos["art"]])=="W") or $maske["ware"]=="W") {
 392             $artikel = true;
 393         }
 394
 395         /* Einheit ermitteln */
 396         if ($zeile[$fldpos["unit"]]=="") {
 397             //Keine Einheit mitgegeben
 398             if ($maske["ware"]=="G") {
 399                 if ($artikel) {
 400                     $unit = $stdunitD;
 401                 } else {
 402                     $unit = $stdunitW;
 403                 }
 404             } else if ($maske["ware"]=="D") { $unit = $stdunitD; }
 405             else { $unit = $stdunitW; };
 406         } else {
 407             if (existUnit($db,$zeile[$fldpos["unit"]])) {
 408                 $unit = $zeile[$fldpos["unit"]];
 409             } else {
 410                 $unit = ($artikel)?$stdunitD:$stdunitW;
 411             }
 412         }
 413
 414         /* Buchungsgruppe ermitteln */
 415         if ($maske["bugrufix"]==1) {
 416             $bg = $maske["bugru"];
 417         } else {
 418             if ($zeile[$fldpos["income_accno"]]<>"" and $zeile[$fldpos["expense_accno"]]<>"") {
 419                 /* search for buchungsgruppe */
 420                 $bg = getBuchungsgruppe($db, $zeile[$fldpos["income_accno"]],$zeile[$fldpos["expense_accno"]]);
 421                 if ($bg == "" and $maske["bugrufix"]==2 and $maske["bugru"]<>"") {
 422                     $bg = $maske["bugru"];
 423                 }
 424             } else if ($maske["bugru"]<>"" and $maske["bugrufix"]==2) {
 425                 $bg = $maske["bugru"];
 426             } else {
 427                 /* nothing found? user must create one */
 428                 echo "Error in line $m: ";
 429                 echo "Keine Buchungsgruppe gefunden f&uuml;r <br>";
 430                 echo "Erl&ouml;se Inland: ".$zeile[$fldpos["income_accno"]]."<br>";
 431                 echo "Aufwand Inland: ".$zeile[$fldpos["expense_accno"]]."<br>";
 432                 echo "Bitte legen Sie eine an oder geben Sie eine vor.<br>";
 433                 echo "<br>";
 434                 $errors++;
 435             }
 436         }
 437         if ($bg > 0) {
 438             /* found one, add income_accno_id etc from buchungsgr. */
 439             /* XXX nur bei artikel!!! */
 440             if ($artikel) {
 441                 $inventory_accno = getFromBG($db, $bg, "inventory_accno_id");
 442             };
 443             $income_accno = getFromBG($db, $bg, "income_accno_id_0");
 444             $expense_accno = getFromBG($db, $bg, "expense_accno_id_0");
 445             $bg = $bg * 1;
 446         } else {
 447             echo "Error in line $m: ";
 448             echo "Keine Buchungsgruppe angegeben/gefunden<br>";
 449             $errors++;
 450             continue;
 451         }
 452
 453         $description = preg_replace('/""[^ ]/','"',$zeile[$fldpos["description"]]);
 454         $description = addslashes($description);
 455         if (Translate) translate($description);
 456
 457         // rop und weight müssen null oder Zahl sein
 458         if ($zeile[$fldpos["rop"]]) $rop = 1 * str_replace(",", ".",$zeile[$fldpos["rop"]]);
 459         if ($zeile[$fldpos["weight"]]) $weight = 1 * str_replace(",", ".", $zeile[$fldpos["weight"]]);
 460
 461         // Shop-Artikel
 462         if ($zeile[$fldpos["shop"]]) {
 463                 $shop = (strtolower($zeile[$fldpos["shop"]]=='t'))?'t':'f';
 464         } else {
 465                 $shop = $maske["shop"];
 466         }
 467         // Artikel updaten
 468
 469         if (getPartsid($db,trim($zeile[$fldpos["partnumber"]]))) {
 470             /* es gibt die Artikelnummer */
 471             if ($Update) {
 472                 /* Updates durchführen */
 473                 if ($UpdText=='1') {
 474                     $u += updParts($db,$insert,$show,$zeile[$fldpos["partnumber"]],$lastcost,$sellprice,$listprice,
 475                     $description,$notes,$zeile[$fldpos["ean"]],$weight,
 476                     $zeile[$fldpos["image"]],$partsgroup_id,$pricegroup, $shop);
 477                 } else {
 478                     $u += updPrice($db,$insert,$show,$zeile[$fldpos["partnumber"]],$lastcost,$sellprice,$listprice,$pricegroup,$shop);
 479                 }
 480                 continue;
 481                 // nächste Zeile
 482             }
 483         }
 484
 485         // Neuen Artikel einfügen
 486
 487         if ($zeile[$fldpos["partnumber"]] == "") {
 488             $zeile[$fldpos["partnumber"]] = newPartNumber($db,$check);
 489             //Keine Artikelnummer bekommen
 490             if ($zeile[$fldpos["partnumber"]] == "") {
 491                 continue;
 492             }
 493         }
 494         $i += insertParts($db,$insert,$show,array(
 495                     "partnumber"=>$zeile[$fldpos["partnumber"]],
 496                     "description"=>$description,"notes"=>$notes,
 497                     "ean"=>$zeile[$fldpos["ean"]],"unit"=>$unit,
 498                     "weight"=>$weight,"image"=>$zeile[$fldpos["image"]],
 499                     "sellprice"=>$sellprice,
 500                     "lastcost"=>$lastcost,
 501                     "listprice"=>$listprice,
 502                     "partsgroup_id"=>$partsgroup_id,
 503                     "buchungsgruppen_id"=>$bg,"income_accno_id"=>$income_accno,
 504                     "expense_accno_id"=>$expense_accno,"inventory_accno_id"=>$inventory_accno,
 505                     "microfiche"=>$zeile[$fldpos["microfiche"]],"drawing"=>$zeile[$fldpos["drawing"]],
 506                     "rop"=>$rop,"assembly"=>$assembly,
 507                     "shop"=>$shop,"makemodel"=>$makemodel),$pricegroup
 508                 );
 509         if ($hersteller>0 && $model) {
 510             $partsid=getPartsid($db,$zeile[$fldpos["partnumber"]]);
 511             if ($partsid) {
 512                 getMakemodel($db,$check,$hersteller,$model,$partsid,true);
 513             }
 514         }
 515         unset($zeile);
 516     }
 517
 518     if ($show) show("</table>",false);
 519     fclose($f);
 520     echo "$m Zeilen bearbeitet. Importiert: $i Update: $u (".($m-$u-$i+$errors)." : Fehler) ";
 521 }
 522 ?>