--- loncom/interface/lonnotify.pm 2008/11/25 22:03:22 1.30 +++ loncom/interface/lonnotify.pm 2021/03/06 13:41:46 1.44 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Sending messages # -# $Id: lonnotify.pm,v 1.30 2008/11/25 22:03:22 schafran Exp $ +# $Id: lonnotify.pm,v 1.44 2021/03/06 13:41:46 raeburn 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; @@ -204,8 +220,8 @@ sub print_display_option_form { $output .= &Apache::lonhtmlcommon::row_title(&mt('Choose sender(s)')); my %personnel = &Apache::lonnet::get_domain_roles($cdom,\@roles); my @domcc = (); - foreach my $server (keys %personnel) { - foreach my $user (sort(keys %{$personnel{$server}})) { + foreach my $server (keys(%personnel)) { + foreach my $user (sort(keys(%{$personnel{$server}}))) { my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,$user); unless (grep/^$uname:$udom$/,@domcc) { my %userinfo = &Apache::lonnet::get('environment',['lastname','firstname'],$udom,$uname); @@ -270,11 +286,11 @@ ENDSCRIPT $output .= &Apache::loncommon::start_data_table(); if ($msgcount > 0) { $output .= &Apache::loncommon::start_data_table_header_row(). - 'Date'. - 'Subject'. - 'Sender'. - 'Message'. - 'Recipients'. + ''.&mt('Date').''. + ''.&mt('Subject').''. + ''.&mt('Sender').''. + ''.&mt('Message').''. + ''.&mt('Recipients').''. &Apache::loncommon::end_data_table_header_row(); if (($env{'form.sortby'} eq 'date') || ($env{'form.sortby'} eq '') || (!defined($env{'form.sortby'})) || (($env{'form.sortby'} eq 'sender') && (@senders <= 1))) { @@ -341,7 +357,7 @@ ENDSCRIPT } } else { $output .= &Apache::loncommon::start_data_table_empty_row(). - 'No mail sent matching supplied criteria'. + ''.&mt('No mail sent matching supplied criteria').''. &Apache::loncommon::end_data_table_empty_row(); } $output .= &Apache::loncommon::end_data_table(); @@ -362,7 +378,6 @@ ENDSCRIPT sub print_selection_form { my ($r,$formname,$cdom) = @_; - my %coursecodes = (); my %codes = (); my @codetitles = (); my %cat_titles = (); @@ -370,9 +385,7 @@ sub print_selection_form { my %idlist = (); my %idnums = (); my %idlist_titles = (); - my $caller = 'global'; my $totcodes = 0; - my $format_reply; my $jscript = ''; my %lt=&Apache::lonlocal::texthash( 'buil' => 'Building valid e-mail address from username, if missing from preferences:', @@ -383,10 +396,15 @@ sub print_selection_form { &Apache::lonhtmlcommon::add_breadcrumb ({text=>"Select Audience"}); - $totcodes = &Apache::courseclassifier::retrieve_instcodes(\%coursecodes,$cdom,$totcodes); - if ($totcodes > 0) { - $format_reply = &Apache::lonnet::auto_instcode_format($caller,$cdom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order); - if ($format_reply eq 'ok') { + my $instcats = &Apache::lonnet::get_dom_instcats($cdom); + if (ref($instcats) eq 'HASH') { + if ((ref($instcats->{'codetitles'}) eq 'ARRAY') && (ref($instcats->{'codes'}) eq 'HASH') && + (ref($instcats->{'cat_titles'}) eq 'HASH') && (ref($instcats->{'cat_order'}) eq 'HASH')) { + %codes = %{$instcats->{'codes'}}; + @codetitles = @{$instcats->{'codetitles'}}; + %cat_titles = %{$instcats->{'cat_titles'}}; + %cat_order = %{$instcats->{'cat_order'}}; + $totcodes = scalar(keys(%codes)); my $numtypes = @codetitles; &Apache::courseclassifier::build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles); my ($scripttext,$longtitles) = &Apache::courseclassifier::javascript_definitions(\@codetitles,\%idlist,\%idlist_titles,\%idnums,\%cat_titles); @@ -394,9 +412,10 @@ sub print_selection_form { my $allidlist = $idlist{$codetitles[0]}; $jscript .= &Apache::courseclassifier::courseset_js_start($formname,$longtitles_str,$allidlist); $jscript .= $scripttext; - $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,@codetitles); + $jscript .= &Apache::courseclassifier::javascript_code_selections($formname,\@codetitles); } } + my @standardnames = &Apache::loncommon::get_standard_codeitems(); my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($cdom); @@ -420,7 +439,7 @@ function setCourseCat(formname) { if (formname.Year.options[formname.Year.selectedIndex].value == -1) { return; } - courseSet('Year'); + courseSet('$codetitles[0]'); for (var j=0; j'."\n"; my $submit_text = $lt{'comp'}; my $cmd = 'compose'; - $output .= &Apache::lonhtmlcommon::role_select_row(\@roles,'Roles'); - $output .= &Apache::lonhtmlcommon::course_select_row('Courses',$formname,$totcodes,\@codetitles,\%idlist,\%idlist_titles); + $output .= &Apache::lonhtmlcommon::role_select_row(\@roles,&mt('Roles')); + $output .= &Apache::lonhtmlcommon::course_select_row(&mt('Courses'),$formname,$totcodes,\@codetitles,\%idlist,\%idlist_titles,undef,undef,\@standardnames); $output .= &Apache::lonhtmlcommon::status_select_row(\%longtypes,&mt('Access status')); - $output .= &Apache::lonhtmlcommon::email_default_row(\%authtypes,&mt('Username -> Email conversion'),$descrip); + $output .= &Apache::lonhtmlcommon::email_default_row(\%authtypes,&mt('Username -> E-mail conversion'),$descrip); $output .= &Apache::lonhtmlcommon::submit_row(&mt('Submit'),$cmd,$submit_text); $output .= &Apache::lonhtmlcommon::end_pick_box(); $output .= &end_page(); @@ -510,20 +529,15 @@ function goBack(target) { %courses = &Apache::lonnet::courseiddump($cdom,'.','.','.','.','.', undef,undef,'Course'); } elsif ($coursefilter eq 'category') { - my $instcode = ''; - my @cats = ('Semester','Year','Department','Number'); - foreach my $category (@cats) { - if (defined($env{'form.'.$category})) { - unless ($env{'form.'.$category} eq '-1') { - $instcode .= $env{'form.'.$category}; - } - } - } + my $instcode = &Apache::courseclassifier::instcode_from_selectors($cdom); + my $regexp = ''; if ($instcode eq '') { $instcode = '.'; + } else { + $regexp = 1; } %courses = &Apache::lonnet::courseiddump($cdom,'.','.',$instcode,'.','.', - undef,undef,'Course'); + undef,undef,'Course',$regexp); } elsif ($coursefilter eq 'specific') { if ($env{'form.coursetotal'} > 1) { my @course_ids = split(/&&/,$env{'form.courselist'}); @@ -633,7 +647,7 @@ function goBack(target) { $output .= &Apache::loncommon::end_data_table(); if (@unmatched) { $output .= '

