--- loncom/interface/londocs.pm 2011/09/10 03:18:34 1.459 +++ loncom/interface/londocs.pm 2011/10/31 01:22:25 1.462 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.459 2011/09/10 03:18:34 raeburn Exp $ +# $Id: londocs.pm,v 1.462 2011/10/31 01:22:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -176,7 +176,7 @@ sub dumpcourse { $newfilename=&clean($newfilename); $newfilename.='.'.$ext; my @dirs=split(/\//,$newfilename); - my $path='/home/'.$ca.'/public_html'; + my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca"; my $makepath=$path; my $fail=0; for (my $i=0;$i<$#dirs;$i++) { @@ -1787,9 +1787,11 @@ sub editor { if ($supplementalflag) { $tid = 2; } - $r-print(&generate_edit_table($tid,$orderhash,$to_show)); if ($allowed) { + $r->print(&generate_edit_table($tid,$orderhash,$to_show)); &print_paste_buffer($r,$container); + } else { + $r->print($to_show); } return; } @@ -2629,7 +2631,7 @@ ENDHEADERS $r->print(' '.&mt('Diffs').''); + '" target="diffs">'.&mt('Diffs').''); } $r->print('
'); if (++$entries_count % $entries_per_col == 0) {