From eb1d4382c6c29ce598052daaf13ef6ff6672430f Mon Sep 17 00:00:00 2001
From: Anthony Dewhurst <dewhurst@gmail.com>
Date: Sun, 30 Aug 2009 22:32:55 +0100
Subject: [PATCH] contrib/collection3: Allow numbers in type names.

When converting the on-disk type name to the displayed name,
do not strip numbers out.

Signed-off-by: Florian Forster <octo@leeloo.lan.home.verplant.org>
---
 contrib/collection3/bin/index.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/collection3/bin/index.cgi b/contrib/collection3/bin/index.cgi
index ba5b48a0..85064b86 100755
--- a/contrib/collection3/bin/index.cgi
+++ b/contrib/collection3/bin/index.cgi
@@ -299,8 +299,8 @@ sub action_show_selection
     my $file = $_;
     my $type = ucfirst (lc ($file->{'type'}));
 
-    $type =~ s/[^A-Za-z_]//g;
-    $type =~ s/_([A-Za-z])/\U$1\E/g;
+    $type =~ s/[^A-Za-z0-9_]//g;
+    $type =~ s/_([A-Za-z0-9])/\U$1\E/g;
 
     if (!defined ($types->{$type}))
     {
-- 
2.30.2