oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Do not remove newlines from Templates (or Snippets) since HTML::Packer does not handle newlines with H::T syntax. Fixes bug #11458

Browse source
This commit is contained in:
Colin Kuskie 2010-03-08 11:38:29 -08:00
parent 17067470e9
commit d0884afb59
10 changed files with 21 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Macro/EditableToggle.t
View file

@ -237,8 +237,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
my ($url) = $text =~ /HREF=(.+?)(\n?LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(\n?HREF|\Z)/;
return ($url, $label);
}

15
t/Macro/GroupAdd.t
View file

@ -19,6 +19,7 @@ use Data::Dumper;
use Test::More; # increment this value for each test you create
use HTML::TokeParser;
use JSON qw/from_json/;
my $session = WebGUI::Test->session;
@ -157,13 +158,13 @@ sub setupTest {
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"GroupAdd test"});
my $properties = {
title => 'GroupAdd test template',
title => 'GroupAdd test template',
className => 'WebGUI::Asset::Template',
url => 'groupadd-test',
url => 'groupadd-test',
namespace => 'Macro/GroupAdd',
template => "HREF=<tmpl_var group.url>\nLABEL=<tmpl_var group.text>",
# '1234567890123456789012'
id => 'GroupAdd001100Template',
template => qq|{"HREF":"<tmpl_var group.url>",\n"LABEL":"<tmpl_var group.text>"}|,
# '1234567890123456789012'
id => 'GroupAdd001100Template',
usePacked => 1,
};
my $asset = $defaultNode->addChild($properties, $properties->{id});
@ -187,8 +188,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
my $json_data = from_json($text);
my ($url, $label) = @{ $json_data }{qw/HREF LABEL/};
return ($url, $label);
}

4
t/Macro/GroupDelete.t
View file

@ -187,8 +187,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
my ($url) = $text =~ /HREF=(.+?)(\n?LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(\n?HREF|\Z)/;
return ($url, $label);
}

4
t/Macro/H_homeLink.t
View file

@ -121,8 +121,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
my ($url) = $text =~ /HREF=(.+?)(\n?LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(\n?HREF|\Z)/;
return ($url, $label);
}

4
t/Macro/LoginToggle.t
View file

@ -170,8 +170,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
my ($url) = $text =~ /HREF=(.+?)(\n?LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(\n?HREF|\Z)/;
return ($url, $label);
}

4
t/Macro/a_account.t
View file

@ -116,8 +116,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
my ($url) = $text =~ /HREF=(.+?)(\n?LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(\n?HREF|\Z)/;
return ($url, $label);
}

4
t/Macro/r_printable.t
View file

@ -144,8 +144,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
my ($url) = $text =~ /HREF=(.+?)(\n?LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(\n?HREF|\Z)/;
return ($url, $label);
}