--- loncom/publisher/londiff.pm 2009/05/14 14:24:18 1.27 +++ loncom/publisher/londiff.pm 2011/10/23 23:46:07 1.29 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to show differences between file versions # -# $Id: londiff.pm,v 1.27 2009/05/14 14:24:18 bisitz Exp $ +# $Id: londiff.pm,v 1.29 2011/10/23 23:46:07 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -114,7 +114,7 @@ sub handler { ' '.$efn.''); if (($cuname ne $env{'user.name'}) || ($cudom ne $env{'user.domain'})) { - $r->print('
'
+ $r->print(' '
.&mt('Co-Author [_1]'
,&Apache::loncommon::plainname($cuname,$cudom)
.' ('.$cuname.':'.$cudom.')')
@@ -127,7 +127,7 @@ sub handler {
|| $efn =~ /\.meta$/) {
$r->print(' ');
if ($env{'form.versionone'} eq 'priv') {
- my $fn='/home/'.$cuname.'/public_html/'.$efn;
+ my $fn='/home/httpd/html/priv/'.$cudom.'/'.$cuname.'/'.$efn;
@f1=&get_split_file($fn,'local');
$r->print(''.&mt('Construction Space Version').'');
} else {
@@ -153,11 +153,11 @@ sub handler {
if ($env{'form.filetwo'}) {
my $efn2=$env{'form.filetwo'};
$efn2=~s{/\~($LONCAPA::username_re)}{}g;
- my $fn='/home/'.$cuname.'/public_html/'.$efn2;
+ my $fn='/home/httpd/html/priv/'.$cudom.'/'.$cuname.'/'.$efn2;
@f2=&get_split_file($fn,'local');
$r->print(''.$efn2.'');
} elsif ($env{'form.versiontwo'} eq 'priv') {
- my $fn='/home/'.$cuname.'/public_html/'.$efn;
+ my $fn='/home/httpd/html/priv/'.$cudom.'/'.$cuname.'/'.$efn;
@f2=&get_split_file($fn,'local');
$r->print(''.&mt('Construction Space Version').'');
} else {