From 9d76d03b5eea062439e548c8e47c5a8298ea2613 Mon Sep 17 00:00:00 2001
From: Roland Gruber <post@rolandgruber.de>
Date: Sun, 12 Jan 2014 19:52:14 +0000
Subject: [PATCH] fixed getCallingURL

---
 lam/lib/account.inc | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lam/lib/account.inc b/lam/lib/account.inc
index c449cbc3..95efb5ce 100644
--- a/lam/lib/account.inc
+++ b/lam/lib/account.inc
@@ -4,7 +4,7 @@ $Id$
 
   This code is part of LDAP Account Manager (http://www.ldap-account-manager.org/)
   Copyright (C) 2003 - 2006  Tilo Lutz
-                2009 - 2013  Roland Gruber
+                2009 - 2014  Roland Gruber
 
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -1208,16 +1208,16 @@ function getDefaultLDAPErrorString($server) {
  */
 function getCallingURL() {
 	$url = null;
-	if (!empty($_SERVER['HTTP_REFERER'])) {
-		$url = $_SERVER['HTTP_REFERER'];
-	}
-	else {
+	if (!empty($_SERVER['HTTP_HOST']) && !empty($_SERVER['REQUEST_URI'])) {
 		$proto = 'http://';
 		if (!empty($_SERVER['HTTPS']) && ($_SERVER['HTTPS'] != 'off')) {
 			$proto = 'https://';
 		}
 		$url = $proto . $_SERVER['HTTP_HOST'] . $_SERVER['REQUEST_URI'];
 	}
+	elseif (!empty($_SERVER['HTTP_REFERER'])) {
+		$url = $_SERVER['HTTP_REFERER'];
+	}
 	logNewMessage(LOG_DEBUG, 'Calling URL detected as ' . $url);
 	return $url;
 }