--- 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) {