11 lines
2.5 KiB
JSON
11 lines
2.5 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine forward_event, notes_comm, yield\r\ndeclare function rowexists\r\n$insert notes_equ\r\n\r\nforward_event()\r\n\r\n*CODE FOR \"REPLYING\"\r\nSendTo = get_property( @window, '@SendTo' )\r\nSubject = get_property( @window, '@Subject' )\r\nMessage = get_property( @window, '@Message' )\r\nif SendTo then\r\n .send_to_internal->array = SendTo\r\n .subject->text = Subject\r\n .message_internal->text = Message\r\n .from_internal->text = @user4\r\n .from_internal_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n AttachArray = ''\r\n AttachArray<1> = get_property( @window, '@AttachWin' )\r\n AttachArray<2> = get_property( @window, '@AttachKeys' )\r\n .attach_info->array = AttachArray\r\n Void = set_property( @window, '@SendTo', '' )\r\n Void = set_property( @window, '@Subject', '' )\r\n Void = set_property( @window, '@Message', '' )\r\n Void = set_property( @window, '@AttachWin', '' )\r\n Void = set_property( @window, '@AttachKeys', '' )\r\n .SEND_TO_PHONE->TEXT = SendTo<1,1> ;* PUT A VALUE CAUSE IT WAS \r\n .FROM_PHONE->TEXT = @USER4 ;* SAYING REQUIRED WHEN INVISIBLE\r\n ;* APPEARS THAT THE WINDOW USES FROM\r\n ;* PHONE ON THE WRITE EVEN THOUGH IT\r\n ;* IS NOT VISIBLE\r\n @@window->savewarn = 1\r\nend\r\n\r\nAttachInfo = .attach_info->array\r\nAttachWin = AttachInfo<1,1>\r\nAttachKeys = AttachInfo<2>\r\nif AttachWin and AttachKeys then\r\n .view_attach_button->visible=1\r\nend\r\n\r\n*notes_comm( 'SET_FIELDS' )\r\n\r\nif get_property( @window, '@called' ) then\r\n Tarray = .send_to_internal->array\r\n Tarray<2> = oconv( Tarray<1>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .send_to_internal->array = Tarray\r\nend\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\t*WE'RE ONLY GOING TO SHOW THE GROUP NAME IF THE SENDER OF THE NOTE IS ALSO THE RECEIVER\r\n\tif oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) = .entry_id->text else\r\n\t\t.send_to_group_int->visible = 0\r\n\t\t.send_to_group_text->visible = 0\r\n\tend\t\r\n .seq->enabled = 0\r\nend else\r\n .entry_id->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .entry_date->text = oconv( date(), 'D2/' )\r\n .entry_time->text = oconv( time(), 'MTH' )\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |