VWED.git - Gitblit

			@@ -13,6 +13,7 @@
			// Event and LeadingParticipation
			subject := edtName.Text();
			description := edtDescription.Text();
			eventTypeList := ddlEventType.Data();
			category := sEvent.EventCategory();
			isDefault := ckbApplyToNewResources.Checked();
			startDate := dsStartDate.Date();
			@@ -25,9 +26,9 @@
			capacity := Real::MinReal(); // Always fill the capacity.

			// RecurrencePattern
			isRecurring := false;
			isRecurring := true;
			recurrenceInterval := 1;
			patternType := LibCal_RecurrencePeriod::TYPE_WITHOUTEND();
			patternType := LibCal_RecurrencePattern::TYPE_DAILY();

			// Daily
			daily_IsEveryWeekday := false;
			@@ -50,14 +51,14 @@
			yearly_DayOfWeek := '';

			// RecurrencePeriod
			periodType := LibCal_RecurrencePeriod::TYPE_WITHOUTEND();
			periodStartDate := Date::MinDate();
			periodEndDate := Date::MinDate();
			nrOfOccurrences := 0;
			periodType := LibCal_RecurrencePeriod::TYPE_NROFOCCURRENCES();
			periodStartDate := dsStartDate.Date();
			periodEndDate := startDate + 1;
			nrOfOccurrences := 1;

			// All values are passed to the Server, only the relevant values are used there.
			event := LibCal_Event::CreateUpdateFromUI( sEvent.Calendar(), sLeadPart.WrappedInstance(),
			subject, description, eventType, capacity, category, isDefault,
			subject, description, eventType, eventTypeList, capacity, category, isDefault,
			startDate, startTimeOfDay, endDate, endTimeOfDay, isAllDay,
			// RecurrencePattern
			isRecurring, recurrenceInterval, patternType,
			@@ -68,10 +69,8 @@
			// RecurrencePeriod
			periodType, periodStartDate, nrOfOccurrences, periodEndDate,
			// Subscribers
			dhSubscribers.Data() );
			info( '------------2----------', isnull( sEvent ), isnull( sLeadPart.WrappedInstance() ) );
			info( sEvent.Subject(), '---', sEvent.EventID(), '---', sEvent.Info() );
			//info( sLeadPart.WrappedInstance().Info() );
			dhSubscribers.Data(), true );

			return event;
			*]
			}