11 lines
1.5 KiB
JSON
11 lines
1.5 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function rowexists, msg, recipe_comm\r\ndeclare subroutine forward_event, record_lock, create_note\r\n\r\n$insert quote_sigs_equ\r\n$insert recipe_equ\r\n$INSERT NOTIFICATION_EQU\r\n\r\nif @@window->savewarn then\r\n\tModArray = .mod_info->array\r\n\tModArray = insert( ModArray, 1, 1, 0, @user4 )\r\n\tModArray = insert( ModArray, 2, 1, 0, oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ) )\r\n\tModArray = insert( ModArray, 3, 1, 0, oconv( date(), 'D2/' ) )\r\n\t.mod_info->array = ModArray\r\n\tRecipeNo = .recipe_no->text\t\r\n\t\r\n\tif RecipeNo <> '' then\r\n\t \r\n\t SendTo = XLATE('NOTIFICATION','RECIPE_CHANGE',NOTIFICATION_USER_ID$,'X')\r\n\t \r\n\t\tif rowexists( 'RECIPE', RecipeNo ) then\r\n\t\t create_note( SendTo, 'System', 'Recipe Modification', 'This recipe was modified by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'RECIPE', .recipe_no->text )\t \t\r\n\t\tend else\r\n\t\t .entry_id->text = @user4\r\n\t\t create_note( SendTo, 'System', 'New Recipe', 'This recipe was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':oconv( date(), 'D2/' ):' at ':oconv( time(), 'MTH' ):'.', 'RECIPE', .recipe_no->text )\t \r\n\t\tend\r\n end\r\n Void = recipe_comm( 'WRITE_STAMP' )\r\nend \r\nreturn 1\r\n"
|
|
}
|
|
}
|
|
} |