[MKDoc-commit] [1.6] fix for bug introduced by last bug fix

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6] fix for bug introduced by last bug fix

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/flo/Record:
        Document.pm

-------------- next part --------------
Index: Document.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/Record/Document.pm,v
retrieving revision 1.25.2.71
retrieving revision 1.25.2.72
diff -Lflo/Record/Document.pm -Lflo/Record/Document.pm -u -r1.25.2.71 -r1.25.2.72
--- flo/Record/Document.pm
+++ flo/Record/Document.pm
@@ -1707,7 +1707,7 @@
 {
     my $self = shift;
     my @res;
-    if (flo::Standard::current_user->is_editor)
+    if (flo::Standard::current_user && flo::Standard::current_user->is_editor)
     {
         @res  = map { $_->is_showable_to_editor() ? $_ : () } $self->children;
     }