--- loncom/publisher/lonpublisher.pm 2003/03/29 05:58:12 1.120
+++ loncom/publisher/lonpublisher.pm 2003/08/14 13:48:34 1.129
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.120 2003/03/29 05:58:12 albertel Exp $
+# $Id: lonpublisher.pm,v 1.129 2003/08/14 13:48:34 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -82,6 +82,26 @@ invocation by F $title: $uctitle:".
+ " $uctitle:".
- "
".
+ my $uctitle=uc($title);
+ return "\n
".
'';
}
@@ -316,8 +338,9 @@ sub hiddenfield {
sub selectbox {
my ($title,$name,$value,$functionref,@idlist)=@_;
my $uctitle=uc($title);
+ $value=(split(/\s*,\s*/,$value))[-1];
my $selout="\n
".'