version 1.32, 2001/08/08 21:00:49
|
version 1.33, 2001/08/09 19:28:47
|
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,08/08 Gerd Kortemeyer |
# 07/05,07/06,08/08,08/09 Gerd Kortemeyer |
|
|
package Apache::lonparmset; |
package Apache::lonparmset; |
|
|
Line 526 ENDHEAD
|
Line 526 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 537 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 674 ENDTABLEHEADFOUR
|
Line 678 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>'); |
|
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>\n<tr>"); |
$r->print("</tr>\n<tr>"); |
} |
} |
} sort keys %name; |
} sort keys %name; |