X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=login.pl;h=a01fc10f8d99e87f35ef3fd1ae23ca3990bb5cb6;hb=48582558ac7e46413e6db6b90cf1671500db6eb0;hp=7753cc5b860393162e6f0aa68d6758b7e9eca859;hpb=9a16d0be9c85be4376c5841ede03211056ac68f6;p=kivitendo-erp.git

diff --git a/login.pl b/login.pl
index 7753cc5b8..a01fc10f8 100755
--- a/login.pl
+++ b/login.pl
@@ -31,7 +31,8 @@
 #######################################################################
 
 BEGIN {
-  push(@INC, "modules");
+  unshift @INC, "modules/YAML"; # Use our own version of YAML.
+  push @INC, "modules";         # Only use our own versions of modules if there's no system version.
 }
 
 # setup defaults, DO NOT CHANGE
@@ -71,6 +72,8 @@ $0 =~ tr/\\/\//;
 $pos = rindex $0, '/';
 $script = substr($0, $pos + 1);
 
+$form->{login} =~ s|.*/||;
+
 if (-e "$userspath/nologin" && $script ne 'admin.pl') {
   print "content-type: text/plain