--- loncom/interface/lonnotify.pm 2006/03/16 20:27:26 1.14
+++ loncom/interface/lonnotify.pm 2006/03/23 22:32:10 1.15
@@ -87,10 +87,6 @@ sub add_script {
sub start_page {
my ($jscript,$bread_title,$formname) = @_;
- my $html = &Apache::lonxml::xmlbegin();
-
- my $head = &Apache::loncommon::head('Notification E-mail',$jscript);
-
my $loadcode;
if ((defined($env{'form.origin'}))
&& ($env{'form.command'} eq 'compose'
@@ -109,17 +105,14 @@ sub start_page {
}
$loadcode = ' onLoad="'.$loadcode.'" ';
- my $bodytag =
- &Apache::loncommon::bodytag('Broadcast e-mail to users', undef,
- $loadcode);
-
+ my $start_page =
+ &Apache::loncommon::start_page('Broadcast e-mail to users', $jscript,
+ {'add_entries' => $loadcode,});
my $breadcrumbs =
&Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title,
'Broadcast_system_email');
my $output = <<"ENDONE";
-$html
-$head
-$bodytag
+$start_page
$breadcrumbs