--- loncom/publisher/lonpublisher.pm 2003/08/13 18:41:59 1.128
+++ loncom/publisher/lonpublisher.pm 2003/09/24 19:38:18 1.135
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.128 2003/08/13 18:41:59 www Exp $
+# $Id: lonpublisher.pm,v 1.135 2003/09/24 19:38:18 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -142,6 +142,7 @@ use DBI;
use Apache::lonnet();
use Apache::loncommon();
use Apache::lonmysql;
+use Apache::lonlocal;
use vars qw(%metadatafields %metadatakeys);
my %addid;
@@ -324,6 +325,7 @@ string which presents the form field (fo
#########################################
sub textfield {
my ($title,$name,$value)=@_;
+ $title=&mt($title);
my $uctitle=uc($title);
return "\n
$uctitle:".
"
".
@@ -337,6 +339,7 @@ sub hiddenfield {
sub selectbox {
my ($title,$name,$value,$functionref,@idlist)=@_;
+ $title=&mt($title);
my $uctitle=uc($title);
$value=(split(/\s*,\s*/,$value))[-1];
my $selout="\n
$uctitle:".
@@ -667,7 +670,10 @@ sub fix_ids_and_indices {
}
}
# probably a image type
Target:'.$thisdistarget.' ');
+ &Apache::loncommon::filedescription($thistype).' ');
+
+ $r->print(<
+$thisdisfn
+ENDCAPTION
+ $r->print(
+ 'Target:'.$thisdistarget.' ');
if (($cuname ne $ENV{'user.name'}) || ($cudom ne $ENV{'user.domain'})) {
$r->print('
Co-Author: '.$cuname.' at '.$cudom.
@@ -1766,9 +1781,10 @@ unless ($ENV{'form.phase'} eq 'two') {
}
if (&Apache::loncommon::fileembstyle($thistype) eq 'ssi') {
- $r->print(' Diffs with Current Version ');
+ $r->print(<
+Diffs with Current Version
+ENDDIFF
}
# ------------------ Publishing from $thisfn to $thistarget with $thisembstyle.