[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[raeburn]

raeburn		Mon Aug  1 13:24:20 2005 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Move comment to better location.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.199 loncom/interface/londocs.pm:1.200
--- loncom/interface/londocs.pm:1.199	Tue Jul 26 18:30:20 2005
+++ loncom/interface/londocs.pm	Mon Aug  1 13:24:18 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.199 2005/07/26 22:30:20 raeburn Exp $
+# $Id: londocs.pm,v 1.200 2005/08/01 17:24:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -656,7 +656,6 @@
     my ($count,$curRes,$cdom,$cnum,$symb,$content_file,$href,$copyresult,$tempexport) = @_;
     my $content_type;
     my $message;
-# find where user is author or co-author
     my @uploads = ();
     if ($curRes->is_sequence()) {
         $content_type = 'sequence';
@@ -710,6 +709,7 @@
         if ($2 eq $env{'user.domain'} && $3 eq $env{'user.name'})  {
             $canedit= 1;
         }
+# only include problem code where current user is author
         if ($canedit) {
             $$content_file = &replicate_content($cdom,$cnum,$tempexport,$symb,$count,\$message,$href,'resource');
         } else {