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