Merge branch 'master' of ssh://git.ucw.cz/home/mj/GIT/gallery

[gallery.git] / lib / UCW / Gallery / Web.pm

diff --git a/lib/UCW/Gallery/Web.pm b/lib/UCW/Gallery/Web.pm
index ccca477e8007fb11e0ef7cc2918c26c8b7e4b946..78445c6f727b0e6be53c62ed93b9a35693599d14 100644 (file)
--- a/lib/UCW/Gallery/Web.pm
+++ b/lib/UCW/Gallery/Web.pm
@@ -3,8 +3,7 @@
 
 package UCW::Gallery::Web;
 
 
 package UCW::Gallery::Web;
 

-use strict;
-use warnings;
+use common::sense;

 
 use UCW::Gallery;
 use UCW::CGI;
 
 use UCW::Gallery;
 use UCW::CGI;


@@ -52,7 +51,7 @@ sub showing_image($) {
 
 sub html_top($) {
        my ($self) = @_;
 
 sub html_top($) {
        my ($self) = @_;

-       my $title = UCW::CGI::html_escape($self->get('Title'));
+       my $title = $self->get('Title');

        my $hextras = $self->extras('WebHeadExtras');
        my $theme_hextras = $self->theme_head_extras;
        print <<EOF ;
        my $hextras = $self->extras('WebHeadExtras');
        my $theme_hextras = $self->theme_head_extras;
        print <<EOF ;