diff options
author | bbaetz%student.usyd.edu.au <> | 2002-08-19 20:59:39 +0000 |
---|---|---|
committer | bbaetz%student.usyd.edu.au <> | 2002-08-19 20:59:39 +0000 |
commit | 1e94eab2b417f973364a713adbfaa2693ed55eec (patch) | |
tree | fe6745a45b07bcb85b572dbd01c4bce8b85b6ebc /CGI.pl | |
parent | fa343202c29b61feea3dd3c4ed8f51968e174e9a (diff) | |
download | bugs-1e94eab2b417f973364a713adbfaa2693ed55eec.tar bugs-1e94eab2b417f973364a713adbfaa2693ed55eec.tar.gz bugs-1e94eab2b417f973364a713adbfaa2693ed55eec.tar.bz2 bugs-1e94eab2b417f973364a713adbfaa2693ed55eec.tar.xz bugs-1e94eab2b417f973364a713adbfaa2693ed55eec.zip |
Big 163291 - Move utility funcs into a module
r=preed x2
Diffstat (limited to 'CGI.pl')
-rw-r--r-- | CGI.pl | 27 |
1 files changed, 2 insertions, 25 deletions
@@ -33,6 +33,8 @@ use lib "."; # use Carp; # for confess +use Bugzilla::Util; + # commented out the following snippet of code. this tosses errors into the # CGI if you are perl 5.6, and doesn't if you have perl 5.003. # We want to check for the existence of the LDAP modules here. @@ -334,31 +336,6 @@ sub ValidateComment { } } -sub html_quote { - my ($var) = (@_); - $var =~ s/\&/\&/g; - $var =~ s/</\</g; - $var =~ s/>/\>/g; - $var =~ s/"/\"/g; - return $var; -} - -sub value_quote { - my ($var) = (@_); - $var =~ s/\&/\&/g; - $var =~ s/</\</g; - $var =~ s/>/\>/g; - $var =~ s/"/\"/g; - # See bug http://bugzilla.mozilla.org/show_bug.cgi?id=4928 for - # explanaion of why bugzilla does this linebreak substitution. - # This caused form submission problems in mozilla (bug 22983, 32000). - $var =~ s/\r\n/\
/g; - $var =~ s/\n\r/\
/g; - $var =~ s/\r/\
/g; - $var =~ s/\n/\
/g; - return $var; -} - # Adds <link> elements for bug lists. These can be inserted into the header by # using the "header_html" parameter to PutHeader, which inserts an arbitrary # string into the header. This function is currently used only in |