aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-27 17:02:26 -0400
committerJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-27 17:02:26 -0400
commitb16949ab56670ee59a868ac817aad102a20dd193 (patch)
tree2439c34ce6111580529798863f930779d2c53358
parent10bb07b2d12f232a2ec68f3a1b8e337be9582f7d (diff)
downloadLR-87-b16949ab56670ee59a868ac817aad102a20dd193.zip
LR-87-b16949ab56670ee59a868ac817aad102a20dd193.tar.gz
Code cleanup and better error handling on the AppGraphics renderer.
-rw-r--r--ag_render.f902
-rw-r--r--main.F902
2 files changed, 2 insertions, 2 deletions
diff --git a/ag_render.f90 b/ag_render.f90
index 576d34d..3a91b92 100644
--- a/ag_render.f90
+++ b/ag_render.f90
@@ -835,7 +835,7 @@ contains
end if
- ag_report_unsupported_protocol = .true.
+ ag_report_unsupported_protocol = .false.
end function ag_report_unsupported_protocol
diff --git a/main.F90 b/main.F90
index 9512f2c..b05c9c5 100644
--- a/main.F90
+++ b/main.F90
@@ -183,7 +183,7 @@ implicit none
else if(.not. redo_layout .and. is_failure_code(return_code) .and. len_trim(current_url) == 0) then
- call r%report_status("Exiting without initial site")
+ call r%draw_error("Exiting without initial site")
running = .false.
end if