New version of S5: "addcss" attribute, refactored styles (common part moved to s5-base.css), style debug

git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@711 6955db30-a419-402b-8a0d-67ecbb4d7f56
master
vfilippov 2010-04-21 18:04:42 +00:00
parent 5a566783e5
commit bed5debff1
1 changed files with 3 additions and 2 deletions

View File

@ -375,7 +375,7 @@ sub splitString {
my $i = 0;
# Now split on quote sign; be tolerant about unclosed quotes
@quoteparts = split(/"/, $string);
@quoteparts = split(/\"/, $string);
foreach my $part (@quoteparts) {
# After every odd quote, quote special chars
$part = url_quote($part) if $i++ % 2;
@ -392,7 +392,7 @@ sub splitString {
# "+" must be quoted.
s/(?<!^)\+/%2B/g;
# Remove quotes
s/"//g;
s/\"//g;
}
return @parts;
}
@ -445,6 +445,7 @@ sub negateComparisonType {
# Add a boolean chart
sub addChart {
my ($field, $comparisonType, $value, $negate) = @_;
warn "$field $comparisonType $value";
$negate && ($comparisonType = negateComparisonType($comparisonType));
makeChart("$chart-$and-$or", $field, $comparisonType, $value);