loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.459, 2011/09/10 03:18:34	version 1.462, 2011/10/31 01:22:25
Line 176 sub dumpcourse {	Line 176 sub dumpcourse {
$newfilename=&clean($newfilename);	$newfilename=&clean($newfilename);
$newfilename.='.'.$ext;	$newfilename.='.'.$ext;
my @dirs=split(/\//,$newfilename);	my @dirs=split(/\//,$newfilename);
my $path='/home/'.$ca.'/public_html';	my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca";
my $makepath=$path;	my $makepath=$path;
my $fail=0;	my $fail=0;
for (my $i=0;$i<$#dirs;$i++) {	for (my $i=0;$i<$#dirs;$i++) {
Line 1787 sub editor {	Line 1787 sub editor {
if ($supplementalflag) {	if ($supplementalflag) {
$tid = 2;	$tid = 2;
}	}
$r-print(&generate_edit_table($tid,$orderhash,$to_show));
if ($allowed) {	if ($allowed) {
	$r->print(&generate_edit_table($tid,$orderhash,$to_show));
&print_paste_buffer($r,$container);	&print_paste_buffer($r,$container);
	} else {
	$r->print($to_show);
}	}
return;	return;
}	}
Line 2629 ENDHEADERS	Line 2631 ENDHEADERS
$r->print(' <a href="/adm/diff?filename='.	$r->print(' <a href="/adm/diff?filename='.
&Apache::lonnet::clutter($root.'.'.$extension).	&Apache::lonnet::clutter($root.'.'.$extension).
'&versionone='.$prevvers.	'&versionone='.$prevvers.
'">'.&mt('Diffs').'</a>');	'" target="diffs">'.&mt('Diffs').'</a>');
}	}
$r->print('</span><br />');	$r->print('</span><br />');
if (++$entries_count % $entries_per_col == 0) {	if (++$entries_count % $entries_per_col == 0) {