version 1.160.6.94, 2019/08/01 01:45:48
|
version 1.160.6.96, 2019/08/03 16:17:39
|
Line 5559 sub noninst_users {
|
Line 5559 sub noninst_users {
|
} |
} |
$output .= '</td>'."\n"; |
$output .= '</td>'."\n"; |
} |
} |
} |
|
$output .= "</tr></table></td></tr>\n"; |
$output .= "</tr></table></td></tr>\n"; |
return $output; |
return $output; |
} |
} |
Line 9671 sub modify_contacts {
|
Line 9670 sub modify_contacts {
|
my (%others,%to,%bcc,%includestr,%includeloc); |
my (%others,%to,%bcc,%includestr,%includeloc); |
my @contacts = ('supportemail','adminemail'); |
my @contacts = ('supportemail','adminemail'); |
my @mailings = ('errormail','packagesmail','helpdeskmail','otherdomsmail', |
my @mailings = ('errormail','packagesmail','helpdeskmail','otherdomsmail', |
'lonstatusmail','requestsmail','updatesmail','idconflictsmail',hostipmail'); |
'lonstatusmail','requestsmail','updatesmail','idconflictsmail','hostipmail'); |
my @toggles = ('reporterrors','reportupdates'); |
my @toggles = ('reporterrors','reportupdates'); |
my ($fields,$fieldtitles,$fieldoptions,$possoptions) = &helpform_fields(); |
my ($fields,$fieldtitles,$fieldoptions,$possoptions) = &helpform_fields(); |
foreach my $type (@mailings) { |
foreach my $type (@mailings) { |