From 949a0cf8fefa501c979a74a0622d29d190d09e9d Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@triptico.com>
Date: Tue, 13 Oct 2009 08:54:33 +0200
Subject: [PATCH] Avoid generating story ids with numbers only.

---
 Gruta/Data.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Gruta/Data.pm b/Gruta/Data.pm
index fcd234f..743ed2d 100644
--- a/Gruta/Data.pm
+++ b/Gruta/Data.pm
@@ -172,7 +172,14 @@ sub tags {
 sub new_id {
 	my $self	= shift;
 
-	return sprintf ('%08x', int(rand(0xffffffff)));
+	my $id;
+
+	do {
+		$id = sprintf('%08x', int(rand(0xffffffff)));
+	}
+	while ($id =~ /^\d+$/);
+
+	return $id;
 }
 
 sub is_visible {
-- 
2.11.4.GIT