X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FCGI.pm;fp=lib%2FPackages%2FCGI.pm;h=b09235273ab4d9e057321f2a9c494287bdf89e09;hp=9a8584fe6bd51b4cf784ad1dc37d522215ab4e33;hb=1d7c1b6f69a8b6b10fd304730b95eeeaa6654098;hpb=21177def4abd5083e93f3c79eab13d4713eedecf

diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm
index 9a8584f..b092352 100644
--- a/lib/Packages/CGI.pm
+++ b/lib/Packages/CGI.pm
@@ -333,6 +333,13 @@ sub printindexline {
 #    return ( $start, $end );
 #}
 
+sub string2id {
+    my $string = "@_";
+    
+    $string =~ s/[^\w]/_/g;
+    return $string;
+}
+
 our ( %url_params, %query_params );
 
 sub init_url {