<!--	
/******************************************************************************
This shop-application is copyright 2001 by Peter Plaimer
(except built-in text.js, which is provided by MyersDaily)
contact: peter.plaimer@liwest.at
website: http://members.liwest.at/asdert
******************************************************************************/
/*
Text.js provided by MyersDaily. For documentation see
http://www.angelfire.com/yt/jmyers/bin/pod/Text.shtml
*/
	
var Text = {
as:function(a1) { return '' + (a1 || '') },
is:function(a1) { return '' + a1 === a1 },
no:function(a1) {
	a1 = isNaN(a1=Number(a1)) ? parseFloat(a1) : a1;
	return isNaN(a1) ? 0 : a1;
},
ex:function(a1,a2) {
	var mo = Math.floor(a2/2);
	if (mo > 1) return this.ex(a1 + a1, mo) + (a2 % 2 && a1 || '');
	var fo = '';
	while (a2 > 0) { fo += a1; a2-- }
	return fo;
},
pad:function(a1,a2,a3) {
return this.is(a1)
	? a1 + this.ex(a3 || ' ', a2 - a1.length)
	: this.ex(a3 || ' ', a1 - ('' + a2).length) + a2;
},
trim:function(a1,a2,a3) {
	a1 = this.as(a1).replace(a3 || /^\s+|\s+$/g, '');
	return a2 && a1.length > a2 ? a1.substr(0,a2-1) + '\u2026' : a1; 
},
line:function(a1) {
	var OS = navigator.platform, NL = OS.indexOf('Mac') != -1
		&& '\r' || OS.indexOf('Win') != -1
		&& '\r\n' || '\n';
	return this.as(a1) + NL;
},
code:function(a1) { return (a1=this.as(a1)) ? "unescape('"+escape(a1)+"')" : "''" }
}
/* end of text.js */
/*****************************************************************************/
var agb_ok = 0;
var akt_agr = 0;
var akt_agr_menu = 0;
var akt_art_seite = 0;
var art = new Array ();
var kunde = new Array("","","","","","","");
var shopmode = "";
var wagerl_belegt = 0;
var wagerl = new Array ();
var picpopwin;

/*****************************************************************************/
function cookie_strg(rw) {
/* cooki lib nur gut genug für agb flag merken und aktulle pos im katalog */

	if (!cookies_available) return;
// alert("cookie_strg->"+rw);
var cn="shop_strg_";
var ex=null;
if (rw=="w"){
makeCookie(cn+"agb",agb_ok,ex,"/"); 
makeCookie(cn+"shopmode",shopmode,ex,"/"); 
makeCookie(cn+"akt_agr",akt_agr,ex,"/"); 
makeCookie(cn+"akt_agr_menu",akt_agr_menu,ex,"/"); 
makeCookie(cn+"akt_art_seite",akt_art_seite,ex,"/"); 
} else {
agb_ok=readCookie(cn+"agb");
shopmode=readCookie(cn+"shopmode"); 
akt_agr=readCookie(cn+"akt_agr");
akt_agr_menu=Text.no(readCookie(cn+"akt_agr_menu"));
akt_art_seite=Text.no(readCookie(cn+"akt_art_seite"));
}
//  alert("sm="+shopmode+" - agr="+akt_agr+" - menu="+akt_agr_menu);
}

/*****************************************************************************/
function cookie_wagerl(rw) {
/* wagerl geht bei refresh verloren, weil cooki lib nicht gut genug */
	return;

	if (!cookies_available) return;
	// alert("cookie_wagerl->"+rw);
	var cn="shop_wagerl_";
	var ex=null;
	var pos=0;
	var det=0;
	
	if (rw=="w"){
		pos=wagerl_belegt;
		makeCookie(cn+"length",pos,ex,"/");
		for (i=0;i<pos;i++) {
			det=wagerl[i].length;
			makeCookie(cn+i+"_length",det,ex,"/");
			for (d=0;d<det;d++)
				makeCookie(cn+i+"_"+d,wagerl[i][d],ex,"/");
		}	 
	} else {
	//  alert("read_wagerl!");
		pos=readCookie(cn+"length");
		wagerl_belegt=pos;
	//  alert("read_wagerl: len"+pos);
		wagerl = new Array();
		for (i=0;i<pos;i++) {
			det=readCookie(cn+i+"_length");
	//    alert("read_wagerl: pos"+i+" len"+det);
			wagerl[i] = new Array();
			for (d=0;d<det;d++)
				 wagerl[i][d]=readCookie(cn+i+"_"+d);
	//       alert("read_wagerl: pos"+i+" det"+d+" = "+readCookie(cn+i+"_"+d));
		}	 
	}
}

