Software error:

Illegal division by zero at ./Library/RD_kontaktlinsen.pl line 1547.
 my $t = q~<!-- Beginn Hauptinhalt Seite -->
   ~; if ( defined @X::PFLEGE ) { $t .=  q~
   	Sie brauchen noch Pflegemittel? Dieses Produkt wurde zuletzt in Kombination gekauft. Bitte achten Sie unbedingt auf die Verträglichkeit mit den bestellten Linsen!
   	<br><br>
 
     ~; $X::z = '0'; $t .= q~
 
     <table border="0" cellspacing="0" cellpadding="2" width="400">
 
       ~; foreach ( @X::PFLEGE ) { $t .=  q~
 
         ~; if ( ${$X::PFLEGE[$X::z]}[1] eq "" ) { $t .=  q~
           ~; next;; $t .= q~
         ~; } $t .= q~
 
         ~; $X::bgcolor = '#E5E5E5'; $t .= q~
 
         ~; if ( $X::z % 2 eq 1 ) { $t .=  q~
 
           ~; $X::bgcolor = '#F8F8F8'; $t .= q~
 
         ~; } $t .= q~
 
         <TR bgcolor="~; $t .= $X::bgcolor; $t .= q~">
           <TD align="center" height="100" width="106" rowspan="2">
             
                <a class="menu5" href="/cgi-bin/kontaktlinsen.pl?aktion=details&KNLID=~; $t .= ${$X::PFLEGE[$X::z]}[0]; $t .= q~&Artikel_Gruppe=~; $t .= ${$X::PFLEGE[$X::z]}[5]; $t .= q~&cart_id=~; $t .= $FORM{'cart_id'}; $t .= q~&seite=~; $t .= $FORM{'seite'}; $t .= q~">
 
               &nbsp;<IMG border="0" style="border:1px solid silver;" alt="~; $t .= ${$X::PFLEGE[$X::z]}[2]; $t .= q~&nbsp;-&nbsp;~; $t .= ${$X::PFLEGE[$X::z]}[3]; $t .= q~" title="~; $t .= ${$X::PFLEGE[$X::z]}[2]; $t .= q~&nbsp;-&nbsp;~; $t .= ${$X::PFLEGE[$X::z]}[3]; $t .= q~" src="http://ssl.delti.com/ablage/kontaktlinsen/~; $t .= ${$X::PFLEGE[$X::z]}[6]; $t .= q~">&nbsp;
               </a>
           </TD>
           <TD bgcolor="~; $t .= $X::bgcolor; $t .= q~" align="left" valign="middle" height="80">
 
               <a class="menu5" href="/cgi-bin/kontaktlinsen.pl?aktion=details&KNLID=~; $t .= ${$X::PFLEGE[$X::z]}[0]; $t .= q~&Artikel_Gruppe=~; $t .= ${$X::PFLEGE[$X::z]}[5]; $t .= q~&cart_id=~; $t .= $FORM{'cart_id'}; $t .= q~&seite=~; $t .= $FORM{'seite'}; $t .= q~">
 
               ~; $t .= ${$X::PFLEGE[$X::z]}[1]; $t .= q~<BR>~; $t .= ${$X::PFLEGE[$X::z]}[2]; $t .= q~&nbsp;-&nbsp;~; $t .= ${$X::PFLEGE[$X::z]}[3]; $t .= q~
             </a>
           </TD>
           <TD bgcolor="~; $t .= $X::bgcolor; $t .= q~" align="right" valign="middle"><span class="klein">bei deltilens.de<br>nur</span> <span class="preis">~; $t .= &Preis_Umwandeln(${$X::PFLEGE[$X::z]}[4]); $t .= q~ EUR</span></TD>
           <TD width="5" bgcolor="~; $t .= $X::bgcolor; $t .= q~">&nbsp;</TD>
         </TR>
         <TR>
           <TD bgcolor="~; $t .= $X::bgcolor; $t .= q~" height="21" valign="top" align="right" bgcolor="~; $t .= $X::bgcolor; $t .= q~" height="22" colspan="3">
 
               <a class="menu2" href="/cgi-bin/kontaktlinsen.pl?aktion=details&KNLID=~; $t .= ${$X::PFLEGE[$X::z]}[0]; $t .= q~&Artikel_Gruppe=~; $t .= ${$X::PFLEGE[$X::z]}[5]; $t .= q~&cart_id=~; $t .= $FORM{'cart_id'}; $t .= q~&seite=~; $t .= $FORM{'seite'}; $t .= q~">
 
               Details & Bestellung
             </a>
           </TD>
         </TR>
 
         ~; $X::z += '1'; $t .= q~
 
       ~; } $t .= q~
     </table>
     <br>
 	~; $t .= "<a class='menu2' href=/cgi-bin/kontaktlinsen.pl?aktion=side&Artikel_Gruppe=2&cart_id=$FORM{'cart_id'}>Mehr Pflegemittel</a>"; $t .= q~
   	<br><br><img src="/img/blind_blau.gif" width="400" height="5" border="0" alt=""><br><br><br><br>
   ~; } $t .= q~
   ~; if ( defined @X::LISTE ) { $t .=  q~
     ~; &getDioptrien(2,1); $t .= q~
     <table width="400" >
 
       ~; if ( $FORM{aktion} eq "warenkorb" && $FORM{'anzahl1'} eq "" && $FORM{'anzahl2'} eq "" ) { $t .=  q~
         <tr>
           <td colspan='2'><font style="color:red;">Bitte machen Sie vollst&auml;ndige Angaben.</font><br>&nbsp;</td>
         <tr>
       ~; } $t .= q~
 
       <tr>
         <td align="center">
           <img alt="~; $t .= ${$X::LISTE[$X::i]}[2]; $t .= q~&nbsp;-&nbsp;~; $t .= ${$X::LISTE[$X::i]}[3]; $t .= q~" title="~; $t .= ${$X::LISTE[$X::i]}[2]; $t .= q~&nbsp;-&nbsp;~; $t .= ${$X::LISTE[$X::i]}[3]; $t .= q~" src="http://ssl.delti.com/ablage/kontaktlinsen/~; $t .= ${$X::LISTE[0]}[13]; $t .= q~" border="0"> 
         </td>
         <td valign="bottom">
           ~; if ( ${$X::LISTE[0]}[15] ne "" ) { $t .=  q~
             <span class="preis">UVP: ~; $t .= &Preis_Umwandeln(${$X::LISTE[0]}[15],1,1,1); $t .= q~ EUR</SPAN><br>
           ~; } $t .= q~
           <span class="klein">bei deltilens.de<br>nur</span> 
           <span class="preis">~; $t .= &Preis_Umwandeln(${$X::LISTE[0]}[4]); $t .= q~ EUR</span> 
           ~; if ( $FORM{'Artikel_Gruppe'} eq 2 && ${$X::LISTE[$X::i]}[3] ne "" ) { $t .=  q~
             <br><span class="klein">~; $t .= &basispreis(${$X::LISTE[0]}[4],${$X::LISTE[$X::i]}[3]); $t .= q~</span> 
           ~; } $t .= q~
         </td>
       <tr>
       <tr>
         <td  colspan="2"><span class="ueberschrift">~; $t .= ${$X::LISTE[$X::i]}[2]; $t .= q~&nbsp;-&nbsp;~; $t .= ${$X::LISTE[$X::i]}[3]; $t .= q~</span></td>
       <tr>
         <td  colspan="2">~; $t .= ${$X::LISTE[0]}[5]; $t .= q~
           <p>
           ~; if ( $FORM{'Artikel_Gruppe'} eq 2 ) { $t .=  q~
             ~; if ( ${$X::LISTE[0]}[7] ne "" ) { $t .=  q~
             <tr bgcolor="E5E5E5">
               <td>geeignet f&uuml;r:</td>
               <td>~; $t .= ${$X::LISTE[0]}[7]; $t .= q~</td>
             </tr>
             ~; } $t .= q~          
           ~; } $t .= q~
 
           ~; if ( $FORM{'Artikel_Gruppe'} ne 2 ) { $t .=  q~
           
           <span class="ueberschrift">Linsen-Infos:</span>
           <table cellspacing="3" cellpadding="3" width="400">
             ~; if ( ${$X::LISTE[0]}[16] ne "" ) { $t .=  q~
             <tr bgcolor="F8F8F8">
               <td>Tragedauer:</td>
               <td>~; $t .= ${$X::LISTE[0]}[16]; $t .= q~</td>
             </tr>
             ~; } $t .= q~
             ~; if ( ${$X::LISTE[0]}[10] ne "" ) { $t .=  q~
             <tr bgcolor="E5E5E5">
               <td>Durchmesser (DIA):</td>
               <td>~; $t .= ${$X::LISTE[0]}[10]; $t .= q~ mm </td>
             </tr>
             ~; } $t .= q~
             ~; if ( ${$X::LISTE[0]}[11] ne "" ) { $t .=  q~
             <tr  bgcolor="F8F8F8">
               <td>Basiskurve (BC):</td>
               <td>~; $t .= ${$X::LISTE[0]}[11]; $t .= q~ mm</td>
             </tr>
             ~; } $t .= q~
             ~; if ( ${$X::LISTE[0]}[7] ne "" ) { $t .=  q~
             <tr bgcolor="E5E5E5">
               <td>Material:</td>
               <td>~; $t .= ${$X::LISTE[0]}[7]; $t .= q~</td>
             </tr>
             ~; } $t .= q~
             ~; if ( ${$X::LISTE[0]}[9] ne "" ) { $t .=  q~
               <tr bgcolor="F8F8F8">
                 <td>Sauerstoffdurchl.:</td>
                 <td>~; $t .= ${$X::LISTE[0]}[9]; $t .= q~</td>
               </tr>
             ~; } $t .= q~
             ~; if ( ${$X::LISTE[0]}[8] ne "" ) { $t .=  q~
             <tr bgcolor="E5E5E5">
               <td>Wassergehalt:</td>
               <td>~; $t .= ${$X::LISTE[0]}[8]; $t .= q~</td>
             </tr>
             ~; } $t .= q~
             ~; if ( $X::Dioptriemin ne "" ) { $t .=  q~
             <tr bgcolor="F8F8F8">
               <td>Lieferbereich:</td>
               <td>~; $t .= $X::Dioptriemax." bis ".$X::Dioptriemin; $t .= q~</td>
             </tr>
             ~; } $t .= q~
           </table>
           </p>
           
           ~; if ( &getFarben(0,1,1) ne "" ) { $t .=  q~
           
           
           ~; } $t .= q~
           
           <span class="ueberschrift">Ihre Werte:</span>
           <form name='linsendetail' action="/cgi-bin/kontaktlinsen.pl" method='post'>
           <input type='hidden' name='aktion' value='warenkorb'>
           <input type='hidden' name='KNLID' value='~; $t .= $FORM{'KNLID'}; $t .= q~'>
           ~; if ( $FORM{'Artikel_Gruppe'} eq "" ) { $t .=  q~
             <input type='hidden' name='Artikel_Gruppe' value='~; $t .= ${$X::LISTE[0]}[12]; $t .= q~'>
           ~; } else { $t .= q~
             <input type='hidden' name='Artikel_Gruppe' value='~; $t .= $FORM{'Artikel_Gruppe'}; $t .= q~'>
           ~; } $t .= q~
           <input type='hidden' name='cart_id' value='~; $t .= $FORM{'cart_id'}; $t .= q~'>
           <table width="400"  cellspacing="3" cellpadding="3">
             <tr bgcolor="E5E5E5">
               <td></td>
               <td>Linkes Auge</td>
               <td>Rechtes Auge</td>
             </tr>
 
             ~; $X::i = '0'; $t .= q~
             ~; $X::bgcolor = '#F8F8F8'; $t .= q~
             ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
               ~; $X::bgcolor = '#E5E5E5'; $t .= q~
             ~; } $t .= q~
             ~; $X::i += '1'; $t .= q~
 
             <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
               <td>Anzahl / Preis </td>
               <td>
                 <select class="select" name='anzahl1' style='width:115'>
                   <option value=''>bitte ausw&auml;hlen</option>
                   <option value='1'>1 - ~; $t .= &Preis_Umwandeln(${$X::LISTE[0]}[4]); $t .= q~ Euro</option>
                   <option value='2'>2 - ~; $t .= &Preis_Umwandeln(${$X::LISTE[0]}[4],2); $t .= q~ Euro</option>
                 </select>
               </td>
               <td>
                 <select class="select" name='anzahl2' style='width:115'>
                   <option value=''>bitte ausw&auml;hlen</option>
                   <option value='1'>1 - ~; $t .= &Preis_Umwandeln(${$X::LISTE[0]}[4]); $t .= q~ Euro</option>
                   <option value='2'>2 - ~; $t .= &Preis_Umwandeln(${$X::LISTE[0]}[4],2); $t .= q~ Euro</option>
                 </select>
               </td>
             </tr>
 
             ~; if ( &getDurchmesser(0,1,1) ne "" ) { $t .=  q~
               ~; $X::bgcolor = '#F8F8F8'; $t .= q~
               ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
                 ~; $X::bgcolor = '#E5E5E5'; $t .= q~
               ~; } $t .= q~
               ~; $X::i += '1'; $t .= q~
 
               <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
                 <td>Durchmesser (DIA)</td>
                 <td>~; $t .= &getDurchmesser(1,1); $t .= q~</td>
                 <td>~; $t .= &getDurchmesser(1,2); $t .= q~</td>
               </tr>
             ~; } $t .= q~
 
             ~; if ( &getBasiskurve(0,1,1) ne "" ) { $t .=  q~
               ~; $X::bgcolor = '#F8F8F8'; $t .= q~
               ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
                 ~; $X::bgcolor = '#E5E5E5'; $t .= q~
               ~; } $t .= q~
               ~; $X::i += '1'; $t .= q~
 
               <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
                 <td>Basiskurve (BC)</td>
                 <td>~; $t .= &getBasiskurve(1,1); $t .= q~</td>
                 <td>~; $t .= &getBasiskurve(1,2); $t .= q~</td>
               </tr>
             ~; } $t .= q~
 
             ~; if ( &getDioptrien(0,1,1) ne "" ) { $t .=  q~
               ~; $X::bgcolor = '#F8F8F8'; $t .= q~
               ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
                 ~; $X::bgcolor = '#E5E5E5'; $t .= q~
               ~; } $t .= q~
               ~; $X::i += '1'; $t .= q~
 
               <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
                 <td>Dioptrien (SPH)</td>
                 <td>~; $t .= &getDioptrien(1,1); $t .= q~</td>
                 <td>~; $t .= &getDioptrien(1,2); $t .= q~</td>
               </tr>
             ~; } $t .= q~
 
             ~; if ( &getAchse(1,1) ne "" ) { $t .=  q~
               ~; $X::bgcolor = '#F8F8F8'; $t .= q~
               ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
                 ~; $X::bgcolor = '#E5E5E5'; $t .= q~
               ~; } $t .= q~
               ~; $X::i += '1'; $t .= q~
 
               <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
                 <td>Achse (AX)</td>
                 <td>~; $t .= &getAchse(1); $t .= q~</td>
                 <td>~; $t .= &getAchse(2); $t .= q~</td>
               </tr>
             ~; } $t .= q~
 
             ~; if ( &getZylinder(0,1,1) ne "" ) { $t .=  q~
               ~; $X::bgcolor = '#F8F8F8'; $t .= q~
               ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
                 ~; $X::bgcolor = '#E5E5E5'; $t .= q~
               ~; } $t .= q~
               ~; $X::i += '1'; $t .= q~
 
               <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
                 <td>Zylinder (CYL)</td>
                 <td>~; $t .= &getZylinder(1,1); $t .= q~</td>
                 <td>~; $t .= &getZylinder(1,2); $t .= q~</td>
               </tr>
             ~; } $t .= q~
 
             ~; if ( &getAddition(0,1,1) ne "" ) { $t .=  q~
               ~; $X::bgcolor = '#F8F8F8'; $t .= q~
               ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
                 ~; $X::bgcolor = '#E5E5E5'; $t .= q~
               ~; } $t .= q~
               ~; $X::i += '1'; $t .= q~
 
               <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
                 <td>Addition </td>
                 <td>~; $t .= &getAddition(1,1); $t .= q~</td>
                 <td>~; $t .= &getAddition(1,2); $t .= q~</td>
               </tr>
             ~; } $t .= q~
             
             ~; if ( &getExentrizitaet(0,1,1) ne "" ) { $t .=  q~
               ~; $X::bgcolor = '#F8F8F8'; $t .= q~
               ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
                 ~; $X::bgcolor = '#E5E5E5'; $t .= q~
               ~; } $t .= q~
               ~; $X::i += '1'; $t .= q~
 
               <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
                 <td>Exentrizit&auml;t</td>
                 <td>~; $t .= &getExentrizitaet(1,1); $t .= q~</td>
                 <td>~; $t .= &getExentrizitaet(1,2); $t .= q~</td>
               </tr>
             ~; } $t .= q~
             
             ~; if ( &getFarben(0,1,1) ne "" ) { $t .=  q~
               ~; $X::bgcolor = '#F8F8F8'; $t .= q~
               ~; if ( $X::i % 2 eq 1 ) { $t .=  q~
                 ~; $X::bgcolor = '#E5E5E5'; $t .= q~
               ~; } $t .= q~
               ~; $X::i += '1'; $t .= q~
 
               <tr bgcolor="~; $t .= $X::bgcolor; $t .= q~">
                 <td>Farben </td>
                 <td>~; $t .= &getFarben(1,1); $t .= q~</td>
                 <td>~; $t .= &getFarben(1,2); $t .= q~</td>
               </tr>
             ~; } $t .= q~
 
           ~; } else { $t .= q~
 
             <form name='linsendetail' action="/cgi-bin/kontaktlinsen.pl" method='get'>
             <input type='hidden' name='aktion' value='warenkorb'>
             <input type='hidden' name='KNLID' value='~; $t .= $FORM{'KNLID'}; $t .= q~'>
             ~; if ( $FORM{'Artikel_Gruppe'} eq "" ) { $t .=  q~
               <input type='hidden' name='Artikel_Gruppe' value='~; $t .= ${$X::LISTE[0]}[12]; $t .= q~'>
             ~; } else { $t .= q~
               <input type='hidden' name='Artikel_Gruppe' value='~; $t .= $FORM{'Artikel_Gruppe'}; $t .= q~'>
             ~; } $t .= q~
             <input type='hidden' name='cart_id' value='~; $t .= $FORM{'cart_id'}; $t .= q~'>
 
             <table width="400"  cellspacing="3" cellpadding="3">
               <tr bgcolor="#E5E5E5">
                 <td width="100">Anzahl / Preis </td>
                 <td colspan="2">
                   <select class="select" name='anzahl1' style='width:115'>
                     <option value=''>bitte ausw&auml;hlen</option>
                     <option value='1'>1 - ~; $t .= &Preis_Umwandeln(${$X::LISTE[0]}[4]); $t .= q~ Euro</option>
                     <option value='2'>2 - ~; $t .= &Preis_Umwandeln(${$X::LISTE[0]}[4],2); $t .= q~ Euro</option>
                   </select>
                 </td>
               </tr>
             </table>
 
           ~; } $t .= q~
 
             <tr><td colspan="3"><span class="eigenschaft">&Uuml;ber die Pull-Down Menus k&ouml;nnen Sie bequem die richtigen Linsen ausw&auml;hlen - sowohl einzeln, paarweise oder in der gew&uuml;nschten Anzahl. Die Anzahl bzw. der angegebene Preis bezieht sich auf die angegebene Verpakungseinheit.</span></td></tr>
           </table>
           <br>
           <table width="400" >
             <tr>
               <td>~; $t .= $X::Artikel_Gruppe_Link; $t .= q~
               </td><td align="right"><img style="cursor:pointer;" OnClick="document.linsendetail.submit()" src="/img/warenkorb1.gif" width="127" height="22" border="0" alt=""></td>
             </tr>
           </table>
           </form>
         </td>
       </tr>
       <TR>
         <TD COLSPAN="3">~; $t .= $GLOBAL{'PreisText'}; $t .= q~<br><br></TD>
       </TR>
       ~; if ( ${$X::LISTE[0]}[17] ne "" ) { $t .=  q~
       <TR>
         <TD COLSPAN="3">Lieferzeit betr&auml;gt: ~; $t .= ${$X::LISTE[0]}[17]; $t .= q~<br><br></TD>
       </TR>
       ~; } $t .= q~
     </table>
     
 
   ~; } else { $t .= q~
 
     Es gab leider keine Ergebnisse auf Ihre Anfrage
 
   ~; } $t .= q~
 
~; return $t;  at ./Library/RD_kontaktlinsen.pl line 131.

For help, please send mail to the webmaster (u35778233@kfzersatzteile.info), giving this error message and the time and date of the error.