--- loncom/interface/loncommon.pm 2009/02/03 19:36:19 1.741 +++ loncom/interface/loncommon.pm 2009/03/01 13:23:12 1.759 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.741 2009/02/03 19:36:19 harmsja Exp $ +# $Id: loncommon.pm,v 1.759 2009/03/01 13:23:12 neumanie Exp $ # # Copyright Michigan State University Board of Trustees # @@ -923,19 +923,17 @@ sub help_open_topic { } # Add the text - if ($text ne "") { - $template .= - "". - "
$text"; + if ($text ne "") { + $template.="$text"; } # Add the graphic my $title = &mt('Online Help'); my $helpicon=&lonhttpdurl("/adm/help/help.png"); $template .= <<"ENDTEMPLATE"; - (Help: $topic) + (Help: $topic) ENDTEMPLATE - if ($text ne '') { $template.='
' }; + return $template; } @@ -1746,7 +1744,7 @@ sub select_level_form { =pod -=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc) +=item * &select_dom_form($defdom,$name,$includeempty,$showdomdesc,$autosubmit) Returns a string containing a \n"; + my $selectdomain = "