--- loncom/publisher/lonpublisher.pm 2003/06/24 23:24:48 1.122
+++ loncom/publisher/lonpublisher.pm 2003/07/15 20:18:30 1.125
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.122 2003/06/24 23:24:48 albertel Exp $
+# $Id: lonpublisher.pm,v 1.125 2003/07/15 20:18:30 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -304,7 +304,9 @@ string which presents the form field (fo
#########################################
sub textfield {
my ($title,$name,$value)=@_;
- return "\n
$title:
".
+ my $uctitle=uc($title);
+ return "\n
$uctitle:".
+ "
".
'';
}
@@ -316,8 +318,9 @@ sub hiddenfield {
sub selectbox {
my ($title,$name,$value,$functionref,@idlist)=@_;
my $uctitle=uc($title);
+ $value=(split(/\s*,\s*/,$value))[-1];
my $selout="\n