strip \d+[-_] from beginning of SQL file before creating sheet name

git-svn-id: svn://svn.rot13.org/SQL2XLS@20 2e857b76-582b-47e5-ad5c-b3ba0f0ee29b

diff --git a/sql2xls.cgi b/sql2xls.cgi
index 7cf23ad..ef6fb2c 100755 (executable)
--- a/sql2xls.cgi
+++ b/sql2xls.cgi
@@ -129,7 +129,7 @@ sub _c {
 foreach my $sql_file (@sql_files) {
 
        my $sheet_name = $sql_file;
-       $sheet_name =~ s/\d+_//;
+       $sheet_name =~ s/\d+[_-]//;
        $sheet_name =~ s/_/ /g;
        $sheet_name =~ s/\.sql//;