version 1.122, 2003/09/04 01:09:04
|
version 1.123, 2003/09/04 22:36:47
|
Line 1678 sub overview {
|
Line 1678 sub overview {
|
<title>LON-CAPA Course Environment</title> |
<title>LON-CAPA Course Environment</title> |
</head> |
</head> |
$bodytag |
$bodytag |
<form method="post" action="/adm/parmset" name="overview"> |
<form method="post" action="/adm/parmset" name="overviewform"> |
<input type="hidden" name="overview" value="1" /> |
<input type="hidden" name="overview" value="1" /> |
ENDOVER |
ENDOVER |
# Read and display |
# Read and display |
Line 1686 ENDOVER
|
Line 1686 ENDOVER
|
my $oldsection=''; |
my $oldsection=''; |
my $oldrealm=''; |
my $oldrealm=''; |
my $oldpart=''; |
my $oldpart=''; |
|
my $pointer=0; |
foreach my $thiskey (sort keys %resourcedata) { |
foreach my $thiskey (sort keys %resourcedata) { |
my ($course,$middle,$part,$name)= |
if ($resourcedata{$thiskey.'.type'}) { |
($thiskey=~/^(\w+)\.(.*)\.*([\w\s]+)\.(\w+)$/); |
my ($course,$middle,$part,$name)= |
unless ($name eq 'type') { |
($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/); |
my $section='All Students'; |
my $section='All Students'; |
if ($middle=~/^\[(.*)\]\./) { |
if ($middle=~/^\[(.*)\]\./) { |
$section='Group/Section: '.$1; |
$section='Group/Section: '.$1; |
$middle=~s/^\[(.*)\]\.//; |
$middle=~s/^\[(.*)\]\.//; |
} |
} |
my $realm='All Resources'; |
$middle=~s/\.$//; |
|
my $realm='<font color="red">All Resources</font>'; |
if ($middle=~/^(.+)\_\_\_\(all\)$/) { |
if ($middle=~/^(.+)\_\_\_\(all\)$/) { |
$realm='Folder/Map: '.$1; |
$realm='<font color="green">Folder/Map: '.&Apache::lonnet::gettitle($1).'</font>'; |
} elsif ($middle) { |
} elsif ($middle) { |
$realm='Resource: '.$middle; |
$realm='<font color="orange">Resource: '.&Apache::lonnet::gettitle($middle).'</font>'; |
} |
} |
if ($section ne $oldsection) { |
if ($section ne $oldsection) { |
$r->print("\n<hr /><h1>$section</h1>"); |
$r->print("\n<hr /><h1>$section</h1>"); |
Line 1712 ENDOVER
|
Line 1714 ENDOVER
|
$oldpart=''; |
$oldpart=''; |
} |
} |
if ($part ne $oldpart) { |
if ($part ne $oldpart) { |
$r->print("\n<h3>Part: $part</h3>"); |
$r->print("\n<h3><font color='blue'>Part: $part</font></h3>"); |
$oldpart=$part; |
$oldpart=$part; |
} |
} |
|
# |
$r->print('<br />'.$name.': '.$thiskey.' = '.$resourcedata{$thiskey}); |
# Ready to print |
|
# |
|
$r->print('<br /><b>'.$name.':</b>'); |
|
if ($resourcedata{$thiskey.'.type'}=~/^date/) { |
|
my $jskey='key_'.$pointer; |
|
$pointer++; |
|
$r->print( |
|
&Apache::lonhtmlcommon::date_setter('overviewform', |
|
$jskey, |
|
$resourcedata{$thiskey}). |
|
'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />' |
|
); |
|
} else { |
|
$r->print( |
|
'<input type="text" name="set_'.$thiskey.'" value="'. |
|
$resourcedata{$thiskey}.'">'); |
|
} |
} |
} |
} |
} |
$r->print('</form></body></html>'); |
$r->print('</form></body></html>'); |