/*****************************************************************************/
function cookie_kunde(rw) {
/* kundendaten gehen bei refresh verloren, weil cooki lib nicht gut genug */
	return;

	
	if (!cookies_available) return;
// alert("cookie_kunde->"+rw);
var cn="shop_kunde_";
var ex=null;
var pos=0;
var det=0;

if (rw=="w"){
  pos=kunde.length;
  makeCookie(cn+"length",pos,ex,"/");
  for (i=0;i<pos;i++) {
      makeCookie(cn+i,kunde[i],ex,"/");
  }	 
} else {
//  alert("read_kunde!");
  pos=readCookie(cn+"length");
  kunde = new Array();
//  alert("read_kunde! details="+pos);
  if (pos==null)
    for (i=0; i<7; i++)
      kunde[i]="hu"+i;
  else
    for (i=0; i<pos; i++) {
//       alert("read_kunde! detail "+i);
       kunde[i] = readCookie(cn+i);
//       alert("read_kunde! detail "+i+"="+kunde[i]);
	   if (kunde[i]==null) kunde[i]="NAL"+i;
    }	 
  }
}

/*****************************************************************************/
function agb_akzeptieren() {
// alert("agb_akzeptiert...");
  agb_ok = 1;
  cookie_strg("w");
  top.shop.location.replace("shop.htm");
}

/*****************************************************************************/

function picpop(cnt) {
	if (picpopwin != null) {
		picpopwin.close();
	}
	picpopwin = window.open('picpop.htm?' + art[cnt][0] + '+' + art[cnt][5], 'picpop', 'width=' + cust_picpop_breit + ',height=' + cust_picpop_hoch)
}

/*****************************************************************************/
function start_shop () {
//  alert("start_shop, sm="+shopmode);
  cookie_strg("r");
  if (!agb_ok) {
    top.shop.location.replace("agb.htm");
  } else {
    if ( (shopmode==null) || (shopmode=="") )
      opengroup(0);
  } 
}

/******************************************************************************/
function set_shopmode (newmode) {
// alert("set_shopmode: "+newmode);
  switch (newmode) {
    case "agr":
    case "art":
	case "wagerl":
	{
	  shopmode = newmode;
      cookie_strg("w");
      top.shop.location.reload();
//      top.shop.location.href="shop.htm";
	  break;
	}
	default: break;  
  }
}

/******************************************************************************/
function opengroup (jtoarg) {
//    alert("opengroup: "+jtoarg);
var anz_agr = agr.length;
if ( Text.no(jtoarg) < 0 ) { /* eine ebene rauf */
jtoarg = such_agr_eltern(akt_agr);
}

if (akt_agr!=jtoarg) {
  akt_art_seite = 0;
}
akt_agr = jtoarg;

if ( check_agr_menu() )
  set_shopmode ("agr");
else
  set_shopmode ("art");
}

/******************************************************************************/
function art_page (pagno) {
  pagno = Text.no(pagno);
  switch (pagno) {
    case -1: { akt_art_seite --; break; }
    case  0: { akt_art_seite ++; break; }
    default: { akt_art_seite = pagno ; break; }
  }
  set_shopmode ("art");
}

/******************************************************************************/
function check_agr_menu() {
var anz_agr = agr.length;
akt_agr_menu = 0;
  for ( cnt = 1; cnt < anz_agr; cnt++ )
    if ( agr[cnt][0] == agr[akt_agr][1] )
      akt_agr_menu = 1;
return akt_agr_menu;	  
}

/******************************************************************************/
function format_preis (N) {
Groschen = Math.round( Text.no(N)*100 );
ausgib = ( Math.floor((Groschen/100)%1000) + ',' + Text.pad(2, Math.abs(Groschen%100), '0') );
if ( Groschen >= 100000 ) ausgib = Math.floor((Groschen/100000)%1000) + '.' + Text.pad(6,ausgib,'0'); 
return ( ausgib );
}

/******************************************************************************/
function such_agr_eltern (idx) {
  for ( cnt = 0; cnt < agr.length; cnt++ )
    if ( agr[cnt][1] == agr[idx][0] )
      return cnt; /* = index der eltern-gruppe */
return -1; /* SOLL: NIE! */ 	  
}

/******************************************************************************/
function ungerade (cnt) {
  if (cnt%2) return "class=ungerade"; else return "class=gerade";
}

