version 1.34, 2009/05/11 16:51:27
|
version 1.36, 2010/05/14 18:29:52
|
Line 118 sub start_page {
|
Line 118 sub start_page {
|
$start_page |
$start_page |
$breadcrumbs |
$breadcrumbs |
<br /> |
<br /> |
<form name="$formname" method="post"> |
<form name="$formname" method="post" action=""> |
ENDONE |
ENDONE |
|
|
return $output; |
return $output; |
Line 143 function next_page(caller) {
|
Line 143 function next_page(caller) {
|
} |
} |
|; |
|; |
|
|
my $output = &start_page(&add_script($jscript), |
|
'Broadcast e-mail to Domain', $formname); |
|
|
|
$output .= '<input type="hidden" name="command" />'; |
my @menu= |
$output .= '<table class="LC_notify_front_page">'. |
({ categorytitle=>'Broadcast e-mail to Domain', |
'<tr><td><a href="javascript:next_page('."'new'".')">'. |
items =>[ |
&mt('Send a new e-mail to selected users from this domain').'</a></td></tr><tr>'. |
{ linktext => 'Send e-mail to selected users', |
'<td><a href="javascript:next_page('."'view'".')">'. |
url => 'javascript:next_page('."'new'".')', |
&mt('Display e-mail sent by Domain Coordinators in this domain'). |
permission => 1, |
'</a></td></tr></table>'; |
#help => '', |
$output .= &end_page(); |
icon => 'mail-reply-all.png', |
|
linktitle => 'Send a new e-mail to selected users from this domain' |
$r->print($output); |
}, |
|
{ linktext => 'Display sent e-mails', |
|
url => 'javascript:next_page('."'view'".')', |
|
permission => 1, |
|
#help => '', |
|
icon => 'messalog.png', |
|
linktitle => 'Display e-mail sent by Domain Coordinators in this domain' |
|
}, |
|
] |
|
}, |
|
); |
|
|
|
$r->print( |
|
&start_page(&add_script($jscript), |
|
'Broadcast e-mail to Domain', $formname) |
|
.'<input type="hidden" name="command" />' |
|
.&Apache::lonhtmlcommon::generate_menu(@menu) |
|
.&end_page() |
|
); |
return; |
return; |
} |
} |
|
|
Line 164 sub print_display_option_form {
|
Line 180 sub print_display_option_form {
|
&Apache::lonhtmlcommon::add_breadcrumb({text=>"Display options"}); |
&Apache::lonhtmlcommon::add_breadcrumb({text=>"Display options"}); |
|
|
my $cmd = 'display'; |
my $cmd = 'display'; |
my $submit_text = 'Display e-mail'; |
my $submit_text = &mt('Display e-mail'); |
my @roles = ('dc'); |
my @roles = ('dc'); |
my $now = time; |
my $now = time; |
|
|