From 3e58313bde5e3e572d84fe014d9902dfb04712c3 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 1 Apr 2021 16:49:20 -0400 Subject: Jobs are now inserted into the database when launched. Job listings work. --- captain/launch.f90 | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'captain/launch.f90') diff --git a/captain/launch.f90 b/captain/launch.f90 index 97e0a59..8a074a5 100644 --- a/captain/launch.f90 +++ b/captain/launch.f90 @@ -4,9 +4,15 @@ implicit none contains subroutine launch_instructions_on_player(instruction, player) + use captain_db implicit none character(*), intent(in)::instruction, player + integer::instruction_id, player_id + + instruction_id = get_instruction_id(instruction) + player_id = get_player_id(player) + call add_new_job(instruction_id, player_id) end subroutine launch_instructions_on_player -- cgit v1.2.3