/******************************************************************************/
function ausgib_artikelgruppe () {
if (shopmode != "agr") return;
/* nur wennst ein artikelgrupppen-menue hast. */
if (!akt_agr_menu) return;
var ausgib = "";
var anz_agr = agr.length;

/* Ueberschrift */
ausgib += "<p class=agr-titel>" + agr[akt_agr][4] + "</p>";
/* Tabelle eroeffnen und Kopfzeile schreiben */
ausgib += "<table class=agr cellspacing="+cust_tables_cellspacing+">";
ausgib += "<thead><tr><th>Grp</th>";
ausgib += "<th class=agr-text>Beschreibung</th></tr></thead>";
ausgib += "<tbody>";
/* Jetzt durch die Artikel koffern, die Zeilen aufbauen */
for ( cnt = 1; cnt < anz_agr; cnt++ )
  if ( agr[cnt][0] == agr[akt_agr][1] )
{
  ausgib += "<tr "+ungerade(cnt)+"><td>";
  ausgib += agr[cnt][1] + "</td><td><span class=agr-text>";
  ausgib += "<a href=\""+top.shop.location.href+"\" onclick='top.opengroup(" + cnt + ")'";
  ausgib += " onMouseOver='window.status=\""+agr[cnt][4]+"\";return true;'";
  ausgib += " onMouseOut='window.status=\"\";return true;\'>";
  ausgib += "<span class=art-kurztext>";
  ausgib += agr[cnt][2] + "</span> <span class=art-langtext>" + agr[cnt][3];
  ausgib +="</span></a></td></tr>";
}
/* Die Tabelle abschliessen und den Buffer ausgeben */
ausgib += "</tbody></table><br>";
top.shop.document.writeln(ausgib);
}

/******************************************************************************/
function load_artikelliste () {
if (shopmode != "art") return;
/* nur wennst eine artikelliste bist. */
if (akt_agr_menu) return;
/* Array Artikelliste initialisieren */
art = new Array ();
/* Code erzeugen, der dann ein anderes .js DYNAMISCH INCLUDED :) */
var ausgib = "";
var grp = agr[akt_agr][1];
grp = grp.toLowerCase();
ausgib = "<scr"+"ipt language=\"Javascript\" src=\"ali/" + grp;
ausgib += ".js\" type=\"text/javascript\">" + "</scr" + "ipt>";
top.shop.document.writeln(ausgib);
}

/******************************************************************************/
function ausgib_artikelliste () {
if (shopmode != "art") return;
/* nur wennst eine artikelliste bist. */
if (akt_agr_menu) return;

/* und geht schon... */
var ausgib = "";
var ausvon = 0;
var ausbis = art.length - 1;
var seiten_gesamt = 0;

if (art.length) { 
/* Ueberschrift */
if ( agr[akt_agr][4] == "" )
  ausgib += "<p class=agr-titel>" + agr[akt_agr][2] + "</p>";
else
  ausgib += "<p class=agr-titel>" + agr[akt_agr][4] + "</p>";

/* Ausgabe seitenweise */
if ( !akt_art_seite )
  akt_art_seite = 1;
if ( cust_artikel_seite_anzahl ) {  
  seiten_gesamt = 1 + Math.floor((art.length-1)/cust_artikel_seite_anzahl);
  ausvon = ( cust_artikel_seite_anzahl ) * ( akt_art_seite - 1 );
  ausbis = ausvon + cust_artikel_seite_anzahl - 1;
  if ( ausbis >= art.length ) {
    ausbis = art.length - 1;
  }  
}

ausgib += append_ausgib_seiten_navi(seiten_gesamt, akt_art_seite);

/* Als erstes die Tabelle eroeffnen und Kopfzeile schreiben*/
  ausgib += "<table class=art cellspacing="+cust_tables_cellspacing+">";
  ausgib += "<thead><tr class=art-head>";
  ausgib += "<th>Art#</th>";
  ausgib += "<th>Bild</th>";
  ausgib += "<th class=art-text>Beschreibung</th>";
  ausgib += "<th align=right>"+"Preis"+"</th>";
  ausgib += "<th>nimm</th>";
  ausgib += "</tr></thead><tbody>";

/* Jetzt durch die Artikel koffern, die Zeilen aufbauen */
  for ( cnt = ausvon; cnt <= ausbis; cnt++ ) {
    ausgib += "<tr "+ungerade(cnt+1)+"><td>";
    ausgib += Text.as(art[cnt][0]).replace(" ","&nbsp;");
    ausgib += "</td>";
/* Bild-link */
		ausgib += "<td class=art-bilder>";
		if (art[cnt][5] > 0) {
			ausgib += "<a href='javascript:top.picpop(" + cnt + ");'>";
			if ( ctxt_picpop_link != "" ) {
			ausgib += ctxt_picpop_link;
			} else {
			ausgib += '&nbsp;' + art[cnt][5] + '&nbsp;';
			}
			ausgib += "</a>";
		} else {
			ausgib += '&nbsp;';
		}
		ausgib += "";
		ausgib += "</td>";
/* Beschreibung */
    ausgib += "<td><span class=art-text><span class=art-kurztext>";
    ausgib += art[cnt][2] + "</span>"+ctxt_art_bes_sep+"<span class=art-langtext>";
    ausgib += art[cnt][3] + ctxt_zustand_anf + art[cnt][4] + ctxt_zustand_end + "</span></td>"
/* Preis */
    ausgib += "<td class=art-preis><span class=art-preis>";
    ausgib += cust_waehrung1_name + "" + Text.pad(cust_preisfelder_breite, format_preis( art[cnt][1] * cust_waehrung1_kurs ), "&nbsp;");
    if (cust_waehrung2_name) {
      ausgib += "<br>";
      ausgib += cust_waehrung2_name + "" + Text.pad(cust_preisfelder_breite, format_preis( art[cnt][1] * cust_waehrung2_kurs ), "&nbsp;");
    }
    ausgib += "</span></td>";
/* kaufen */
	ausgib += "<td><input type='button' value='1 Stk.' onclick=";
	ausgib += "\"top.ins_wagerl('"+cnt+"');\"></td>";
	ausgib += "</tr>";
  }
/* Die Tabelle abschliessen und den Buffer ausgeben */
  ausgib += "</tbody></table>";

  ausgib += append_ausgib_seiten_navi(seiten_gesamt, akt_art_seite);
}
else {
  ausgib += "DATENFEHLER! Keine Artikel f&uuml;r Gruppe '" + agr[akt_agr][1] + "'";
}  
top.shop.document.writeln(ausgib);
}

