amorfo77/sogo
1
0
Fork 0
mirror of https://github.com/inverse-inc/sogo.git synced 2026-08-19 21:53:19 +00:00
Code Issues Projects Releases Wiki Activity

Monotone-Parent: 7783dd885054cebd0991b4226695bea400c2c6c1

Browse Source 
Monotone-Revision: 6c02bf9631ff4ffa77f3dd2068fdf632d29bcc25

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2008-10-16T20:15:15
Monotone-Branch: ca.inverse.sogo
This commit is contained in:
Wolfgang Sourdeau
2008-10-16 20:15:15 +00:00
parent 494d09748f
commit 1476b9f8cd
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SoObjects/SOGo/SOGoObject.m
+8 -2
View File
@@ -1165,6 +1165,7 @@ SEL SOGoSelectorForPropertySetter (NSString *property)
NSURL *serverURL, *url;
NSMutableArray *path;
NSString *baseURL, *urlMethod, *fullHost;
NSNumber *port;
serverURL = [context serverURL];
baseURL = [[self baseURLInContext: context] stringByUnescapingURL];
@@ -1185,8 +1186,13 @@ SEL SOGoSelectorForPropertySetter (NSString *property)
[path insertObject: expected atIndex: 2];
}
fullHost = [NSString stringWithFormat: @"%@:%@",
[serverURL host], [serverURL port]];
port = [serverURL port];
if (port)
fullHost = [NSString stringWithFormat: @"%@:%@",
[serverURL host], port];
else
fullHost = [serverURL host];
url = [[NSURL alloc] initWithScheme: [serverURL scheme]
host: fullHost
path: [path componentsJoinedByString: @"/"]];