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

fixing a problem with hex and JSON

Browse source 
gettign rid of the migration.txt script, because it's now published on the site instead since all changes are complete
This commit is contained in:
JT Smith 2006-05-03 00:11:54 +00:00
parent 988975abea
commit d24ac0b273
11 changed files with 10 additions and 952 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Session/ErrorHandler.pm
View file

@ -403,7 +403,7 @@ sub showDebug {
$text = $self->session->stow->get('debug_info');
$text =~ s/\n/\<br \/\>\n/g;
$output .= '<div style="text-align: left;background-color: #ffffdd;color: #000000;">'.$text."</div>\n";
$text = JSON::objToJson($self->session->form->paramsHashRef(), {pretty=>1, indent=>4});
$text = JSON::objToJson($self->session->form->paramsHashRef(), {pretty => 1, indent => 4, autoconv=>0, skipinvalid=>1});
$text =~ s/&/&amp;/xsg;
$text =~ s/>/&gt;/xsg;
$text =~ s/</&lt;/xsg;

3
lib/WebGUI/Session/Id.pm
View file

@ -70,9 +70,6 @@ sub generate {
my $id = Digest::MD5::md5_base64($v);
$id =~ s/\+/_/g;
$id =~ s/\//-/g;
if ($id =~ /^0/) { # Can't start with 0 because that can cause problems with 0x (hex) and 0b (bin) in perl
$id = $self->generate();
}
return $id;
}