allow a journey's cancellation status to be edited1.11.1

Closes #27

1 files changed, 13 insertions, 0 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index e1cca7d..3bb33ea 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -184,6 +184,7 @@ sub startup {
 				sched_departure => 0x0001,
 				real_departure  => 0x0002,
 				route           => 0x0010,
+				is_cancelled    => 0x0020,
 				sched_arrival   => 0x0100,
 				real_arrival    => 0x0200,
 			};
@@ -896,6 +897,18 @@ sub startup {
 						}
 					)->rows;
 				}
+				elsif ( $key eq 'cancelled' ) {
+					$rows = $db->update(
+						'journeys',
+						{
+							cancelled => $value,
+							edited    => $journey->{edited} | 0x0020,
+						},
+						{
+							id => $journey_id,
+						}
+					)->rows;
+				}
 				elsif ( $key eq 'comment' ) {
 					$journey->{user_data}{comment} = $value;
 					$rows = $db->update(