it's now end_form not endform

[wheel.git] / wheel.pl

diff --git a/wheel.pl b/wheel.pl
index a4c05c3139538f4052d049033dd117f8624c5f97..cdf3fd0b2626be096c78217f5f363862a5f71c46 100755 (executable)
--- a/wheel.pl
+++ b/wheel.pl
@@ -20,7 +20,7 @@
 
 
 
-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
@@ -39,6 +39,8 @@ use GD;
 use GD::Text::Align;
 use POSIX;
 
+use HTML::Entities qw(encode_entities);
+
 
 sub round($) {
   my ($a) = @_;
@@ -521,7 +523,7 @@ else {
   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
@@ -636,7 +638,7 @@ OUT
                                 ]),
                         ])
                 ),
-         $q->endform,
+         $q->end_form,
            $q->hr,$q->i("Created by ".$q->a({-href=>"mailto:don\@donarmstrong.com"},'Don Armstrong')." and Raphael Zidovetzki. Version: ".$q->b($VERSION));
 }