(fix) handle default classification for tasks (fixes #3541)

SoObjects/Appointments/SOGoTaskObject.m

@@ -24,6 +24,8 @@
 #import <Foundation/NSDate.h>
 #import <Foundation/NSException.h>
 
+#import <NGObjWeb/WOResponse.h>
+#import <NGObjWeb/WOContext+SoObjects.h>
 #import <NGExtensions/NSObject+Logs.h>
 #import <NGExtensions/NSNull+misc.h>
 #import <NGCards/iCalCalendar.h>
@@ -114,4 +116,17 @@
 
 }
 
+- (id) PUTAction: (WOContext *) _ctx
+{
+  iCalCalendar *rqCalendar;
+  WORequest *rq;
+
+  rq = [_ctx request];
+  rqCalendar = [iCalCalendar parseSingleFromSource: [rq contentAsString]];
+  [self adjustClassificationInRequestCalendar: rqCalendar];
+  [rq setContent: [[rqCalendar versitString] dataUsingEncoding: [rq contentEncoding]]];
+
+  return [super PUTAction: _ctx];
+}
+
 @end /* SOGoTaskObject */