Fallout from previous checkin; need to escape "-" in regexp for some versions of...

diff --git a/page.cgi b/page.cgi
index 3494b68ddbaf48757696339227472e19575f2142..af0903c3005764f560bed669dac7bac7cbe645f7 100755 (executable)
--- a/page.cgi
+++ b/page.cgi
@@ -40,7 +40,7 @@ ConnectToDatabase();
 quietly_check_login();
 
 if (defined $::FORM{'id'}) {
-    $::FORM{'id'} =~ s/[^\w-\.]//g;
+    $::FORM{'id'} =~ s/[^\w\-\.]//g;
     $::FORM{'id'} =~ /(.*)(\.(.*))?/;
 
     my $format = GetFormat($1, undef, $3);