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

fix now that things are packed

Browse source
This commit is contained in:
Doug Bell 2009-04-30 19:37:13 +00:00
parent c60db6b1be
commit 3574113645
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Macro/AdminToggle.t
View file

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