--- 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