1 |
wellsi |
1.1 |
diff -ruN perl-CGI-FormMagick-0.92.old/lib/CGI/FormMagick/HTML.pm perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm |
2 |
|
|
--- perl-CGI-FormMagick-0.92.old/lib/CGI/FormMagick/HTML.pm 2013-03-19 19:50:42.000000000 -0700 |
3 |
|
|
+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2013-03-19 19:54:55.000000000 -0700 |
4 |
|
|
@@ -144,7 +144,7 @@ |
5 |
|
|
sub print_form_footer { |
6 |
|
|
my $fm = shift; |
7 |
|
|
|
8 |
|
|
- my $url = $fm->{cgi}->url(-relative => 1) || ''; |
9 |
|
|
+ my $url = $fm->{cgi}->url(-relative => 1, -rewrite => 0) || ''; |
10 |
|
|
|
11 |
|
|
# here's how we clear our state IDs |
12 |
|
|
print qq(<p><a href="$url">),$fm->localise('Start over again'), |
13 |
|
|
@@ -173,7 +173,7 @@ |
14 |
|
|
my $title = $fm->page->{title}; |
15 |
|
|
my $description = $fm->page->{description}; |
16 |
|
|
my $menu = $fm->page->{menu}; |
17 |
|
|
- my $url = $fm->{cgi}->url(-relative => 1) || ''; |
18 |
|
|
+ my $url = $fm->{cgi}->url(-relative => 1, -rewrite => 0) || ''; |
19 |
|
|
my $enctype = $fm->get_page_enctype(); |
20 |
|
|
|
21 |
|
|
# the level 2 heading is the page element's title heading |