--- loncom/publisher/lonpublisher.pm 2003/09/22 00:48:32 1.134
+++ loncom/publisher/lonpublisher.pm 2003/09/25 22:30:06 1.138
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.134 2003/09/22 00:48:32 www Exp $
+# $Id: lonpublisher.pm,v 1.138 2003/09/25 22:30:06 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -670,7 +670,10 @@ sub fix_ids_and_indices {
}
}
# probably a image type
');
}
}
@@ -1519,7 +1552,7 @@ sub batchpublish {
my $thisembstyle=&Apache::loncommon::fileembstyle($thistype);
- $r->print('Publishing '.$thisdisfn.'
');
+ $r->print(''.&mt('Publishing').' '.$thisdisfn.'
');
# phase one takes
# my ($source,$target,$style,$batch)=@_;
@@ -1636,7 +1669,7 @@ sub handler {
my $r=shift;
if ($r->header_only) {
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK;
}
@@ -1729,7 +1762,7 @@ unless ($ENV{'form.phase'} eq 'two') {
# ---------------------------------------------------------- Start page output.
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
$r->print('LON-CAPA Publishing');
@@ -1752,9 +1785,9 @@ unless ($ENV{'form.phase'} eq 'two') {
if ($fn=~/\/$/) {
# -------------------------------------------------------- This is a directory
&publishdirectory($r,$fn,$thisdisfn);
- $r->print('
Done
'.&mt('Done').'
Return to Directory');
+ .'">'.&mt('Return to Directory').'');
} else {
@@ -1762,7 +1795,7 @@ unless ($ENV{'form.phase'} eq 'two') {
$thisfn=~/\.(\w+)$/;
my $thistype=$1;
my $thisembstyle=&Apache::loncommon::fileembstyle($thistype);
- $r->print('Publishing '.
+ $r->print(''.&mt('Publishing').' '.
&Apache::loncommon::filedescription($thistype).' ');
$r->print(<
ENDCAPTION
$r->print(
- '
Target: '.$thisdistarget.'
');
+ '
'.&mt('Target').': '.$thisdistarget.'
');
if (($cuname ne $ENV{'user.name'}) || ($cudom ne $ENV{'user.domain'})) {
- $r->print('Co-Author: '.$cuname.' at '.$cudom.
+ $r->print(''.&mt('Co-Author').': '.$cuname.&mt(' at ').$cudom.
'
');
}
if (&Apache::loncommon::fileembstyle($thistype) eq 'ssi') {
$r->print(<
-Diffs with Current Version
+
ENDDIFF
+ $r->print(&mt('Diffs with Current Version').'
');
}
# ------------------ Publishing from $thisfn to $thistarget with $thisembstyle.