From e08698a17e5f52dc343aee275ed43fe29e9f5120 Mon Sep 17 00:00:00 2001 From: Wolfgang Sourdeau Date: Wed, 15 Oct 2008 14:52:02 +0000 Subject: [PATCH] Monotone-Parent: 35aeb39a4ff1d311050f0ab6cc5002f6896f9572 Monotone-Revision: 616921280c79198f2b2025ca567453d8d7d550e7 Monotone-Author: wsourdeau@inverse.ca Monotone-Date: 2008-10-15T14:52:02 Monotone-Branch: ca.inverse.sogo --- ChangeLog | 6 ++++++ SoObjects/SOGo/SOGoObject.m | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 97113cff4..20268c67a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2008-10-15 Wolfgang Sourdeau + + * SoObjects/SOGo/SOGoObject.m ([SOGoObject -davURL]) + ([SOGoObject -soURL]): appended the port number to the hostname + used to construct the NSURL instance. + 2008-10-03 Francis Lachapelle * UI/MainUI/SOGoUserHomePage.m ([WOResponse diff --git a/SoObjects/SOGo/SOGoObject.m b/SoObjects/SOGo/SOGoObject.m index 473e8cf5f..6a2bbf7c0 100644 --- a/SoObjects/SOGo/SOGoObject.m +++ b/SoObjects/SOGo/SOGoObject.m @@ -1164,7 +1164,7 @@ SEL SOGoSelectorForPropertySetter (NSString *property) { NSURL *serverURL, *url; NSMutableArray *path; - NSString *baseURL, *urlMethod; + NSString *baseURL, *urlMethod, *fullHost; serverURL = [context serverURL]; baseURL = [[self baseURLInContext: context] stringByUnescapingURL]; @@ -1185,8 +1185,10 @@ SEL SOGoSelectorForPropertySetter (NSString *property) [path insertObject: expected atIndex: 2]; } + fullHost = [NSString stringWithFormat: @"%@:%@", + [serverURL host], [serverURL port]]; url = [[NSURL alloc] initWithScheme: [serverURL scheme] - host: [serverURL host] + host: fullHost path: [path componentsJoinedByString: @"/"]]; [url autorelease];