version 1.28, 2001/03/26 22:28:37
|
version 1.29, 2001/05/10 01:06:06
|
Line 11
|
Line 11
|
# |
# |
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, |
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, |
# 12/08,12/12, |
# 12/08,12/12, |
# 16/01/01,02/08,03/20,03/23,03/24,03/26 Gerd Kortemeyer |
# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09 Gerd Kortemeyer |
|
|
package Apache::lonparmset; |
package Apache::lonparmset; |
|
|
Line 186 sub handler {
|
Line 186 sub handler {
|
|
|
my $pscat=$ENV{'form.pscat'}; |
my $pscat=$ENV{'form.pscat'}; |
my $pschp=$ENV{'form.pschp'}; |
my $pschp=$ENV{'form.pschp'}; |
|
my $pssymb=''; |
|
|
|
# ----------------------------------------------- Was this started from grades? |
|
|
|
if (($ENV{'form.command'} eq 'set') && ($ENV{'form.url'}) |
|
&& (!$ENV{'form.dis'})) { |
|
my $url=$ENV{'form.url'}; |
|
$url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
|
$pssymb=&Apache::lonnet::symbread($url); |
|
$pscat='all'; |
|
$pschp=''; |
|
} else { |
|
$ENV{'form.url'}=''; |
|
} |
|
|
my $id=$ENV{'form.id'}; |
my $id=$ENV{'form.id'}; |
if (($id) && ($udom)) { |
if (($id) && ($udom)) { |
$uname=(&Apache::lonnet::idget($udom,$id))[1]; |
$uname=(&Apache::lonnet::idget($udom,$id))[1]; |
Line 473 at Domain
|
Line 487 at Domain
|
</b> |
</b> |
<input type="hidden" value='' name="pres_value"> |
<input type="hidden" value='' name="pres_value"> |
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_marker"> |
<input type="hidden" value='' name="pres_marker"> |
ENDHEAD |
ENDHEAD |
|
if ($ENV{'form.url'}) { |
|
$r->print('<input type="hidden" value="'.$ENV{'form.url'}. |
|
'" name="url"><input type="hidden" name="command" value="set">'); |
|
} |
map { |
map { |
$r->print('<input type="hidden" value="'. |
$r->print('<input type="hidden" value="'. |
$ENV{'form.recent_'.$_}.'" name="recent_'.$_.'">'); |
$ENV{'form.recent_'.$_}.'" name="recent_'.$_.'">'); |
Line 494 ENDHEAD
|
Line 512 ENDHEAD
|
$r->print('<option value=all>All Maps</option>'); |
$r->print('<option value=all>All Maps</option>'); |
map { |
map { |
$r->print('<option value="'.$_.'"'); |
$r->print('<option value="'.$_.'"'); |
if ($pschp eq $_) { $r->print(' selected'); } |
if (($pssymb=~/^$allmaps{$_}/) || |
|
($pschp eq $_)) { $r->print(' selected'); } |
$r->print('>'.$allmaps{$_}.'</option>'); |
$r->print('>'.$allmaps{$_}.'</option>'); |
} keys %allmaps; |
} keys %allmaps; |
$r->print( |
$r->print( |
Line 506 ENDHEAD
|
Line 525 ENDHEAD
|
$r->print('>'.$allkeys{$_}.'</option>'); |
$r->print('>'.$allkeys{$_}.'</option>'); |
} keys %allkeys; |
} keys %allkeys; |
$r->print( |
$r->print( |
'</select></td></tr></table><br><input type="submit" value="Display">'); |
'</select></td></tr></table><br><input name=dis type="submit" value="Display">' |
if (($pscat) || ($pschp)) { |
); |
|
if (($pscat) || ($pschp) || ($pssymb)) { |
# ----------------------------------------------------------------- Start Table |
# ----------------------------------------------------------------- Start Table |
my $catmarker='parameter_'.$pscat; |
my $catmarker='parameter_'.$pscat; |
$catmarker=~s/\./\_/g; |
$catmarker=~s/\./\_/g; |
Line 545 ENDTABLEHEADFOUR
|
Line 565 ENDTABLEHEADFOUR
|
my $defbgtwo=''; |
my $defbgtwo=''; |
map { |
map { |
my $rid=$_; |
my $rid=$_; |
if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})) { |
my ($inmapid)=($rid=~/\.(\d+)$/); |
|
if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}) || |
|
($pssymb eq $mapp{$rid}.'___'.$inmapid.'___'. |
|
&Apache::lonnet::declutter($bighash{'src_'.$rid}))) { |
# ------------------------------------------------------ Entry for one resource |
# ------------------------------------------------------ Entry for one resource |
if ($defbgone eq '"E0E099"') { |
if ($defbgone eq '"E0E099"') { |
$defbgone='"E0E0DD"'; |
$defbgone='"E0E0DD"'; |