/******************************************************************************/
function append_ausgib_seiten_navi (ges, akt) {
var ausgib = "";

if (!cust_artikel_seite_anzahl)
  return ausgib;
if ( ( ges <= 1) && ( cust_artikel_seite_auch_eine==0 ) )
  return ausgib;

ausgib += "<table class=kunde><tr class=mini-menu>";

ausgib += "<td align=left>";
if ( ( akt > 1 ) && ( ( ges > 1 ) || ( cust_artikel_seite_auch_eine >= 1 ) ) )
{
  ausgib += "<a href=\""+top.shop.location.href+"\" onclick='javascript:top.art_page(-1);'>";
  ausgib += ctxt_artikel_seite_rueckwaerts + "</a>";
}
else
  if ( cust_artikel_seite_inactive_style == 1 )
    ausgib += ctxt_artikel_seite_rueckwaerts;

ausgib += "</td><td align=center width='100%'>";
ausgib += ctxt_artikel_seite_seite_anf + akt;
ausgib += ctxt_artikel_seite_seite_mid + ges + ctxt_artikel_seite_seite_end;
ausgib += "</td><td align=right>";

if ( ( akt < ges ) && ( ( ges > 1 ) || ( cust_artikel_seite_auch_eine >= 1 ) ) )
{
  ausgib += "<a href=\""+top.shop.location.href+"\" onclick='javascript:top.art_page(0);'>";
  ausgib += ctxt_artikel_seite_vorwaerts + "</a>";
}
else
  if ( cust_artikel_seite_inactive_style == 1 ) 
    ausgib += ctxt_artikel_seite_vorwaerts;
ausgib += "</td>";

ausgib += "</tr></table>";
return ausgib;
}

/******************************************************************************/
function ins_wagerl (art_cnt) {
  var wagerl_cnt = wagerl.length;
  var ausgib = "";
  var neue_anzahl = 0;
/* haben wir den artikel schon mal im Wagerl? */
  for ( cnt = 0; cnt < wagerl_cnt; cnt++ ) {
    if ( wagerl[cnt][0] == art[art_cnt][0] ) { 
	  wagerl_cnt = cnt;
	  neue_anzahl = wagerl[wagerl_cnt][4];
	}
  }

/* hamma no net -> eine gelöschte recyclen? */
  if ( wagerl_cnt > wagerl_belegt ) {
    wagerl_cnt = wagerl_belegt;
  }
  
neue_anzahl++; /* ganz wichtig :) */  

/* wieviel sinds dann und wie sagt man da? */
  ausgib += "Im Wagerl gesamt "+neue_anzahl+" Stück\n";
  ausgib += "von Artikel "+art[art_cnt][0]+" ("+art[art_cnt][2]+")";
/* wenn noetig (cust) bestaetigung einfordern */
  if ( (!cust_wagerl_geben_fragen) || (confirm(ausgib)) ) {
/* wenn ok oder egal, die Daten neu anlegen / uebertragen */
    if (wagerl_cnt == wagerl.length) { 
      wagerl[wagerl_cnt] = new Array(); 
    }
	if ( wagerl_cnt == wagerl_belegt )
	  wagerl_belegt++;
      wagerl[wagerl_cnt][0] = art[art_cnt][0];
      wagerl[wagerl_cnt][1] = art[art_cnt][1];
      wagerl[wagerl_cnt][2] = art[art_cnt][2];
      wagerl[wagerl_cnt][3] = art[art_cnt][3];
      wagerl[wagerl_cnt][5] = art[art_cnt][4];
/* die neue Stueckzahl auch eintragen */
    wagerl[wagerl_cnt][4] = neue_anzahl;
  }
 
/* wagerl in cookie kopiern */
cookie_wagerl("w");
}

