--- loncom/interface/lonnotify.pm 2009/02/02 13:27:39 1.33 +++ loncom/interface/lonnotify.pm 2010/05/14 18:29:52 1.36 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Sending messages # -# $Id: lonnotify.pm,v 1.33 2009/02/02 13:27:39 schafran Exp $ +# $Id: lonnotify.pm,v 1.36 2010/05/14 18:29:52 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -118,7 +118,7 @@ sub start_page { $start_page $breadcrumbs
-
+ ENDONE return $output; @@ -143,19 +143,35 @@ function next_page(caller) { } |; - my $output = &start_page(&add_script($jscript), - 'Broadcast e-mail to Domain', $formname); - $output .= ''; - $output .= ''. - ''. - '
'. - &mt('Send a new e-mail to selected users from this domain').'
'. - &mt('Display e-mail sent by Domain Coordinators in this domain'). - '
'; - $output .= &end_page(); - - $r->print($output); + my @menu= + ({ categorytitle=>'Broadcast e-mail to Domain', + items =>[ + { linktext => 'Send e-mail to selected users', + url => 'javascript:next_page('."'new'".')', + permission => 1, + #help => '', + icon => 'mail-reply-all.png', + linktitle => 'Send a new e-mail to selected users from this domain' + }, + { 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) + .'' + .&Apache::lonhtmlcommon::generate_menu(@menu) + .&end_page() + ); return; } @@ -164,7 +180,7 @@ sub print_display_option_form { &Apache::lonhtmlcommon::add_breadcrumb({text=>"Display options"}); my $cmd = 'display'; - my $submit_text = 'Display e-mail'; + my $submit_text = &mt('Display e-mail'); my @roles = ('dc'); my $now = time;