--- loncom/publisher/londiff.pm 2003/08/13 15:20:11 1.12
+++ loncom/publisher/londiff.pm 2003/12/10 15:42:49 1.13
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to show differences between file versions
#
-# $Id: londiff.pm,v 1.12 2003/08/13 15:20:11 www Exp $
+# $Id: londiff.pm,v 1.13 2003/12/10 15:42:49 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -54,6 +54,7 @@ use Apache::Constants qw(:common :http :
use Apache::loncacc;
use Apache::lonnet();
use Apache::loncommon();
+use Apache::lonlocal;
sub handler {
@@ -95,10 +96,10 @@ sub handler {
$r->print('
LON-CAPA Construction Diffs');
- $r->print(&Apache::loncommon::bodytag('Resource Differences'));
+ $r->print(&Apache::loncommon::bodytag(&mt('Resource Differences')));
- $r->print('Compare versions of '.$efn.'
');
+ $r->print(''.&mt('Compare versions of').' '.$efn.'
');
if (($cuname ne $ENV{'user.name'}) || ($cudom ne $ENV{'user.domain'})) {
$r->print('Co-Author: '.$cuname.' at '.$cudom.
@@ -119,22 +120,22 @@ sub handler {
$f1[$#f1+1]=$line;
}
}
- $r->print('Construction Space Version');
+ $r->print(''.&mt('Construction Space Version').'');
} else {
my $fn=
'/home/httpd/html//res/'.$cudom.'/'.$cuname.'/';
if ($ENV{'form.versionone'}) {
my ($main,$suffix)=($efn=~/^(.+)\.(\w+)$/);
$fn.=$main.'.'.$ENV{'form.versionone'}.'.'.$suffix;
- $r->print('Version '.$ENV{'form.versionone'}.'');
+ $r->print(''.&mt('Version').' '.$ENV{'form.versionone'}.'');
} else {
$fn.=$efn;
- $r->print('Current Version');
+ $r->print(''.&mt('Current Version').'');
}
@f1=split(/\n/,&Apache::lonnet::getfile($fn));
}
- $r->print('
versus
');
+ $r->print('
'.&mt('versus').'
');
if ($ENV{'form.versiontwo'} eq 'priv') {
my $fn='/home/'.$cuname.'/public_html/'.$efn;
@@ -146,17 +147,17 @@ sub handler {
$f2[$#f2+1]=$line;
}
}
- $r->print('Construction Space Version');
+ $r->print(''.&mt('Construction Space Version').'');
} else {
my $fn=
'/home/httpd/html/res/'.$cudom.'/'.$cuname.'/';
if ($ENV{'form.versiontwo'}) {
my ($main,$suffix)=($efn=~/^(.+)\.(\w+)$/);
$fn.=$main.'.'.$ENV{'form.versiontwo'}.'.'.$suffix;
- $r->print('Version '.$ENV{'form.versiontwo'}.'');
+ $r->print(''.&mt('Version').' '.$ENV{'form.versiontwo'}.'');
} else {
$fn.=$efn;
- $r->print('Current Version');
+ $r->print(''.&mt('Current Version').'');
}
@f2=split(/\n/,&Apache::lonnet::getfile($fn));
}
@@ -187,9 +188,9 @@ sub handler {
$r->print('');
} else {
- $r->print('Binary File
');
+ $r->print(''.&mt('Binary File').'
');
}
- $r->print('Close This Window