version 1.30, 2001/07/06 12:11:22
|
version 1.36, 2001/10/05 21:50:25
|
Line 12
|
Line 12
|
# 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,05/09, |
# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09, |
# 07/05,07/06 Gerd Kortemeyer |
# 07/05,07/06,08/08,08/09,09/01,09/21 Gerd Kortemeyer |
|
|
package Apache::lonparmset; |
package Apache::lonparmset; |
|
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
|
use Apache::loncommon; |
use GDBM_File; |
use GDBM_File; |
|
|
|
|
Line 186 sub assessparms {
|
Line 187 sub assessparms {
|
$pssymb=&Apache::lonnet::symbread($url); |
$pssymb=&Apache::lonnet::symbread($url); |
$pscat='all'; |
$pscat='all'; |
$pschp=''; |
$pschp=''; |
|
} elsif ($ENV{'form.symb'}) { |
|
$pssymb=$ENV{'form.symb'}; |
|
$pscat='all'; |
|
$pschp=''; |
} else { |
} else { |
$ENV{'form.url'}=''; |
$ENV{'form.url'}=''; |
} |
} |
Line 223 sub assessparms {
|
Line 228 sub assessparms {
|
my %name=&Apache::lonnet::userenvironment($udom,$uname, |
my %name=&Apache::lonnet::userenvironment($udom,$uname, |
('firstname','middlename','lastname','generation','id')); |
('firstname','middlename','lastname','generation','id')); |
$message="\n<p>\nFull Name: ". |
$message="\n<p>\nFull Name: ". |
$name{'firstname'}.' '.$name{'middlename'} |
$name{'firstname'}.' '.$name{'middlename'}.' ' |
.$name{'lastname'}.' '.$name{'generation'}. |
.$name{'lastname'}.' '.$name{'generation'}. |
"<br>\nID: ".$name{'id'}.'<p>'; |
"<br>\nID: ".$name{'id'}.'<p>'; |
} |
} |
Line 291 sub assessparms {
|
Line 296 sub assessparms {
|
# ---------------------------------------------------------- Anything to store? |
# ---------------------------------------------------------- Anything to store? |
if ($ENV{'form.pres_marker'}) { |
if ($ENV{'form.pres_marker'}) { |
my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); |
my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); |
$spnam=~s/\_/\./; |
$spnam=~s/\_([^\_]+)$/\.$1/; |
# ---------------------------------------------------------- Construct prefixes |
# ---------------------------------------------------------- Construct prefixes |
|
|
my $symbparm=$symbp{$sresid}.'.'.$spnam; |
my $symbparm=$symbp{$sresid}.'.'.$spnam; |
Line 500 ENDHEAD
|
Line 505 ENDHEAD
|
$r->print('<option value="'.$_.'"'); |
$r->print('<option value="'.$_.'"'); |
if ($fcat eq $_) { $r->print(' selected'); } |
if ($fcat eq $_) { $r->print(' selected'); } |
$r->print('>'.$allkeys{$_}.'</option>'); |
$r->print('>'.$allkeys{$_}.'</option>'); |
} keys %allkeys; |
} reverse sort keys %allkeys; |
$r->print( |
$r->print( |
'</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>'); |
'</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>'); |
$r->print('<option value=all>All Maps</option>'); |
$r->print('<option value=all>All Maps</option>'); |
Line 517 ENDHEAD
|
Line 522 ENDHEAD
|
$r->print('<option value="'.$_.'"'); |
$r->print('<option value="'.$_.'"'); |
if ($pscat eq $_) { $r->print(' selected'); } |
if ($pscat eq $_) { $r->print(' selected'); } |
$r->print('>'.$allkeys{$_}.'</option>'); |
$r->print('>'.$allkeys{$_}.'</option>'); |
} keys %allkeys; |
} reverse sort keys %allkeys; |
$r->print( |
$r->print( |
'</select></td></tr></table><br><input name=dis type="submit" value="Display">' |
'</select></td></tr></table><br><input name=dis type="submit" value="Display">' |
); |
); |
Line 526 ENDHEAD
|
Line 531 ENDHEAD
|
my $catmarker='parameter_'.$pscat; |
my $catmarker='parameter_'.$pscat; |
$catmarker=~s/\./\_/g; |
$catmarker=~s/\./\_/g; |
my $coursespan=$csec?8:5; |
my $coursespan=$csec?8:5; |
|
my $csuname=$ENV{'user.name'}; |
|
my $csudom=$ENV{'user.domain'}; |
$r->print(<<ENDTABLEHEAD); |
$r->print(<<ENDTABLEHEAD); |
<p><table border=2> |
<p><table border=2> |
<tr><td colspan=5></td> |
<tr><td colspan=5></td> |
Line 535 ENDTABLEHEAD
|
Line 542 ENDTABLEHEAD
|
$r->print("<th colspan=3 rowspan=2>User $uname at Domain $udom</th>"); |
$r->print("<th colspan=3 rowspan=2>User $uname at Domain $udom</th>"); |
} |
} |
$r->print(<<ENDTABLETWO); |
$r->print(<<ENDTABLETWO); |
<th rowspan=3>Parameter in Effect</th></tr><tr><td colspan=5></td> |
<th rowspan=3>Parameter in Effect</th> |
|
<th rowspan=3>Current Session Value<br>($csuname at $csudom)</th> |
|
</tr><tr><td colspan=5></td> |
<th colspan=2>Resource Level</th> |
<th colspan=2>Resource Level</th> |
<th colspan=3>in Course</th> |
<th colspan=3>in Course</th> |
ENDTABLETWO |
ENDTABLETWO |
Line 554 ENDTABLEHEADFOUR
|
Line 563 ENDTABLEHEADFOUR
|
if ($uname) { |
if ($uname) { |
$r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>'); |
$r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>'); |
} |
} |
$r->print('</tr><tr>'); |
$r->print('</tr>'); |
my $defbgone=''; |
my $defbgone=''; |
my $defbgtwo=''; |
my $defbgtwo=''; |
map { |
map { |
Line 577 ENDTABLEHEADFOUR
|
Line 586 ENDTABLEHEADFOUR
|
@outpar=(); |
@outpar=(); |
my $thistitle=''; |
my $thistitle=''; |
my %name= (); |
my %name= (); |
|
undef %name; |
my %part= (); |
my %part= (); |
my %display=(); |
my %display=(); |
my %type= (); |
my %type= (); |
Line 584 ENDTABLEHEADFOUR
|
Line 594 ENDTABLEHEADFOUR
|
my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid}); |
my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid}); |
|
|
map { |
map { |
|
if (($_ eq $catmarker) || ($pscat eq 'all')) { |
$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part'); |
$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part'); |
$name{$_}=&Apache::lonnet::metadata($uri,$_.'.name'); |
$name{$_}=&Apache::lonnet::metadata($uri,$_.'.name'); |
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); |
Line 592 ENDTABLEHEADFOUR
|
Line 603 ENDTABLEHEADFOUR
|
$default{$_}=&Apache::lonnet::metadata($uri,$_); |
$default{$_}=&Apache::lonnet::metadata($uri,$_); |
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); |
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); |
$thistitle=&Apache::lonnet::metadata($uri,$_.'.title'); |
$thistitle=&Apache::lonnet::metadata($uri,$_.'.title'); |
|
} |
} split(/\,/,$keyp{$rid}); |
} split(/\,/,$keyp{$rid}); |
|
|
my $totalparms=scalar keys %name; |
my $totalparms=scalar keys %name; |
my $isdef=1; |
if ($totalparms>0) { |
unless ($totalparms) { $totalparms=1; $isdef=0; } |
my $firstrow=1; |
if ($pscat ne 'all') { $totalparms=1; } |
$r->print('<tr><td bgcolor='.$defbgone. |
$r->print('<td bgcolor='.$defbgone. |
|
' rowspan='.$totalparms.'><tt><font size=-1>'. |
' rowspan='.$totalparms.'><tt><font size=-1>'. |
join(' / ',split(/\//,$uri)). |
join(' / ',split(/\//,$uri)). |
'</font></tt><p><b>'. |
'</font></tt><p><b>'. |
Line 612 ENDTABLEHEADFOUR
|
Line 623 ENDTABLEHEADFOUR
|
$r->print('<td bgcolor='.$defbgone. |
$r->print('<td bgcolor='.$defbgone. |
' rowspan='.$totalparms.'><tt><font size=-1>'. |
' rowspan='.$totalparms.'><tt><font size=-1>'. |
join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>'); |
join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>'); |
if ($isdef) { |
|
map { |
map { |
if (($_ eq $catmarker) || ($pscat eq 'all')) { |
|
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_}); |
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_}); |
|
unless ($firstrow) { |
|
$r->print('<tr>'); |
|
} else { |
|
$firstrow=0; |
|
} |
$r->print("<td bgcolor=".$defbgtwo. |
$r->print("<td bgcolor=".$defbgtwo. |
">$part{$_}</td><td bgcolor=".$defbgone. |
">$part{$_}</td><td bgcolor=".$defbgone. |
">$display{$_}</td>"); |
">$display{$_}</td>"); |
Line 674 ENDTABLEHEADFOUR
|
Line 687 ENDTABLEHEADFOUR
|
'parmform.pres','psub').'</td>'); |
'parmform.pres','psub').'</td>'); |
} |
} |
$r->print( |
$r->print( |
'<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>'); |
'<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>'); |
$r->print("</tr>\n<tr>"); |
my $sessionval=&Apache::lonnet::EXT('resource.'.$part{$_}. |
} |
'.'.$name{$_},$mapp{$rid}.'___'.$inmapid.'___'.$uri); |
|
if (($type{$_}=~/^date/) && ($sessionval)) |
|
{ $sessionval=localtime($sessionval); } |
|
$r->print( |
|
'<td bgcolor=#999999><font color=#FFFFFF>'.$sessionval.' '. |
|
'</font></td>'); |
|
$r->print("</tr>"); |
} sort keys %name; |
} sort keys %name; |
} else { |
} |
$r->print("</tr>\n<tr>"); |
|
} |
|
# -------------------------------------------------- End entry for one resource |
# -------------------------------------------------- End entry for one resource |
} |
} |
} @ids; |
} @ids; |
Line 810 sub handler {
|
Line 827 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
# ----------------------------------------------------- Needs to be in a course |
# ----------------------------------------------------- Needs to be in a course |
|
|
if (($ENV{'request.course.fn'}) && |
if (($ENV{'request.course.id'}) && |
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { |
|
|
unless ($ENV{'form.crsenv'}) { |
unless (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) { |
# --------------------------------------------------------- Bring up assessment |
# --------------------------------------------------------- Bring up assessment |
&assessparms($r); |
&assessparms($r); |
# ---------------------------------------------- This is for course environment |
# ---------------------------------------------- This is for course environment |