--- loncom/interface/loncommon.pm 2004/04/19 21:28:19 1.188 +++ loncom/interface/loncommon.pm 2004/04/30 23:04:53 1.190 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.188 2004/04/19 21:28:19 matthew Exp $ +# $Id: loncommon.pm,v 1.190 2004/04/30 23:04:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1651,6 +1651,7 @@ sub plainname { $names{'lastname'}.' '.$names{'generation'}; $name=~s/\s+$//; $name=~s/\s+/ /g; + if ($name !~ /\S/) { $name=$uname.'@'.$udom; } return $name; } @@ -1845,7 +1846,7 @@ sub fileembstyle { sub filecategoryselect { my ($name,$value)=@_; - return &select_form($name,$value, + return &select_form($value,$name, '' => &mt('Any category'), map { $_,$_ } sort(keys(%category_extensions))); }