--- loncom/publisher/lonpublisher.pm 2003/04/02 02:17:10 1.121
+++ loncom/publisher/lonpublisher.pm 2003/07/25 02:04:51 1.127
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.121 2003/04/02 02:17:10 www Exp $
+# $Id: lonpublisher.pm,v 1.127 2003/07/25 02:04:51 bowersj2 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
".'