[Bps-public-commit] r10905 - RT-Extension-rt_cpan_org/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed Feb 20 13:41:23 2008
New Revision: 10905

Modified:
   RT-Extension-rt_cpan_org/lib/RT/Principal_Vendor.pm

Log:
* WebPublicUser has no default value, so it's either defined
  or feature is disabled

Modified: RT-Extension-rt_cpan_org/lib/RT/Principal_Vendor.pm
==============================================================================
--- RT-Extension-rt_cpan_org/lib/RT/Principal_Vendor.pm	(original)
+++ RT-Extension-rt_cpan_org/lib/RT/Principal_Vendor.pm	Wed Feb 20 13:41:23 2008
@@ -64,7 +64,8 @@
 use Hook::LexWrap;
 wrap 'RT::Principal::HasRight', pre => sub {
     my $self = $_[0];
-    return unless lc $self->Object->__Value('Name') eq lc($RT::WebPublicUser || 'guest');
+    return unless defined $RT::WebPublicUser && length $RT::WebPublicUser;
+    return unless lc $self->Object->__Value('Name') eq lc $RT::WebPublicUser;
 
     my %args = @_[1 .. (@_-2)];
     return unless $args{'Right'} eq 'CreateTicket'