loncom/interface/lonnotify.pm - diff

Return to lonnotify.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2006/03/16 20:27:26	version 1.15, 2006/03/23 22:32:10
Line 87 sub add_script {	Line 87 sub add_script {
sub start_page {	sub start_page {
my ($jscript,$bread_title,$formname) = @_;	my ($jscript,$bread_title,$formname) = @_;

my $html = &Apache::lonxml::xmlbegin();

my $head = &Apache::loncommon::head('Notification E-mail',$jscript);

my $loadcode;	my $loadcode;
if ((defined($env{'form.origin'}))	if ((defined($env{'form.origin'}))
&& ($env{'form.command'} eq 'compose'	&& ($env{'form.command'} eq 'compose'
Line 109 sub start_page {	Line 105 sub start_page {
}	}

$loadcode = ' onLoad="'.$loadcode.'" ';	$loadcode = ' onLoad="'.$loadcode.'" ';
my $bodytag =	my $start_page =
&Apache::loncommon::bodytag('Broadcast e-mail to users', undef,	&Apache::loncommon::start_page('Broadcast e-mail to users', $jscript,
$loadcode);	{'add_entries' => $loadcode,});

my $breadcrumbs =	my $breadcrumbs =
&Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title,	&Apache::lonhtmlcommon::breadcrumbs(undef,$bread_title,
'Broadcast_system_email');	'Broadcast_system_email');
my $output = <<"ENDONE";	my $output = <<"ENDONE";
$html	$start_page
$head
$bodytag
$breadcrumbs	$breadcrumbs
<br />	<br />
<form name="$formname" method="POST">	<form name="$formname" method="POST">