/******************************************************************************/
function ausgib_wagerl() {
if (shopmode != "wagerl") return;

/* wenn wagerl leer aus cookie updaten */
if (!wagerl.length)
  cookie_wagerl("r");

var ausgib = "";
var summe = 0;
var pos_preis = 0;
var pbesch = "";
var datum = new Date;
var anz_pos = 0; 

/* alle vorhandenen Artikel durchsuchen */
  ausgib += "<p class=wagerl-titel>"+ctxt_wagerl+"</p>";

  ausgib += "<form name='wagerl' action='mailto:"+cust_bestellung_mailto+"' method='POST' enctype=\"text/plain\">";
/* Wieder versteckte Info */  
  ausgib += "<input name='kennung' type='hidden' value=\""+cust_bestellung_kennung+"\">";
  ausgib += "<input name='DatumZeit' type='hidden' value=\""+datum.toGMTString()+"\">";
  ausgib += "<input name='Gesamtsumme' type='hidden' value='*FEHLER*'>";
  ausgib += "<input name='Anz_Positionen' type='hidden' value=\""+wagerl_belegt+"\">";

/* Das Wagerl an sich (Ueberschrift) */ 
  ausgib += "<table class=wagerl cellspacing="+cust_tables_cellspacing+">",
  ausgib += "<thead><tr class=wagerl-head>";
  ausgib += "<th>Pos</th>"; 
  ausgib += "<th>Art#</th>";
  ausgib += "<th class=art-text>Bezeichnung</th>";
  ausgib += "<th>Anz</th>";
  ausgib += "<th>"+"Preis"+"</th>";
  ausgib += "<th>"+"Summe"+"</th>";

  ausgib += "</tr></thead><tbody>";
/* Die einzelnen Wagerl-Positionen, wenn nicht gelöscht */
  for (cnt = 0; cnt < wagerl_belegt; cnt++) { 
/* hier verstecken wir Info im email unsichtbar fuer user */
    pbesch = "Artikel " + wagerl[cnt][0] + " - " + wagerl[cnt][2]; 
    ausgib += "<input name='Position_" + cnt + "' type='hidden' value=\""+pbesch+"\">";
    ausgib += "<input name='Stueckpreis_" + cnt + "' type='hidden' value=\""+wagerl[cnt][1]+"\">";
/* was das ueberhaupt ist */
    ausgib += "<tr "+ungerade(cnt+1)+">";

/* Pos-Nr */
	ausgib += "<td>"+(cnt+1)+"</td>";

/* Artikelnummer */
	ausgib += "<td>"+Text.as(wagerl[cnt][0]).replace(" ","&nbsp;")+"</td>";

/* Bezeichnung */
	ausgib += "<td><span class=art-text><span class=art-kurztext>";
      ausgib += wagerl[cnt][2] + "</span>" + ctxt_art_bes_sep + "<span class=art-langtext>";
      ausgib += wagerl[cnt][3] + ctxt_zustand_anf + wagerl[cnt][5] + ctxt_zustand_end + "</span></td>";

/* Anzahl eingabefaehig */
	ausgib += "<td><input class=art-preis type='text' name='Anzahl_" + cnt + "' size='3' maxlength='3'";
	ausgib += " onkeyup=\"this.value=top.update_menge_wagerl("+cnt+",this.value);\"";
	ausgib += " value='" + wagerl[cnt][4] + "'></td>";

/* Stueckpreis */
	ausgib += "<td><nobr><span class=art-preis>";
      ausgib += cust_waehrung1_name;
      ausgib += "<input class=art-preis disabled type='text' name='pos_preis_w1" + cnt + "' size=" + cust_preisfelder_breite+" value='" + format_preis( wagerl[cnt][1] * cust_waehrung1_kurs ) + "'>";
      if (cust_waehrung2_name) {
        ausgib += "<br>";
        ausgib += cust_waehrung2_name;
        ausgib += "<input class=art-preis disabled type='text' name='pos_preis_w2" + cnt + "' size=" + cust_preisfelder_breite+" value='" + format_preis( wagerl[cnt][1] * cust_waehrung2_kurs ) + "'>";
      }
	ausgib += "</span></nobr></td>";
/* Das liebe Geld */
	ausgib += "<td><nobr><span class=art-preis>";
      ausgib += cust_waehrung1_name;
      ausgib += "<input class=art-preis disabled type='text' name='pos_summe_w1" + cnt + "' size=" + cust_preisfelder_breite+" value='*FEHLER*'>";
      if (cust_waehrung2_name) {
        ausgib += "<br>";
        ausgib += cust_waehrung2_name;
        ausgib += "<input class=art-preis disabled type='text' name='pos_summe_w2" + cnt + "' size=" + cust_preisfelder_breite+" value='*FEHLER*'>";
      }
	ausgib += "</span></nobr></td></tr>";
    }

/* Summenzeile */
  ausgib += "</tbody><tfoot><tr class=summe>";
  ausgib += "<td colspan=5>Preis der "+wagerl_belegt+" Positionen in Summe:</td>";
  ausgib += "<td><span class=art-preis>";
  ausgib += cust_waehrung1_name;
  ausgib += "<input class=art-preis disabled name='ges_summe_w1' size=" + cust_preisfelder_breite + " value='*FEHLER*'>";
  if (cust_waehrung2_name) {
    ausgib += "<br>";
    ausgib += cust_waehrung2_name;
    ausgib += "<input class=art-preis disabled name='ges_summe_w2' size=" + cust_preisfelder_breite + " value='*FEHLER*'>";
  }
  ausgib += "</span></td></tr></tfoot></table><br>";

/* ab hier gehts um den kunden */
  ausgib += "<table class=kunde>";
//  if (kunde.length==0)
    cookie_kunde("r");
  var detail = 0;

  ausgib += "<tr><td>Zahlung Ausland:</td>";
  ausgib += "<td><input name='Zahlung' type='radio' CHECKED value='Vorauskasse'>&nbsp;Vorauskasse</td></tr>";

  ausgib += "<tr><td>Zahlung &Ouml;sterreich:</td>";
  ausgib += "<td><input name='Zahlung' type='radio' value='Nachnahme'>&nbsp;Nachnahmesendung (zzgl. Nachnahmegeb&uuml;hr)";
  ausgib += "<br><input name='Zahlung' type='radio' value='Erlagschein'>&nbsp;Erlagschein (Betrag sofort nach Erhalt der Ware zu bezahlen)</td></tr>";

  ausgib += "<tr><td>bei Übersee-Sendung:</td>";
  ausgib += "<td><input name='Uebersee_Seeweg' type='checkbox' value='ja'>&nbsp;Seeweg";
  ausgib += "<br><input name='Uebersee_Luftweg' type='checkbox' value='ja'>&nbsp;Luftweg</td></tr>";

  ausgib += "<tr><td>Name:</td>";
  ausgib += "<td><input name='Kunde_Name' type='text' size=35";
  ausgib += " onchange=\"this.value=top.update_kunde("+(detail)+",this.value);\"";
  ausgib += " value='"+kunde[detail++]+"'>";
  ausgib += "</td></tr>";

  ausgib += "<tr><td>Strasse, Nr.:</td>";
  ausgib += "<td><input name='Kunde_Strasse' type='text' size=35";
  ausgib += " onchange=\"this.value=top.update_kunde("+(detail)+",this.value);\"";
  ausgib += " value='"+kunde[detail++]+"'>";
  ausgib += "</td></tr>";

  ausgib += "<tr><td>PLZ/Ort:</td>";
  ausgib += "<td><input name='Kunde_PLZ' type='text' size=5";
  ausgib += " onchange=\"this.value=top.update_kunde("+(detail)+",this.value);\"";
  ausgib += " value='"+kunde[detail++]+"'>";
  ausgib += " <input name='Kunde_Ort' type='text' size=25";
  ausgib += " onblur=\"this.value=top.update_kunde("+(detail)+",this.value);\"";
  ausgib += " value='"+kunde[detail++]+"'>";
  ausgib += "</td></tr>";

  ausgib += "<tr><td>Land:</td>";
  ausgib += "<td><input name='Kunde_Land' type='text' size=15";
  ausgib += " onchange=\"this.value=top.update_kunde("+(detail)+",this.value);\"";
  ausgib += " value='"+kunde[detail++]+"'>";
  ausgib += "</td></tr>";

  ausgib += "<tr><td>e-mail:</td>";
  ausgib += "<td><input name='Kunde_Strasse' type='text' size=35";
  ausgib += " onchange=\"this.value=top.update_kunde("+(detail)+",this.value);\"";
  ausgib += " value='"+kunde[detail++]+"'>";
  ausgib += "</td></tr>";

  ausgib += "<tr><td>Kommentar:</td>";
  ausgib += "<td><textarea name='Kunde_Kommentar' rows=8 cols=30";
  ausgib += " onchange=\"this.value=top.update_kunde("+(detail)+",this.value);\"";
  ausgib += ">";
  ausgib += kunde[detail++];
  ausgib += "</textarea></td></tr>"

  ausgib += "<td></td><td><input align=center type=\"button\" onClick='top.send_wagerl();' value=\"Bestellung als e-mail abschicken\">";
	ausgib += "<br><a href='javascript:window.print();'>oder Bestellschein ausdrucken</a>"
  ausgib += "</td></table>";
  
/* form abschließen und raus damit... */
  ausgib += "</form>";
  top.shop.document.writeln(ausgib);
  
/* so jezz alle summen updaten*/
  update_summen();
}

