diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 52a538274..e11c5bcc0 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,6 +1,8 @@ 7.1.1 - fix: some issues with asset exports not handling URLs with dots correctly - fix: Search from root + - fix: Survey: textarea answers are trunctated + - fix: Snippet Security Fails 7.1.0 - fix: mysql and mysqldump were transposed in upgrade.pl --help diff --git a/docs/upgrades/upgrade_7.1.0-7.1.1.pl b/docs/upgrades/upgrade_7.1.0-7.1.1.pl index 258e0b725..ee1f33b0d 100644 --- a/docs/upgrades/upgrade_7.1.0-7.1.1.pl +++ b/docs/upgrades/upgrade_7.1.0-7.1.1.pl @@ -20,17 +20,16 @@ my $quiet; # this line required my $session = start(); # this line required -# upgrade functions go here +fixSurvey(); finish($session); # this line required -##------------------------------------------------- -#sub exampleFunction { -# my $session = shift; -# print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet); -# # and here's our code -#} +#------------------------------------------------- +sub fixSurvey { + print "\tFixing answer truncation in survey.\n" unless ($quiet); + $session->db->write("alter table Survey_questionResponse change response response text"); +} diff --git a/lib/WebGUI/Asset/Snippet.pm b/lib/WebGUI/Asset/Snippet.pm index ef3b958da..d5c0062ee 100644 --- a/lib/WebGUI/Asset/Snippet.pm +++ b/lib/WebGUI/Asset/Snippet.pm @@ -176,6 +176,7 @@ A web accessible version of the view method. sub www_view { my $self = shift; + return $self->session->privilege->insufficient() unless $self->canView; my $mimeType=$self->getValue('mimeType'); $self->session->http->setMimeType($mimeType || 'text/html'); $self->session->http->setCacheControl($self->get("cacheTimeout"));