perl_ldap-lon-lat.patch

perl_ldap-lon-lat.patch (text/plain), 746 bytes, created by Christian Heim (RETIRED) on 2007-10-20 22:36:13 UTC

--- perl_ldap.orig	2007-10-20 22:30:33.000000000 +0000
+++ perl_ldap	2007-10-20 22:31:34.000000000 +0000
@@ -447,7 +447,14 @@
 	  $userinfo .= '    <roles>'.$_->get_value('gentooRoles').'</roles>'."\n";
 	}
         if($_->get_value('gentooLocation') ne 'undefined')
-          { $userinfo .= '    <location>'.$_->get_value('gentooLocation').'</location>'."\n"; }
+		{
+			if ($_->get_value('lon') && $_->get_value('lat'))
+			{
+				$userinfo .= '    <location longitude="'.$_->get_value('lon').'" latitude="'.$_->get_value('lat').'">'.$_->get_value('gentooLocation').'</location>'."\n";
+			} else {
+				$userinfo .= '    <location>'.$_->get_value('gentooLocation').'</location>'."\n";
+			}
+		}
         $userinfo .= "  </user>\n";
     }