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.16, 2006/04/10 21:40:08
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 108 sub start_page {	Line 104 sub start_page {
}	}
}	}

$loadcode = ' onLoad="'.$loadcode.'" ';	my $start_page =
my $bodytag =	&Apache::loncommon::start_page('Broadcast e-mail to users', $jscript,
&Apache::loncommon::bodytag('Broadcast e-mail to users', undef,	{'add_entries' =>
$loadcode);	{'onload' => $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">