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

[raeburn]

raeburn		Thu Sep  4 13:50:50 2008 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - Only show paste button if user's context permits editing. 
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.309 loncom/interface/londocs.pm:1.310
--- loncom/interface/londocs.pm:1.309	Thu Sep  4 13:07:28 2008
+++ loncom/interface/londocs.pm	Thu Sep  4 13:50:47 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.309 2008/09/04 17:07:28 raeburn Exp $
+# $Id: londocs.pm,v 1.310 2008/09/04 17:50:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1496,7 +1496,9 @@
 	$r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');
     }
     $r->print("\n</table>\n");
-    &print_paste_buffer($r,$container);
+    if ($allowed) {
+        &print_paste_buffer($r,$container);
+    }
     return;
 }