/******************************************************************************/
function update_kunde (detail, neu) {
  if (neu==null)
    neu="";
  kunde[detail] = neu;
//  cookie_kunde("w");  
  return kunde[detail];
}

/******************************************************************************/
function update_menge_wagerl (posnr, menge) {
  menge=Math.floor(Math.abs(Text.no(menge)));
  wagerl[posnr][4]=menge;
  if ( pruef_del_wagerl_pos(posnr) > 0 )
    set_shopmode(shopmode);
  update_summen();
  return menge;
/* wagerl in cookie kopiern */
cookie_wagerl("w");
}

/******************************************************************************/
function pruef_del_wagerl_pos (posnr) {
  if ( wagerl[posnr][4] == 0 ) {
    if ( confirm('Position '+(posnr+1)+' ('+wagerl[posnr][2]+') löschen?') ) {
	  wagerl_belegt--;
      for ( cnt = posnr; cnt < ( wagerl_belegt ); cnt++ ) {
	    for ( detail = 0; detail <= 4; detail++ ) 
          wagerl[cnt][detail] = wagerl[(cnt+1)][detail];
	  }
	  wagerl[wagerl_belegt][0] = "";
/* wagerl in cookie kopiern */
      cookie_wagerl("w");
	  return 1;
    }
	else return -1; 
  }
  else return 0;
}

