--- loncom/interface/lonmsg.pm 2004/03/01 01:19:51 1.87 +++ loncom/interface/lonmsg.pm 2004/03/01 20:57:47 1.91 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.87 2004/03/01 01:19:51 www Exp $ +# $Id: lonmsg.pm,v 1.91 2004/03/01 20:57:47 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -802,7 +802,9 @@ ENDDISHEADER sub compout { my ($r,$forwarding,$broadcast)=@_; - my $dispcrit=''; + &printheader($r,'/adm/email?compose=upload', + 'Distribute from uploaded file'); + my $dispcrit=''; my $dissub=''; my $dismsg=''; my $func=&mt('Send New'); @@ -855,8 +857,8 @@ ENDREC $r->print(<<"ENDCOMP");