[bknr-cvs] r1967 - in branches/xml-class-rework/projects/bos: . payment-website/infosystem payment-website/static payment-website/templates/de
bknr at bknr.net
bknr at bknr.net
Sun Jul 16 17:49:03 UTC 2006
Author: hhubner
Date: 2006-07-16 13:49:02 -0400 (Sun, 16 Jul 2006)
New Revision: 1967
Modified:
branches/xml-class-rework/projects/bos/make-base-lisp.lisp
branches/xml-class-rework/projects/bos/payment-website/infosystem/javascript.js
branches/xml-class-rework/projects/bos/payment-website/static/bos.js
branches/xml-class-rework/projects/bos/payment-website/static/content_style.css
branches/xml-class-rework/projects/bos/payment-website/static/toplevel_style.css
branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_main.xml
Log:
Login panel on home page added
Modified: branches/xml-class-rework/projects/bos/make-base-lisp.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/make-base-lisp.lisp 2006-07-16 13:41:47 UTC (rev 1966)
+++ branches/xml-class-rework/projects/bos/make-base-lisp.lisp 2006-07-16 17:49:02 UTC (rev 1967)
@@ -1,8 +1,8 @@
;; create base lisp image
-(compile-file "../bknr/patches/patch-around-mop-cmucl19a.lisp")
-(load "../bknr/patches/patch-around-mop-cmucl19a.x86f")
-(load "../thirdparty/asdf/asdf.lisp")
+(compile-file "../../bknr/patches/patch-around-mop-cmucl19a.lisp")
+(load "../../bknr/patches/patch-around-mop-cmucl19a.x86f")
+(load "../../thirdparty/asdf/asdf.lisp")
(defun setup-registry ()
(format t "; setting up ASDF registry, please be patient...")
@@ -11,12 +11,12 @@
(pushnew (make-pathname :directory (pathname-directory asd-pathname))
asdf:*central-registry*
:test #'equal))
- (remove "asd" (directory #p"../**/")
+ (remove "asd" (directory #p"../../**/")
:test (complement #'equal)
:key #'pathname-type))
(format t " ~D directories found~%" (length asdf:*central-registry*)))
(setup-registry)
-(save-lisp "home:cmucl.core")
+(save-lisp "cmucl.core")
Modified: branches/xml-class-rework/projects/bos/payment-website/infosystem/javascript.js
===================================================================
--- branches/xml-class-rework/projects/bos/payment-website/infosystem/javascript.js 2006-07-16 13:41:47 UTC (rev 1966)
+++ branches/xml-class-rework/projects/bos/payment-website/infosystem/javascript.js 2006-07-16 17:49:02 UTC (rev 1967)
@@ -215,6 +215,14 @@
timer = 0;
var user = document.form0.__sponsorid.value;
var password = document.form0.__password.value;
+
+ var current_url = '' + document.location;
+
+ if (user == '' && current_url.match(/__sponsorid/)) {
+ user = current_url.replace(/.*__sponsorid=([^?]*).*/, "$1");
+ password = current_url.replace(/.*__password=([^?]*).*/, "$1");
+ }
+
var url = http_pfad + "/sponsor-login";
if (user != "") {
url += "?__sponsorid=" + user + "&__password=" + password;
Modified: branches/xml-class-rework/projects/bos/payment-website/static/bos.js
===================================================================
--- branches/xml-class-rework/projects/bos/payment-website/static/bos.js 2006-07-16 13:41:47 UTC (rev 1966)
+++ branches/xml-class-rework/projects/bos/payment-website/static/bos.js 2006-07-16 17:49:02 UTC (rev 1967)
@@ -1,4 +1,4 @@
-
+// -*- Java -*- Script
// *** extrafenster fuer impressum, kontakt etc. *** //
function window_extra(target) {
mywin=open(target,"detailwin","width=482,height=600,status=no,toolbar=no,menubar=no,resizable=yes,scrollbars=yes,left=100,top=100");
@@ -22,9 +22,18 @@
// *** extrafenster fuer satellitenkarte *** //
function window_infosys() {
var language = document.location.pathname.substr(1, 2); // XXX funktioniert nur mit 2-buchstaben-abkuerzungen von sprachen
- mywin=open("/infosystem/" + language + "/satellitenkarte.htm",
- "infowin",
- "width=740,height=500,status=no,toolbar=no,menubar=no,resizable=no,scrollbars=no,left=250,top=50");
+ var url = "/infosystem/" + language + "/satellitenkarte.htm";
+
+ var sponsorid_input = document.getElementById('sponsorid-input');
+ var password_input = document.getElementById('password-input');
+
+ if (sponsorid_input && password_input) {
+ url += "?__sponsorid=" + sponsorid_input.value + "&__password=" + password_input.value;
+ }
+
+ mywin=open(url,
+ "infowin",
+ "width=740,height=500,status=no,toolbar=no,menubar=no,resizable=no,scrollbars=no,left=250,top=50");
mywin.focus();
};
Modified: branches/xml-class-rework/projects/bos/payment-website/static/content_style.css
===================================================================
--- branches/xml-class-rework/projects/bos/payment-website/static/content_style.css 2006-07-16 13:41:47 UTC (rev 1966)
+++ branches/xml-class-rework/projects/bos/payment-website/static/content_style.css 2006-07-16 17:49:02 UTC (rev 1967)
@@ -15,7 +15,7 @@
width: 150px;
max-width: 150px;
padding-bottom: 0px;
- margin : 58px 15px 10px 15px;
+ margin : 5px 15px 10px 15px;
border-width: 1px;
border-style: solid solid solid solid;
border-color : Silver;
@@ -33,7 +33,7 @@
width: 150px;
height: 398px;
max-width: 150px;
- margin : 28px 15px 10px 15px;
+ margin : 5px 15px 10px 15px;
visibility: visible;
display: block;
font : normal normal 0.7em Verdana, Geneva, Arial, Helvetica, sans-serif;
@@ -50,9 +50,9 @@
width: 150px;
max-width: 150px;
height: 180px;
- margin : 22px 15px 10px 15px;
+ margin : 0px 15px 10px 15px;
border-width: 1px;
- border-style: solid solid none solid;
+ border-style: solid solid solid solid;
border-color : Silver;
visibility: visible;
display: block;
@@ -65,6 +65,34 @@
background-position : bottom;
}
+/* Login-Formular auf der HP */
+#textbox_left_login {
+ position: relative;
+ background-color: white;
+ z-index: 20;
+ width: 150px;
+ max-width: 150px;
+ height: 85px;
+ margin : 0px 15px 0px 15px;
+ border-width: 1px;
+ border-style: solid solid solid solid;
+ border-color : Silver;
+ visibility: visible;
+ display: block;
+ font : normal normal 0.7em Verdana, Geneva, Arial, Helvetica, sans-serif;
+ color : #333333;
+ font-weight : normal;
+ text-decoration : none;
+}
+
+.password-input {
+ width: 115px;
+}
+
+.login-button {
+ top: 5px;
+}
+
#textbox_right
{
position: relative;
Modified: branches/xml-class-rework/projects/bos/payment-website/static/toplevel_style.css
===================================================================
--- branches/xml-class-rework/projects/bos/payment-website/static/toplevel_style.css 2006-07-16 13:41:47 UTC (rev 1966)
+++ branches/xml-class-rework/projects/bos/payment-website/static/toplevel_style.css 2006-07-16 17:49:02 UTC (rev 1967)
@@ -351,7 +351,7 @@
#menue_footer {
position: relative;
z-index: 15;
- margin-top: 20px;
+ margin-top: 5px;
margin-left: 0px;
width: 186px;
height: 20px;
Modified: branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_main.xml
===================================================================
--- branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_main.xml 2006-07-16 13:41:47 UTC (rev 1966)
+++ branches/xml-class-rework/projects/bos/payment-website/templates/de/toplevel_main.xml 2006-07-16 17:49:02 UTC (rev 1967)
@@ -148,6 +148,34 @@
</tr>
</table>
</div>
+ <div id="textbox_left_login">
+ <form>
+ <table border="0" cellpadding="0" cellspacing="0">
+ <tr><td colspan="4" height="6"></td></tr>
+ <tr>
+ <td width="6"> </td>
+ <td colspan="2"><strong>Sponsor-ID</strong></td>
+ <td width="6"></td>
+ </tr>
+ <tr>
+ <td width="6"> </td>
+ <td colspan="2"><input id="sponsorid-input" type="text" name="__sponsorid"/></td>
+ <td width="6"></td>
+ </tr>
+ <tr>
+ <td width="6"> </td>
+ <td colspan="2"><strong>Kennwort</strong></td>
+ <td width="6"></td>
+ </tr>
+ <tr>
+ <td width="6"> </td>
+ <td colspan="2"><input id="password-input" class="password-input" type="password" name="__password"/>
+ <img onclick="window_infosys()" class="login-button" src="/infosystem/bilder/submit.gif"/></td>
+ <td width="6"></td>
+ </tr>
+ </table>
+ </form>
+ </div>
<!-- footer -->
<div id="menue_footer">
<a href="javascript:window_extra('privacy')" class="footer">
More information about the Bknr-cvs
mailing list