/******************************************************************************/
function update_summen () {
  var elemname = "";
  var ges_summe = 0;
  var pos_summe = 0;
  var posnr = 0;

  for ( elemnr=0; elemnr < top.shop.document.wagerl.elements.length; elemnr++ ) {
    elemname = top.shop.document.wagerl.elements[elemnr].name;
/*    alert("form "+formnr+" - name "+top.shop.document.wagerl.name+" - elem "+elemnr+" - name "+elemname); */
    if ( elemname.substring(0,9) == "pos_summe") {
/*      alert("pos update"); */
/*      alert("das feld hat whrg ["+elemname.substring(10,12)+"]"); */
      posnr = Text.no(elemname.substring(12,20));
      pos_summe = rechne_pos_summe(posnr);
/*      alert(pos_summe+" - "+ges_summe); */
if ( elemname.substring(10,12) == "w1" ) {
      ges_summe += pos_summe;
      top.shop.document.wagerl.elements[elemnr].value = Text.pad( cust_preisfelder_breite, format_preis( pos_summe * cust_waehrung1_kurs ), " " );
} else
      top.shop.document.wagerl.elements[elemnr].value = Text.pad( cust_preisfelder_breite, format_preis( pos_summe * cust_waehrung2_kurs ), " " );
    }
  }
  top.shop.document.wagerl.ges_summe_w1.value = Text.pad( cust_preisfelder_breite, format_preis( ges_summe * cust_waehrung1_kurs ), " " );
  if (cust_waehrung2_name) {
    top.shop.document.wagerl.ges_summe_w2.value = Text.pad( cust_preisfelder_breite, format_preis( ges_summe * cust_waehrung2_kurs ), " " );
  }
  top.shop.document.wagerl.Gesamtsumme.value = format_preis(ges_summe)+" "+cust_waehrung_xls ; 
}

/******************************************************************************/
function rechne_pos_summe(posnr) {
  return Text.no( wagerl[posnr][1] * wagerl[posnr][4] );
}

