version 1.64, 2006/12/06 21:52:49
|
version 1.66, 2007/03/02 23:17:58
|
Line 90 sub readcalendar {
|
Line 90 sub readcalendar {
|
$navmap = Apache::lonnavmaps::navmap->new(); |
$navmap = Apache::lonnavmaps::navmap->new(); |
} |
} |
my %resourcedata= |
my %resourcedata= |
&Apache::lonnet::dump('resourcedata',$coursedom,$coursenum); |
&Apache::lonnet::get_courseresdata($coursenum,$coursedom); |
foreach my $thiskey (sort keys %resourcedata) { |
foreach my $thiskey (sort keys %resourcedata) { |
if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
my ($course,$middle,$part,$name)= |
my ($course,$middle,$part,$name)= |
Line 497 Post announcements to the system login a
|
Line 497 Post announcements to the system login a
|
Check machines:<br /> |
Check machines:<br /> |
SERVERANNOUNCE |
SERVERANNOUNCE |
# list servers |
# list servers |
foreach my $host (sort(keys(%Apache::lonnet::hostname))) { |
my %hostname = &Apache::lonnet::all_hostnames(); |
|
foreach my $host (sort(keys(%hostname))) { |
if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) { |
if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) { |
$r->print ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '. |
$r->print ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '. |
$host.' <tt>'.$Apache::lonnet::hostname{$host}.'</tt> '. |
$host.' <tt>'.$hostname{$host}.'</tt> '. |
'</label><a href="http://'.$Apache::lonnet::hostname{$host}. |
'</label><a href="http://'.$hostname{$host}. |
'/announcement.txt" target="annowin">current</a>'); |
'/announcement.txt" target="annowin">current</a>'); |
} |
} |
} |
} |