Subversion Repositories Sigmater

<table width="80%" border="1" align="center">
  <tr>
    <td><b>Stato richiesta:</b></td>
    <td>&nbsp;<?
        if (PEAR::isError($ritorno))
                {?>
      <span class="Stile3">Errore</span>
      <? } else { ?>
                <span class="Stile1">Successo</span>            <?

                }

        ?></td>
  </tr>

   <tr>
    <td><b>Protocollo:</b></td>
    <td>&nbsp;
        <?
        if (PEAR::isError($ritorno))
                {?>
      <span class="Stile3">n/a</span>
      <? } else {

          // trovo il protocollo nel xml di ritorno...

          $pos1 = strpos($ritorno, "<Protocollo>");
          $pos2 = strpos($ritorno, "</Protocollo>");

          if ($pos1>0)
                {
          $protocollo = substr($ritorno, $pos1+12, $pos2-$pos1-10);
          }
          else
                $protocollo="n/a";

          ?><?if($protocollo=="n/a") {?>
                <span class="Stile3"><? echo $protocollo; ?></span>
                        <?} else {?>
                        <span class="Stile1"><? echo $protocollo; ?></span>
                        <?} ?>

                <?
                }
        ?>
        </td>
  </tr>
   <tr>
    <td><b>XML in ingresso:</b></td>
    <td><textarea  name="xmlin" cols="60" rows="6">
        <? echo  htmlentities($xml); ?>
</textarea> </td>
  </tr>
   <tr>
     <td><b>XML in uscita:</b></td>
     <td><textarea name="xmlin" cols="60" rows="6">
<?
                if (PEAR::isError($ritorno))
                        echo 'SOAPFAULT: [CODE]'.$ritorno->code.' - [MESSAGE]'.$ritorno->message; //$soapclient->xml;
                else
                        echo htmlentities($ritorno);
 ?>
   </textarea>
     </td>
   </tr>
 </table><br><br>