/******************************************************************************/
function send_wagerl () {
var oki = true;

/* keine pos mit menge 0 bestellen */
for ( cnt = 0; cnt < wagerl_belegt; cnt++ ) {
  if ( wagerl[cnt][4] <= 0 ) {
    alert ("Keine Bestellung mit Menge 0.\nBitte Position "+(cnt+1)+" bearbeiten.");
	return false;
  }
} 

/* Pflichtfelder */
if (top.shop.document.wagerl.Kunde_Name.value=="")
  { alert("Pflichtfeld 'Name' nicht befüllt."); return false; }
if (top.shop.document.wagerl.Kunde_Strasse.value=="")
  { alert("Pflichtfeld 'Strasse' nicht befüllt."); return false; }
if (top.shop.document.wagerl.Kunde_PLZ.value=="")
  { alert("Pflichtfeld 'PLZ' nicht befüllt."); return false; }
if (top.shop.document.wagerl.Kunde_Ort.value=="")
  { alert("Pflichtfeld 'Ort' nicht befüllt."); return false; }
if (top.shop.document.wagerl.Kunde_Land.value=="")
  { alert("Pflichtfeld 'Land' nicht befüllt."); return false; }
  
/* Alles oki :) */
if (oki)
  top.shop.document.wagerl.submit();
}

/******************************************************************************/
function ausgib_mini_menu () {
  var erster_punkt = 1;
  var ausgib = "";

/* fangen wir an */
  ausgib += "<span class=mini-menu>"+ctxt_mini_menu_anf;
/* ausgib += "[debug: shopmode="+shopmode+"] "; //debug*/

/* zeige Hilfe (immer) */
  if (1) {
    if (!erster_punkt) ausgib += cust_mini_menu_separator; erster_punkt = 0;
    ausgib += "<a href=\"hilfe.htm\" target=\"_blank\"";
    ausgib += " onMouseOver=\"window.status='" + ctxt_mini_menu_hilfe_ws + "'; return true;\"";
    ausgib += " onMouseOut=\"window.status=''; return true;\"'>" + ctxt_mini_menu_hilfe + "</a>";
  }

/* springe zu obersten Menu-Level (in UnterKapitel, nicht art-liste) */
  if ( (shopmode=="agr") && ( akt_agr!=such_agr_eltern(akt_agr) ) ) {
    if (!erster_punkt) ausgib += cust_mini_menu_separator; erster_punkt = 0;
    ausgib += " <a href=\"shop.htm\" onclick=\"top.opengroup('0');\"";
    ausgib += " onMouseOver=\"window.status='" + ctxt_mini_menu_tree_top_ws + "'; return true;\"";
    ausgib += " onMouseOut=\"window.status=''; return true;\"'>" + ctxt_mini_menu_tree_top + "</a>";
  }

/* springe zu oberen menu-level (wenns der ungleich oberster) */
  if ( (shopmode=="agr") && ( such_agr_eltern(akt_agr) ) ) {
    if (!erster_punkt) ausgib += cust_mini_menu_separator; erster_punkt = 0;
    ausgib += "<a href=\"shop.htm\" onclick=\"top.opengroup('-1');\""
    ausgib += " onMouseOver=\"window.status='" + ctxt_mini_menu_tree_up_ws + "'; return true;\"";
    ausgib += " onMouseOut=\"window.status=''; return true;\"'>" + ctxt_mini_menu_tree_up + "</a>";
  }

/* springe zu passenden Katalog-level (aus der artikelliste) */
  if ( (shopmode=="art") && ( akt_agr!=0 ) ) {
    if (!erster_punkt) ausgib += cust_mini_menu_separator; erster_punkt = 0;
    ausgib += "<a href=\"shop.htm\" onclick=\"top.opengroup('-1');\"";
    ausgib += " onMouseOver=\"window.status='" + ctxt_mini_menu_tree_ws + "'; return true;\"";
    ausgib += " onMouseOut=\"window.status=''; return true;\"'>" + ctxt_mini_menu_tree + "</a>";
  }

/* springe zum Katalog zurueck (aus wagerl, egal ob zu menue oder inhalt) */
  if (shopmode=="wagerl") {
    if (!erster_punkt) ausgib += cust_mini_menu_separator; erster_punkt = 0;
    ausgib += "<a href=\"shop.htm\" onclick=\"top.opengroup(top.akt_agr);\"";
    ausgib += " onMouseOver=\"window.status='" + ctxt_mini_menu_kat_ws + "'; return true;\"";
    ausgib += " onMouseOut=\"window.status=''; return true;\"'>" + ctxt_mini_menu_kat + "</a>";
  }

/* springe zu wagerl (wenn nicht dort) */
  if (shopmode!="wagerl") {
    if (!erster_punkt) ausgib += cust_mini_menu_separator; erster_punkt = 0;
    ausgib += "<a href=\"shop.htm\" onclick=\"top.set_shopmode('wagerl');\"";
    ausgib += " onMouseOver=\"window.status='" + ctxt_mini_menu_wagerl_ws + "'; return true;\"";
    ausgib += " onMouseOut=\"window.status=''; return true;\"'>" + ctxt_mini_menu_wagerl + "</a>";
  }

/* und hier machen wir schluss */
  ausgib += "</span>";
  top.shop.document.writeln(ausgib);
}
//-->