| 1 |
snetram |
1.1 |
diff -up perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm.uninitialized-value perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm |
| 2 |
|
|
--- perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm.uninitialized-value 2009-11-24 19:51:56.000000000 +0100 |
| 3 |
|
|
+++ perl-CGI-FormMagick-0.92/lib/CGI/FormMagick/HTML.pm 2009-11-24 19:52:44.000000000 +0100 |
| 4 |
|
|
@@ -144,7 +144,7 @@ prints the stuff that goes at the bottom |
| 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) || ''; |
| 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 @@ sub print_page_header { |
| 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) || ''; |
| 19 |
|
|
my $enctype = $fm->get_page_enctype(); |
| 20 |
|
|
|
| 21 |
|
|
# the level 2 heading is the page element's title heading |
Parent Directory
| 
Revision Log
| 
Revision Graph
