From ddf2c98ab2087b58c82665a6f17274eff0689a71 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Thu, 18 Apr 2024 14:31:37 +0000
Subject: [PATCH] Bug 36068: (QA follow-up) Add OPTIONS section in POD
Content-Type: text/plain; charset=utf-8

Test plan:
Run script with --help.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
 .../maintenance/acq_cancel_obsolete_orders.pl | 20 +++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/misc/maintenance/acq_cancel_obsolete_orders.pl b/misc/maintenance/acq_cancel_obsolete_orders.pl
index 24e9753d8a..3b7a3a5fbb 100755
--- a/misc/maintenance/acq_cancel_obsolete_orders.pl
+++ b/misc/maintenance/acq_cancel_obsolete_orders.pl
@@ -30,6 +30,26 @@ acq_cancel_obsolete_orders.pl - Script for cancelling obsolete orders
     Optionally, you may pass an age in DAYS to limit the
     selected set to records with an older entrydate.
 
+=head1 OPTIONS
+
+=over
+
+=item B<-h|--help>
+
+    Print a brief help message
+
+=item B<-c|--confirm>
+
+    Confirm to cancel obsolete orders. If you do not confirm, the script
+    only counts the number of obsolete orders.
+
+=item B<--age>
+
+    Optional number of days. Only look at orders older than the given
+    number.
+
+=back
+
 =cut
 
 # Copyright 2024 Rijksmuseum
-- 
2.30.2