'.&mt('Could not determine e-mail addresses for the following users:').''; @@ -693,7 +707,7 @@ ENDSCRIPT ''.&mt('Status').''. ''.&mt('Subject').''. ''.&mt('Message').''. - ''.&mt('Recipents').''. + ''.&mt('Recipients').''. &Apache::loncommon::end_data_table_header_row(); $output .= &Apache::loncommon::start_data_table_row(). ''.&mt('Sent').''. @@ -708,10 +722,9 @@ ENDSCRIPT &Apache::loncommon::end_data_table_row(). &Apache::loncommon::end_data_table(); } else { - $output .= 'No mail sent - no recipients identified'; + $output .= &mt('No mail sent - no recipients identified'); } - $output .= '
Send another -e-mail?'."\n"; + $output .= '
'.&mt('Send another e-mail').''."\n"; $output .= ''."\n". ''."\n"; $output .= &Apache::lonhtmlcommon::echo_form_input(['command','origin']); @@ -731,6 +744,7 @@ sub broadcast_email { $msg->to($to); $msg->subject($subject); $msg->add('From',"$from"); + $msg->add('Content-type','text/plain; charset=UTF-8'); if (my $fh = $msg->open()) { print $fh $message; $fh->close; @@ -770,11 +784,11 @@ sub get_user_info { sub form_elements { my ($longtypes,$authtypes) = @_; %{$longtypes} = ( - active => 'Currently has access', - previous => 'Previously had access', - future => 'Will have future access', + active => &mt('Currently has access'), + previous => &mt('Previously had access'), + future => &mt('Will have future access'), ); - %{$authtypes} = ( + %{$authtypes} = &Apache::lonlocal::texthash ( krb4 => 'Kerberos 4', krb5 => 'Kerberos 5', internal => 'Internal (LON-CAPA)',