--- 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
'); + $r->print('
'.&mt('Close This Window').'
'); return OK; }