-my $VERSION=q$Id: wheel.pl,v 1.3 2004-10-21 22:32:38 don Exp $;
+my $VERSION=q$Id: wheel.pl,v 1.4 2009-10-20 21:23:36 don Exp $;
# Intial Released Version 0.10
# p01: Fixing displayed angle
use GD::Text::Align;
use POSIX;
+use HTML::Entities qw(encode_entities);
+
sub round($) {
my ($a) = @_;
print $q->header();
print $q->start_html('Helical Wheel Projections');
if (defined $q->param('submit') and $q->param('submit')=~/Submit/) {
- print $q->h1('Wheel:'.$q->param('sequence'));
+ print $q->h1('Wheel:'.encode_entities($q->param('sequence')));
print $q->img({-src=>$q->self_url.'&draw=yes'});
print <<OUT