| Sau Ha,
What you are requesting is possible, but requires a few different
customizations. You can change the meeting description on the REPLY
form by adding to either the /POST or to TM_REPLY.SCP. For example,
you can add the lines:
.IF #CAL_ATTN_RESPONSE EQS OA$NO THEN -
get #cal_mtng_desc="I: " #cal_mtng_desc \\-
write change cal$calendar %key=#CAL_KEY,DESCRIPTION=#cal_mtng_desc
to TM_REPLY.SCP, and it will change the description as you indicated.
You may also wish to check OA$FORM_DISPOSE, or #REPLY_DISPOSE to make
sure they pressed RETURN.
However... There is a significant problem with this approach, because
the description stored in the calendar file will not match the description
stored in the meeting file. This means that when they select from the "EV"
screen (etc.?), the wrong title will be displayed. This particular
problem can be fixed by using CM to also update TMTMSPRE (DO) from:
.LABEL CHECK
.IF #TM_TYPE EQS "" THEN .GOTO FOUND_ONE
.IF #TM_TYPE EQS "A" THEN CAL DISP APPOINTMENT #CAL_KEY -
> ELSE CAL DISP MEETING #CAL_KEY
...
to:
.LABEL CHECK
.IF #TM_TYPE EQS "" THEN .GOTO FOUND_ONE
.IF #TM_TYPE EQS "A" THEN CAL DISP APPOINTMENT #CAL_KEY -
> ELSE CAL DISP MEETING #CAL_KEY\-
> GET #CAL_MTNG_DESC=CAL$CALENDAR.DESCRIPTION[#CAL_KEY]
...
You'll also have to update the scripts TMTMSDOWN, etc. which
perform the arrow key functions on the TM EV screen.
Of course, there could be something else I've missed, but that
should cover the scope of the customizations. Make sure you thoroughly
test these and all other customizations before moving them to a live
system... They worked for me, but your milage may vary.
Cheers, regards, Dan'l
|
| Hello,
Thank you for the suggestion.
I have made a mistake in note .0. The symbol should be
#cal_meeting_pointer and it is defined. I have added the following lines
to TM_REPLY:
if the user wants to mark the event as information-only then
get #cal_mtng_desc = "I: " #cal_mtng_desc
write change cal$meeting %key=#cal_meeting_pointer, -
meeting_purpose=#cal_mtng_desc
for cal$calendar with .meeting_pointer == #cal_meeting_pointer -
do write change cal$calendar %key=.%key,description=#cal_mtng_desc
.goto memo_prompt
I thinks it works, but I'll be testing properly next week.
Meanwhile, can anyone see any fault in the code ?
thanks,
Sau Ha
|