[bknr-cvs] r1995 - in branches/xml-class-rework/projects/bos: . payment-website/infosystem payment-website/infosystem/de payment-website/infosystem/en worldpay-test
Author: hhubner Date: 2006-10-15 04:58:32 -0400 (Sun, 15 Oct 2006) New Revision: 1995 Modified: branches/xml-class-rework/projects/bos/build.lisp branches/xml-class-rework/projects/bos/payment-website/infosystem/de/satellitenkarte.htm branches/xml-class-rework/projects/bos/payment-website/infosystem/en/satellitenkarte.htm branches/xml-class-rework/projects/bos/payment-website/infosystem/javascript.js branches/xml-class-rework/projects/bos/worldpay-test/contract-image-handler.lisp branches/xml-class-rework/projects/bos/worldpay-test/reports-xml-handler.lisp Log: Contract clipping fixed for IE, not yet finished though. Modified: branches/xml-class-rework/projects/bos/build.lisp =================================================================== --- branches/xml-class-rework/projects/bos/build.lisp 2006-10-14 13:23:45 UTC (rev 1994) +++ branches/xml-class-rework/projects/bos/build.lisp 2006-10-15 08:58:32 UTC (rev 1995) @@ -51,6 +51,7 @@ (defun init () (fix-dpd) + (asdf:oos 'asdf:load-op :bos.web) (format t "BOS Online-System~%") (when *cert-daemon* (format t "; starting certificate generation daemon, slime and webserver not started~%") Modified: branches/xml-class-rework/projects/bos/payment-website/infosystem/de/satellitenkarte.htm =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/infosystem/de/satellitenkarte.htm 2006-10-14 13:23:45 UTC (rev 1994) +++ branches/xml-class-rework/projects/bos/payment-website/infosystem/de/satellitenkarte.htm 2006-10-15 08:58:32 UTC (rev 1995) @@ -5,6 +5,7 @@ <head> <title>Satellitenkarte - Samboja Lestari</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" charset="utf-8" /> + <meta http-equiv="imagetoolbar" content="no"/> <link href="../satellitenkarte_style.css" rel="stylesheet"/> <script language="JavaScript" type="text/JavaScript" src="messages.js"></script> @@ -313,6 +314,9 @@ <div id="selected_contract" style="position:absolute; z-index:10; visibility: inherit;"> <img id="selected_contract_img" src="../bilder/spacer.gif" width="1" height="1"/> </div> + <div id="own_contract" style="position:absolute; z-index:10; visibility: inherit;"> + <img id="own_contract_img" src="../bilder/spacer.gif" width="1" height="1"/> + </div> <div id="LayersMenu" class="KarteRahmen" style="position: absolute; bottom: 31px; right: 1px; z-index: 15; visibility: inherit;"> <table width="90" border="0" cellspacing="0" cellpadding="0"> <tr> @@ -401,6 +405,12 @@ "verkaufte" m² </div> <div id="qmAusschnitt" style="position:absolute; width:200px; height:115px; z-index:7; left: 172px; top: 512px; visibility: inherit;"> + <div id="lupe_selected_contract" style="position:absolute; z-index:10; visibility: inherit;"> + <img id="lupe_selected_contract_img" src="../bilder/spacer.gif" width="1" height="1"/> + </div> + <div id="lupe_own_contract" style="position:absolute; z-index:10; visibility: inherit;"> + <img id="lupe_own_contract_img" src="../bilder/spacer.gif" width="1" height="1"/> + </div> <table width="1800" height="1800" border="0" cellpadding="0" cellspacing="0"> <tr> <td><img name="qmlupe11" width="450" height="450" id="qmlupe11"/></td> Modified: branches/xml-class-rework/projects/bos/payment-website/infosystem/en/satellitenkarte.htm =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/infosystem/en/satellitenkarte.htm 2006-10-14 13:23:45 UTC (rev 1994) +++ branches/xml-class-rework/projects/bos/payment-website/infosystem/en/satellitenkarte.htm 2006-10-15 08:58:32 UTC (rev 1995) @@ -5,6 +5,7 @@ <head> <title>Satellite View - Samboja Lestari</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" charset="utf-8" /> + <meta http-equiv="imagetoolbar" content="no"/> <link href="../satellitenkarte_style.css" rel="stylesheet"/> <script language="JavaScript" type="text/JavaScript" src="messages.js"></script> @@ -304,6 +305,12 @@ <div id="qmDetail" style="position:absolute; width:1px; height:1; z-index:4; left: 0px; top: 0px; visibility: hidden;"> <div id="qmDetailKarte" style="position:absolute; width:360px; height:390px; z-index:1; left: 169px; top: 100px; visibility: inherit;" class="KarteRahmen"> <div id="qmLupe" style="position:absolute; width:36px; height:24px; z-index:11; visibility: inherit;"><img src="../bilder/lupe.gif" width="36" height="24"/></div> + <div id="selected_contract" style="position:absolute; z-index:10; visibility: inherit;"> + <img id="selected_contract_img" src="../bilder/spacer.gif" width="1" height="1"/> + </div> + <div id="own_contract" style="position:absolute; z-index:10; visibility: inherit;"> + <img id="own_contract_img" src="../bilder/spacer.gif" width="1" height="1"/> + </div> <div id="LayersMenu" class="KarteRahmen" style="position: absolute; bottom: 31px; right: 1px; z-index: 15; visibility: inherit;"> <table width="90" border="0" cellspacing="0" cellpadding="0"> <tr> @@ -392,6 +399,12 @@ "sold" m² </div> <div id="qmAusschnitt" style="position:absolute; width:200px; height:115px; z-index:7; left: 172px; top: 512px; visibility: inherit;"> + <div id="lupe_selected_contract" style="position:absolute; z-index:10; visibility: inherit;"> + <img id="lupe_selected_contract_img" src="../bilder/spacer.gif" width="1" height="1"/> + </div> + <div id="lupe_own_contract" style="position:absolute; z-index:10; visibility: inherit;"> + <img id="lupe_own_contract_img" src="../bilder/spacer.gif" width="1" height="1"/> + </div> <table width="1800" height="1800" border="0" cellpadding="0" cellspacing="0"> <tr> <td><img name="qmlupe11" width="450" height="450" id="qmlupe11"/></td> Modified: branches/xml-class-rework/projects/bos/payment-website/infosystem/javascript.js =================================================================== --- branches/xml-class-rework/projects/bos/payment-website/infosystem/javascript.js 2006-10-14 13:23:45 UTC (rev 1994) +++ branches/xml-class-rework/projects/bos/payment-website/infosystem/javascript.js 2006-10-15 08:58:32 UTC (rev 1995) @@ -1,11 +1,14 @@ // JavaScript Document -*- Java -*- +// Originally written by Matthias, Systemtakt neue Medien GbR +// This program needs a lot of refactoring. + // XXX bei klick auf übersichtskarte bleiben die links der poi-thumbnails aktiv // XXX beim schliessen des opener-fensters funktioniert "m2 kaufen" nicht mehr // Debugger anzeigen? -var show_debugger = false; +var show_debugger = true; // var http_pfad = "http:// createrainforest.org:8080"; var http_pfad = ""; @@ -77,7 +80,7 @@ } } -function schreibe_debugger(text) { +function dbg(text) { // Schriebt einen Text in die Debugger-Ebene debugger_text = debugger_text + text; document.getElementById("debugger").innerHTML = debugger_text; @@ -132,7 +135,7 @@ close(); } - schreibe_debugger("<br/> init() <br/>"); + dbg("<br/> init() <br/>"); // initialisierung startet die Ladefuntkionen // parst den URL-String und trennt logout, sponsorid und passwort // Debugger anzeigen oder ausblenden @@ -153,7 +156,7 @@ timer = 0; - schreibe_debugger("<br/> -> lade POI"); + dbg("<br/> -> lade POI"); poicomplete = false; window.frames['data'].window.location.replace(http_pfad + "/poi-javascript"); poi_warten(); // starten der Wartenfunktion @@ -179,7 +182,7 @@ // poicomplet ist dei letzte Variable im Script daher wenn sie gesetzt ist ist das Ende erreicht if (poicomplete) { // wenn der Datensatz komplett geladen ist wird der timer auf Null gesetzt und je nachdem ob sich eingeloggt wurde oder nicht die loginueberpruefung oder die Punkterzeugung gestartet - schreibe_debugger("<br/> -> <b>POI geladen! login: " + login + "</b>"); + dbg("<br/> -> <b>POI geladen! login: " + login + "</b>"); document.getElementById("Info3Text").innerHTML = '<b>' + msg('Anzahl Sponsoren') + '</b><br />' + anzahlSponsoren + '<br /><br /><b>' + msg('Anzahl verkaufte m²') + '</b><br />' @@ -189,14 +192,16 @@ } UebersichtNavi(); qm_zusammenfassen(); + icon_versatz(); + poi_faehnchen_erzeugen(); } else { // wenn der Datensatz noch nicht komplett geladen ist wird der timer eroeht und die Funktion nochmal gestartet timer++; if (timer < 100) { - schreibe_debugger("."); + dbg("."); setTimeout("poi_warten()", 100); } else { - schreibe_debugger("<br/> -> <b>POI konnten nicht geladen werden</b>"); + dbg("<br/> -> <b>POI konnten nicht geladen werden</b>"); alert(msg('Fehler beim Laden der POI-Informationen, bitte probieren Sie es später noch einmal')); } } @@ -229,7 +234,7 @@ loginstatus = undefined; window.frames['data'].window.location.replace(url); - schreibe_debugger("<br/> -> lade Login-Status - url ist " + url + '<br/>'); + dbg("<br/> -> lade Login-Status - url ist " + url + '<br/>'); login_warten(); // Wartefunktion starten @@ -246,23 +251,23 @@ // wenn loginstatus gesetzt ist ist das Ende erreicht if (loginstatus) { - schreibe_debugger("<br/> -> <b>Login-Status geladen: " + loginstatus + "</b>"); + dbg("<br/> -> <b>Login-Status geladen: " + loginstatus + "</b>"); // wenn loginstatus gesetzt ist wir timer auf Null gesetzt // wenn lohinstatus = "login-failed" ist wird eine Fehlermeldung eingeblendet if (loginstatus == "not-logged-in") { - schreibe_debugger("<br/> -> <b>nicht eingeloggt!</b>"); + dbg("<br/> -> <b>nicht eingeloggt!</b>"); } if (loginstatus == "login-failed") { document.getElementById("Loginfehler").style.visibility = 'visible'; - schreibe_debugger("<br/> -> <b>Login fehlgeschlagen!</b>"); + dbg("<br/> -> <b>Login fehlgeschlagen!</b>"); } // wenn lohinstatus = "logged-in" ist wird das Anmeldefeld ausgelendet, das Logoutfeld eingeblendet und die Sponsorid angezeigt // danach werden die Punkte erzuegt und die Quadratmeter geladen if (loginstatus == "logged-in") { document.getElementById("Anmelden").style.visibility = "hidden"; document.getElementById("SponsorInfo").style.visibility = "visible"; - schreibe_debugger("<br/> -> <b>Login erfolgreich!</b>"); + dbg("<br/> -> <b>Login erfolgreich!</b>"); } else { document.getElementById("Anmelden").style.visibility = "visible"; document.getElementById("SponsorInfo").style.visibility = "hidden"; @@ -273,10 +278,10 @@ // wenn der Datensatz noch nicht komplett geladen ist wird der timer eroeht und die Funktion nochmal gestartet timer++; if (timer < 100) { - schreibe_debugger("."); + dbg("."); setTimeout("login_warten()", 100); } else { - schreibe_debugger("<br/> -> <b>Loginstatus konnten nicht geladen werden</b>"); + dbg("<br/> -> <b>Loginstatus konnten nicht geladen werden</b>"); } } return true; @@ -285,7 +290,7 @@ function ausloggen() { // Seesion loeschen -> ausloggen window.frames['data'].window.location.replace(http_pfad + "/logout"); - schreibe_debugger("<br/> -> ausloggen"); + dbg("<br/> -> ausloggen"); qm_laden(); return true; } @@ -296,12 +301,11 @@ timer = 0; profil_variable = 'profil'; - qm_variable = 'qm'; m2complete = false; window.frames['data'].window.location.replace(http_pfad + "/m2-javascript/"); - schreibe_debugger("<br/> -> lade Quadratmeter "); + dbg("<br/> -> lade Quadratmeter "); qm_warten(); // Wartefunktion starten return true; } @@ -310,29 +314,26 @@ // Wartefunktion, da das Laden etwas traege ist wartet dieses Script bis derf Datensatz komplatt geladen ist // m2complete ist die letzte Variable im Script daher wenn sie gesetzt ist ist das Ende erreicht if (m2complete) { - // wenn m2complete gelden ist wird qm_erzeugen() gestartet und der timer auf Null gesetzt - schreibe_debugger("<br/> -> <b>Quadratmeter geladen!</b>"); + dbg("<br/> -> <b>Quadratmeter geladen!</b>"); poi_laden(); } else { // wenn der Datensatz noch nicht komplett geladen ist wird der timer eroeht und die Funktion nochmal gestartet timer++; if (timer < 100) { - schreibe_debugger("."); + dbg("."); setTimeout("qm_warten()", 100); } else { - schreibe_debugger("<br/> -> <b>qm konnten nicht geladen werden</b>"); + dbg("<br/> -> <b>qm konnten nicht geladen werden</b>"); } } return true; } var profil_variable; -var qm_variable; -function qm_fertig(_profil, _qms) { +function qm_fertig(_profil) { if (_profil) { eval(profil_variable + " = _profil;"); - eval(qm_variable + " = _qms;"); } m2complete = true; } @@ -344,19 +345,16 @@ // der Datensatz wird vorher auf Nullwerte gesetzt damit fals keine Daten in der URL enthalten sind der Quadratmeter als unverkauft angezeigt wird m2complete = false; timer=0; - n_profil = []; - n_profil['name'] = msg("noch nicht verkauft"); - n_profil['country'] = ""; - n_profil['anzahl'] = 0; - n_profil['datum'] = ""; - n_profil['nachricht'] = ""; + n_profil = { + name: msg("noch nicht verkauft") + }; profil_variable = 'n_profil'; m2complete = false; window.frames['data'].window.location.replace(http_pfad + "/m2-javascript/" + fremd_x + "/" + fremd_y); n_qm_warten(); // Wartefunktion starten - schreibe_debugger("<br/> -> lade Nachbar-Quadratmeter (" + fremd_x + "/" + fremd_y + ")"); + dbg("<br/> -> lade Nachbar-Quadratmeter (" + fremd_x + "/" + fremd_y + ")"); return true; } @@ -364,9 +362,9 @@ // Wartefunktion, da das Laden etwas traege ist wartet dieses Script bis derf Datensatz komplatt geladen ist // m2complete ist die letzte Variable im Script daher wenn sie gesetzt ist ist das Ende erreicht if (m2complete) { - // timer wird auf Nullgesetzt und n_qm_erzeugen wird gestartet + // timer wird auf Nullgesetzt und display_selected_contract wird gestartet timer = 0; - schreibe_debugger("<br/> -> <b>Nachbar-Quadratmeter geladen!</b>"); + dbg("<br/> -> <b>Nachbar-Quadratmeter geladen!</b>"); // text fuer das Nachbarprofil wird zusammengesetzt if (n_profil['name'] == msg("noch nicht verkauft")) { var text = '<table width="155" border="0" cellspacing="0" cellpadding="0"><tr><td colspan="2" class="PoiNavigation">' @@ -385,7 +383,7 @@ + '<tr> <td width="60" class="PoiNavigation">' + msg('gesponsort') + ':</td><td class="PoiNavigation">' + n_profil['anzahl'] + ' m²</td></tr><tr> <td width="60" class="PoiNavigation">' - // + msg('seit') + ':</td><td class="PoiNavigation">' + 'XXX FIXME!' // n_qm[1]['datum'] + + msg('seit') + ':</td><td class="PoiNavigation">' + n_profil.contracts[0].date + '</td></tr><tr> <td colspan="2" class="PoiNavigation"><img src="/infosystem/bilder/spacer.gif" width="1" height="20"/></td></tr>' + '<tr> <td colspan="2" class="PoiNavigation">' + n_profil['nachricht'] @@ -393,46 +391,93 @@ } // Inhalt der Ueberschrift und des Infotextes werden gesetzt document.getElementById("qmLaden").style.visibility = "hidden"; - if (true) { // XXX FIXME! + if (n_profil.contracts) { document.getElementById("Ueberschrift").innerHTML = msg("Verkaufte m²"); } else { document.getElementById("Ueberschrift").innerHTML = msg("zu verkaufen!"); } document.getElementById("qmInfoText").innerHTML = text; - n_qm_erzeugen(); + display_selected_contract(); } else { // wenn der Datensatz noch nicht komplett geladen ist wird der timer eroeht und die Funktion nochmal gestartet timer++; if (timer < 100) { setTimeout("n_qm_warten()", 100); } else { - document.getElementById("qmLaden").style.visibility = "hidden"; schreibe_debugger("<br/> -> <b>Nachbar-Quadratmeter konnten nicht geladen werden</b>"); + document.getElementById("qmLaden").style.visibility = "hidden"; dbg("<br/> -> <b>Nachbar-Quadratmeter konnten nicht geladen werden</b>"); } } return true; } -function n_qm_erzeugen() { - // Erzeugen der Nachbarquadratmeter - var selected_contract_img = document.getElementById('selected_contract_img'); +function load_contract_image(contract, image, factor, color) +{ + var container = image.parentNode; + + if (!color) { + color = 'ffff00'; + } + + container.style.visibility = 'hidden'; + image.onload = function () { + this.parentNode.style.visibility = 'inherit'; + } + image.src = '/contract-image/' + contract.id + '/' + color; + image.width = contract.width * factor; + image.height = contract.height * factor; + + // falls der Vertrag aus dem angezeigten Bereich herausragt, wird das bild entsprechend geclipped. + // XXX fixme das ist noch nicht "ganz" fertig hier *hüstel* + if ((contract.left + contract.width - x_anf) > 360) { + container.style.clip + = 'rect(0px ' + + (contract.width - (contract.left + contract.width - x_anf - 360)) * factor + 'px ' + + (contract.height - (contract.top + contract.height - y_anf - 360)) * factor + 'px ' + + '0px)'; + } else { + container.style.clip = 'rect(auto auto auto auto)'; + } + + container.style.left = (contract.left - x_anf) * factor + 'px'; + container.style.top = (contract.top - y_anf) * factor + 'px'; + +} + +function display_selected_contract() +{ + // Anzeigen der ausgewählten Nachbarquadratmeter + if (n_profil.contracts) { var contract = n_profil.contracts[0]; - selected_contract_img.src = '/contract-image/' + contract.id; - selected_contract_img.width = contract.width; - selected_contract_img.height = contract.height; - - document.getElementById('selected_contract').style.left = (contract.left - x_anf) + 'px'; - document.getElementById('selected_contract').style.top = (contract.top - y_anf) + 'px'; + load_contract_image(contract, + document.getElementById('selected_contract_img'), + 1); + load_contract_image(contract, + document.getElementById('lupe_selected_contract_img'), + 5); } else { - selected_contract_img.src = '../bilder/spacer.gif'; + document.getElementById('selected_contract_img').src = '../bilder/spacer.gif'; + document.getElementById('lupe_selected_contract_img').src = '../bilder/spacer.gif'; } } +function display_own_sqm() +{ + var contract = profil.contracts[0]; + var img = document.getElementById('own_contract_img'); + var enlarged_image = document.getElementById('lupe_own_contract_img'); + + load_contract_image(contract, img, 1, "ff0000"); + load_contract_image(contract, enlarged_image, 5, "ff0000"); +} + function qm_zusammenfassen() { // zusammenfassen mehererer Quadratmeterf�hnchen zu einem F�hnchen. - // es wird gepr�ft, ob sich auf der Detailkarte des qm noch mehr qm azeigen lassen dadurch wird die Darstellung der F�hnchen vereinfacht + // es wird gepr�ft, ob sich auf der Detailkarte des qm noch mehr qm anzeigen lassen dadurch wird die Darstellung der F�hnchen vereinfacht + return; + var i=1; while (qm[i]) { var qmV = qm[i]; @@ -471,7 +516,6 @@ } i++; } - icon_versatz(); return true; } @@ -532,20 +576,14 @@ index++; i++; } - var i=1; - while (qm[i]) { - if (qm[i]['status'] == "mitte") { - var qmV = qm[i]; - var uebV = uebersicht_icons[index]; - uebersicht_icons[index] = new Array; - uebersicht_icons[index]['x'] = qmV['x']; - uebersicht_icons[index]['y'] = qmV['y']; - uebersicht_icons[index]['icon'] = "qm"; - uebersicht_icons[index]['name'] = msg("meine m²"); - uebersicht_icons[index]['id'] = i; - } - index++; - i++; + if (profil.contracts) { + var contract = profil.contracts[0]; + uebersicht_icons[index++] = { + x: contract.left, + y: contract.top, + icon: 'qm', + name: msg("meine m²") + }; } var i=1; @@ -556,7 +594,7 @@ var vergleichV_x = uebersicht_icons[j]['x'] + 240; var vergleichV_y = uebersicht_icons[j]['y'] + 240; versatz = kollisonsabfrage(uebV_x + 240, uebV_y + 240, vergleichV_x, vergleichV_y); - // if (versatz[0]) {schreibe_debugger("<br/> -> POI[" + i + "] Richtungsaenderungvorschlag: " + versatz[0]);} + // if (versatz[0]) {dbg("<br/> -> POI[" + i + "] Richtungsaenderungvorschlag: " + versatz[0]);} var test = new Array; test[0] = versatz[0]; var versatz_index = versatz[0] + 1; @@ -567,7 +605,7 @@ versatz_index--; if (versatz_index < 1) {versatz_index = 4;} k++; - // schreibe_debugger("<br/> -> Richtungsaenderungstest bei " + versatz_index + " Fehler: " + richtungsfehler); + // dbg("<br/> -> Richtungsaenderungstest bei " + versatz_index + " Fehler: " + richtungsfehler); if (versatz_index == 1) { richtungsfehler = false; @@ -578,7 +616,7 @@ test = kollisonsabfrage(((uebV_x + 240) + versatz[versatz_index]), (uebV_y + 240) , testV_x, testV_y); if (test[0] != 0) { richtungsfehler = true; - // schreibe_debugger("<br/> -> Kollision mit " + l); + // dbg("<br/> -> Kollision mit " + l); } } } @@ -593,7 +631,7 @@ test = kollisonsabfrage((uebV_x + 240), ((uebV_y + 240) + versatz[versatz_index]), testV_x, testV_y); if (test[0] != 0) { richtungsfehler = true; - // schreibe_debugger("<br/> -> Kollision mit " + l); + // dbg("<br/> -> Kollision mit " + l); } } } @@ -608,7 +646,7 @@ test = kollisonsabfrage(((uebV_x + 240) + versatz[versatz_index]), (uebV_y + 240) , testV_x, testV_y); if (test[0] != 0) { richtungsfehler = true; - // schreibe_debugger("<br/> -> Kollision mit " + l); + // dbg("<br/> -> Kollision mit " + l); } } } @@ -623,7 +661,7 @@ test = kollisonsabfrage((uebV_x + 240), ((uebV_y + 240) + versatz[versatz_index]), testV_x, testV_y); if (test[0] != 0) { richtungsfehler = true; - // schreibe_debugger("<br/> -> Kollision mit " + l); + // dbg("<br/> -> Kollision mit " + l); } } } @@ -636,7 +674,7 @@ if (versatz_index == 2) {uebersicht_icons[i]['y'] = uebersicht_icons[i]['y'] + versatz[versatz_index];} if (versatz_index == 3) {uebersicht_icons[i]['x'] = uebersicht_icons[i]['x'] + versatz[versatz_index];} if (versatz_index == 4) {uebersicht_icons[i]['y'] = uebersicht_icons[i]['y'] + versatz[versatz_index];} - // schreibe_debugger("<br/> -> versetze POI[" + i + "] durch POI[" + j + "] nach " + versatz_index + " um " + versatz[versatz_index] + "<br/>"); + // dbg("<br/> -> versetze POI[" + i + "] durch POI[" + j + "] nach " + versatz_index + " um " + versatz[versatz_index] + "<br/>"); uebV_x = uebersicht_icons[i]['x']; uebV_y = uebersicht_icons[i]['y']; } @@ -644,11 +682,9 @@ } i++; } - - pkt_erzeugen(); } -function pkt_erzeugen() { +function poi_faehnchen_erzeugen() { // Erzeugen der Faehnchen fuer die POI, der array wird durchlaufen und die entsprechenden Informationen in Ebenen dargestellt var i = 1; while (uebersicht_icons[i]) { @@ -660,8 +696,10 @@ var x = parseInt(Math.round(uebersicht_icons[i]['x'] / 30) + 170 - 8); var y = parseInt(Math.round(uebersicht_icons[i]['y'] / 30) + 101 - 8); - - if (y > 360 + 99 - 13) (y = 360 + 99 -13); + // "aha!" + if (y > 360 + 99 - 13) { + y = 360 + 99 - 13; + } // definieren der Styles neueebene.style.position="absolute"; @@ -674,24 +712,24 @@ neueebene.align = "left"; var faehnchentext = msg(uebersicht_icons[i]['name']); - var index = uebersicht_icons[i]['id']; if (uebersicht_icons[i]['icon'] == "sale") { + var index = uebersicht_icons[i]['id']; neueebene.innerHTML = '<a href="#" onClick="qmDetail_anzeigen(' + poi[index]['x'] + ', ' + poi[index]['y'] + ', 0);" class="FaehnchenLink" onMouseOver="faehnchen_einblenden(' + (x + 17) + ', ' + y + ', "' + faehnchentext + '")" onMouseOut="faehnchen_ausblenden();"><img src="/images/' + uebersicht_icons[i]['icon'] + '.gif" border="0"/></a>'; } else if (uebersicht_icons[i]['icon'] == "qm") { - neueebene.innerHTML = '<a href="#" onClick="qmDetail_anzeigen(' + qm[index]['x'] + ', ' + qm[index]['y'] + ',' + index + ');" onMouseOver="faehnchen_einblenden(' + (x + 17) + ', ' + y + ', "' + faehnchentext + '")" onMouseOut="faehnchen_ausblenden();"><img src="/images/qm.gif" border="0"/></a>'; + neueebene.innerHTML = '<a href="#" onClick="qmDetail_anzeigen(' + profil.contracts[0].left + ', ' + profil.contracts[0].top + ', 0);" onMouseOver="faehnchen_einblenden(' + (x + 17) + ', ' + y + ', "' + faehnchentext + '")" onMouseOut="faehnchen_ausblenden();"><img src="/images/qm.gif" border="0"/></a>'; } else { neueebene.innerHTML = '<a href="#" onClick="PoiDetail_anzeigen(' + uebersicht_icons[i]['id'] + ');" class="FaehnchenLink" onMouseOver="faehnchen_einblenden(' + (x + 17) + ', ' + y + ', "' + faehnchentext + '")" onMouseOut="faehnchen_ausblenden();"><img src="/images/' + uebersicht_icons[i]['icon'] + '.gif" border="0" /></a>'; } i++; } - schreibe_debugger("<br/> -> <b>" + (i-1) + " Faehnchen erzeugt</b>"); + dbg("<br/> -> <b>" + (i-1) + " Faehnchen erzeugt</b>"); return true; } function poi_pos_setzen(objekt, i) { // qm setzen - schreibe_debugger("<br> -> Position gestezt"); + dbg("<br> -> Position gestezt"); var x_obj = parseInt(Math.floor(objekt['x'] - x_anf)); var y_obj = parseInt(Math.floor(objekt['y'] - y_anf)); @@ -710,7 +748,7 @@ function qm_pos_setzen(objekt, i) { // qm setzen - schreibe_debugger("<br> -> Position gestezt"); + dbg("<br> -> Position gestezt"); var x_obj = parseInt(Math.floor(objekt['x'] - x_anf)); var y_obj = parseInt(Math.floor(objekt['y'] - y_anf)); @@ -778,6 +816,10 @@ // Ebenen entsprechen ein- oder ausblenden hide_poi_panorama(); hide_poi_luftbild(); + + n_profil = {}; + display_selected_contract(); + show_page("uebersicht"); document.getElementById("qmDetail").style.visibility = "hidden"; document.getElementById("PoiDetail").style.visibility = "hidden"; @@ -785,7 +827,7 @@ document.getElementById("UebersichtPosition").style.visibility = "hidden"; document.getElementById("Ueberschrift").innerHTML = start_ueberschrift; document.getElementById("Untertitel").innerHTML = ""; - schreibe_debugger("<br/> -> <b>Uebersicht anzeigen</b>"); + dbg("<br/> -> <b>Uebersicht anzeigen</b>"); return true; } @@ -896,7 +938,7 @@ x_anf = Math.max(0, Math.round((the_poi['x'] - 180) / 90) * 90); y_anf = Math.min(10440, Math.round((the_poi['y'] - 180) / 90) * 90); - schreibe_debugger("<br/> -> Kacheln laden"); + dbg("<br/> -> Kacheln laden"); // Kacheln von Server holen und dem entsprechenden Bild zuordnen for (var x = 0; x < 4; x++) { for (var y = 0; y < 4; y++) { @@ -964,7 +1006,7 @@ document.getElementById("Uebersicht").style.visibility = "hidden"; document.getElementById("PoiDetail").style.visibility = "visible"; document.getElementById("UebersichtPosition").style.visibility = "visible"; - schreibe_debugger("<br/> -> <b>POI-Detailansicht anzeigen</b>"); + dbg("<br/> -> <b>POI-Detailansicht anzeigen</b>"); return true; } @@ -986,7 +1028,7 @@ document.getElementById("PoiInfoText").innerHTML = poi[aktuelles_objekt]['imagetext'][bild - 1]; document.getElementById("Ueberschrift").innerHTML = poi[aktuelles_objekt]['imageueberschrift'][bild - 1]; document.getElementById("Untertitel").innerHTML = poi[aktuelles_objekt]['imageuntertitel'][bild - 1]; - schreibe_debugger("<br/> -> <b>POI-Foto-Detailansicht anzeigen</b>"); + dbg("<br/> -> <b>POI-Foto-Detailansicht anzeigen</b>"); return true; } @@ -1016,17 +1058,19 @@ for (var x = 0; x < 4; x++) { for (var y = 0; y < 4; y++) { - var img = eval("document.qmimg" + (x + 1) + "" + (y + 1)); - img.src = http_pfad + "/overview/" + (x_anf + (x * 90 )) + "/" + (y_anf + (y * 90 )) + "/" + active_layer_names().join("/"); + + var img = document["qmimg" + (x + 1) + "" + (y + 1)]; + img.src = http_pfad + "/overview/" + (x_anf + (x * 90)) + "/" + (y_anf + (y * 90)) + "/" + active_layer_names().join("/"); - var img = eval("document.qmlupe" + (x + 1) + "" + (y + 1)); - img.src = http_pfad + "/overview/" + (x_anf + (x * 90 )) + "/" + (y_anf + (y * 90 )) + "/" + active_layer_names().join("/"); + var img = document["qmlupe" + (x + 1) + "" + (y + 1)]; + img.src = http_pfad + "/overview/" + (x_anf + (x * 90)) + "/" + (y_anf + (y * 90)) + "/" + active_layer_names().join("/"); } } } -function qmDetail_anzeigen(x_koord, y_koord, objekt) { +function qmDetail_anzeigen(x_koord, y_koord, objekt) +{ // Funktion zum Anzeigen der "meine qm" Karte // Funktion zur Anzeige der POIs im Detail aktuelles_objekt = objekt; @@ -1035,20 +1079,21 @@ // alte Kacheln loeschen for (var x = 0; x < 4; x++) { for (var y = 0; y < 4; y++) { - var img = eval("document.img" + (x + 1) + "" + (y + 1)); + var img = document["img" + (x + 1) + "" + (y + 1)]; img.src = "/infosystem/bilder/spacer.gif"; - var img = eval("document.qmlupe" + (x + 1) + "" + (y + 1)); + var img = document["qmlupe" + (x + 1) + "" + (y + 1)]; img.src = "/infosystem/bilder/spacer.gif"; } } - // Koordinaten auf einen geraden Wert innerhalb des Rasters rechen (es sind nur Vielfache von 90 gueltig), - // Startwert der Kacheln ermitteln + // Koordinaten auf einen geraden Wert innerhalb des Rasters + // umrechnen (es sind nur Vielfache von 90 gueltig), Startwert der + // Kacheln ermitteln x_anf = Math.max(0, Math.round((x_koord - 180) / 90) * 90); y_anf = Math.min(10440, Math.round((y_koord - 180) / 90) * 90); - schreibe_debugger("<br/> -> Kacheln laden (" + x_anf + " / " + y_anf + ")"); + dbg("<br/> -> Kacheln laden (" + x_anf + " / " + y_anf + ")"); // Kacheln von Server holen und dem entsprechenden Bild zuordnen load_sqm_tiles(x_anf, y_anf); @@ -1058,14 +1103,14 @@ var loeschen = eval("document.getElementById('qm" + i + "')"); document.getElementById("qmAusschnitt").removeChild(loeschen); } - schreibe_debugger("<br/> -> " + erzeugte_zeilen + " zeilen geloescht"); + dbg("<br/> -> " + erzeugte_zeilen + " zeilen geloescht"); // qm loeschen for (var i = 1; i <= erzeugte_positionen; i++) { var loeschen = eval("document.getElementById('pos" + i + "')"); document.getElementById("qmDetailKarte").removeChild(loeschen); } - schreibe_debugger("<br/> -> " + erzeugte_positionen + " Positionen geloescht"); + dbg("<br/> -> " + erzeugte_positionen + " Positionen geloescht"); x_obj = parseInt(Math.floor(x_koord - x_anf)); y_obj = parseInt(Math.floor(y_koord - y_anf)); @@ -1087,8 +1132,8 @@ i++; } - schreibe_debugger("<br/> -> " + erzeugte_positionen + " Quadratmeterpositionen"); - schreibe_debugger("<br/> -> " + erzeugte_zeilen + " zeilen fuer Quadratmeter eingezeichnet"); + dbg("<br/> -> " + erzeugte_positionen + " Quadratmeterpositionen"); + dbg("<br/> -> " + erzeugte_zeilen + " zeilen fuer Quadratmeter eingezeichnet"); } // setzen des Positionskaestchens auf der kleinen �bersichtskarte @@ -1111,7 +1156,7 @@ + '<tr> <td width="60" class="PoiNavigation">' + msg('Land') + ':</td><td class="PoiNavigation">' + profil['country'] + '</td></tr>' + '<tr> <td colspan="2" class="PoiNavigation"><img src="/infosystem/bilder/spacer.gif" width="1" height="10"/></td></tr>' + '<tr> <td width="60" class="PoiNavigation">' + msg('gesponsort') + ':</td><td class="PoiNavigation">' + profil['anzahl'] + ' m²</td></tr>' - + '<tr> <td width="60" class="PoiNavigation">' + msg('seit') + ':</td><td class="PoiNavigation">' + qm[aktuelles_objekt]['datum'] + '</td></tr>' + + '<tr> <td width="60" class="PoiNavigation">' + msg('seit') + ':</td><td class="PoiNavigation">' + qm[aktuelles_objekt]['date'] + '</td></tr>' + '<tr> <td colspan="2" class="PoiNavigation"><img src="/infosystem/bilder/spacer.gif" width="1" height="20"/></td></tr>' + '<tr> <td colspan="2" class="PoiNavigation">' + profil['nachricht'] + '</td></tr>' + '</table>'; @@ -1151,7 +1196,11 @@ element.onmousedown = maus_gedrueckt; element.onmouseup = maus_losgelassen; - schreibe_debugger("<br/> -> <b>qm-Detailansicht anzeigen</b>"); + if (profil.contracts) { + display_own_sqm(); + } + + dbg("<br/> -> <b>qm-Detailansicht anzeigen</b>"); return true; } Modified: branches/xml-class-rework/projects/bos/worldpay-test/contract-image-handler.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/contract-image-handler.lisp 2006-10-14 13:23:45 UTC (rev 1994) +++ branches/xml-class-rework/projects/bos/worldpay-test/contract-image-handler.lisp 2006-10-15 08:58:32 UTC (rev 1995) @@ -12,19 +12,19 @@ rectangular image will have the size of the contracts' bounding box. All square meters will have yellow color, the background will be transparent." (destructuring-bind (left top width height) (contract-bounding-box contract) - (cl-gd:with-image* (width height) - (setf (cl-gd:transparent-color) (cl-gd:allocate-color 0 0 0)) - ;; We manipulate pixels in a temporary array which is copied to the GD image as - ;; a whole for performance reasons. The FFI is way too slow to manipulate individual pixels. - (let ((work-array (make-array (list width height) :element-type 'fixnum :initial-element 0)) - (yellow (cl-gd:allocate-color 255 255 0))) - (flet ((set-pixel (x y) - (decf x left) - (decf y top) - (setf (aref work-array x y) yellow))) - (dolist (m2 (contract-m2s contract)) - (set-pixel (m2-x m2) (m2-y m2)))) - (cl-gd:do-rows (y) - (cl-gd:do-pixels-in-row (x) - (setf (cl-gd:raw-pixel) (aref work-array x y))))) - (emit-image-to-browser req cl-gd:*default-image* :png)))) + (cl-gd:with-image* (width height) + (setf (cl-gd:transparent-color) (cl-gd:allocate-color 0 0 0)) + ;; We manipulate pixels in a temporary array which is copied to the GD image as + ;; a whole for performance reasons. The FFI is way too slow to manipulate individual pixels. + (let ((work-array (make-array (list width height) :element-type 'fixnum :initial-element 0)) + (color (parse-color (or (second (decoded-handler-path handler req)) "ffff00")))) + (flet ((set-pixel (x y) + (decf x left) + (decf y top) + (setf (aref work-array x y) color))) + (dolist (m2 (contract-m2s contract)) + (set-pixel (m2-x m2) (m2-y m2)))) + (cl-gd:do-rows (y) + (cl-gd:do-pixels-in-row (x) + (setf (cl-gd:raw-pixel) (aref work-array x y))))) + (emit-image-to-browser req cl-gd:*default-image* :png :cache-sticky t)))) \ No newline at end of file Modified: branches/xml-class-rework/projects/bos/worldpay-test/reports-xml-handler.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/reports-xml-handler.lisp 2006-10-14 13:23:45 UTC (rev 1994) +++ branches/xml-class-rework/projects/bos/worldpay-test/reports-xml-handler.lisp 2006-10-15 08:58:32 UTC (rev 1995) @@ -20,8 +20,8 @@ (defmethod handle ((handler reports-xml-handler) req) (with-xml-response req - (destructuring-bind (name *year* &rest arguments) (decoded-handler-path handler req) - (setf *year* (parse-integer *year*)) + (destructuring-bind (name &optional *year* &rest arguments) (decoded-handler-path handler req) + (setf *year* (and *year* (parse-integer *year*))) (let ((*contracts-to-process* (sort (remove-if (lambda (contract) (or (not (contract-paidp contract)) (and *year* @@ -37,6 +37,7 @@ (defreport all-contracts () (dolist (contract *contracts-to-process*) (with-element "contract" + (attribute "universal-time" (contract-date contract)) (attribute "date-time" (format-date-time (contract-date contract) :xml-style t)) (attribute "country" (sponsor-country (contract-sponsor contract))) (attribute "sqm-count" (length (contract-m2s contract))))))
participants (1)
-
bknr＠bknr.net