--- loncom/interface/lonmsg.pm	2004/03/01 02:21:57	1.88
+++ loncom/interface/lonmsg.pm	2004/03/01 16:19:45	1.89
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.88 2004/03/01 02:21:57 www Exp $
+# $Id: lonmsg.pm,v 1.89 2004/03/01 16:19:45 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');
@@ -942,6 +944,16 @@ $content{'sendername'}.'@'.
     }
 }
 
+# ---------------------------------------------------------------- Print header
+
+sub printheader {
+    my ($r,$url,$desc,$baseurl)=@_;
+    &Apache::lonhtmlcommon::add_breadcrumb
+	({href=>$url,
+	  text=>$desc});
+    &header($r,$baseurl);
+}
+
 # ---------------------------------------------------------------- Face to face
 
 sub facetoface {
@@ -949,11 +961,9 @@ sub facetoface {
     unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
 	return;
     }
-    &Apache::lonhtmlcommon::add_breadcrumb
-	({href=>'/adm/dropadd?recordftf=query',
-	  text=>"User Notes, Face-to-Face, Critical Messages",
-	 faq=>12,bug=>'Communication Tools'});
-    &header($r);
+    &printheader($r,
+		 '/adm/email?recordftf=query',
+		 "User Notes, Face-to-Face, Critical Messages");
 # from query string
 
     if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; }