From 268f1f291d8a20e021e71533954ce4e49ccf52e8 Mon Sep 17 00:00:00 2001
From: Akihiro MOTOKI <amotoki@gmail.com>
Date: Thu, 31 May 2012 04:46:24 +0900
Subject: [PATCH] admin: JM-tl-modify.pl clears status/version field if -c is
 specified.

---
 admin/JM-tl-modify.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/admin/JM-tl-modify.pl b/admin/JM-tl-modify.pl
index dcb6b4c7..a80403bb 100755
--- a/admin/JM-tl-modify.pl
+++ b/admin/JM-tl-modify.pl
@@ -120,9 +120,13 @@ while (<TLO>) {
     $ti{'tmail'} = $opts{"e"} if $opts{"e"};
 
     if ($opts{"c"}) {
+	$ti{'stat'} = '1st_non';
 	$ti{'tdat'} = '';
 	$ti{'tname'} = '';
 	$ti{'tmail'} = '';
+	# Reset versions to the original ver.
+	$ti{'rver'} = $ti{'over'};
+	$ti{'dver'} = $ti{'over'};
     }
 
     my $tll = hash2line(%ti);
-- 
2.11.0