version 1.12, 2000/11/25 19:57:17
|
version 1.13, 2000/11/27 12:14:32
|
Line 9
|
Line 9
|
# |
# |
# 10/11,10/12,10/16 Gerd Kortemeyer) |
# 10/11,10/12,10/16 Gerd Kortemeyer) |
# |
# |
# 11/20,11/21,11/22,11/23,11/24,11/25 Gerd Kortemeyer |
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27 Gerd Kortemeyer |
|
|
package Apache::lonparmset; |
package Apache::lonparmset; |
|
|
Line 267 sub handler {
|
Line 267 sub handler {
|
} |
} |
} |
} |
} keys %bighash; |
} keys %bighash; |
|
# ---------------------------------------------------------- Anything to store? |
|
if ($ENV{'form.pres_marker'}) { |
|
$message.="<h1>Storing $ENV{'form.pres.value'} type $ENV{'form.pres_type'} under $ENV{'form.pres_marker'}</h1>"; |
|
} |
# ------------------------------------------------------------------- Sort this |
# ------------------------------------------------------------------- Sort this |
@ids=sort bycat @ids; |
@ids=sort bycat @ids; |
# ------------------------------------------------------------------ Start page |
# ------------------------------------------------------------------ Start page |
Line 277 sub handler {
|
Line 281 sub handler {
|
<head> |
<head> |
<title>LON-CAPA Assessment Parameters</title> |
<title>LON-CAPA Assessment Parameters</title> |
<script> |
<script> |
|
|
function pclose() { |
function pclose() { |
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", |
"height=350,width=350,scrollbars=no,menubar=no"); |
"height=350,width=350,scrollbars=no,menubar=no"); |
Line 284 sub handler {
|
Line 289 sub handler {
|
} |
} |
|
|
function pjump(type,dis,value,marker,ret,call) { |
function pjump(type,dis,value,marker,ret,call) { |
|
document.parmform.pres_marker.value=''; |
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
+"&value="+escape(value)+"&marker="+escape(marker) |
+"&value="+escape(value)+"&marker="+escape(marker) |
+"&return="+escape(ret) |
+"&return="+escape(ret) |
Line 291 sub handler {
|
Line 297 sub handler {
|
"height=350,width=350,scrollbars=no,menubar=no"); |
"height=350,width=350,scrollbars=no,menubar=no"); |
|
|
} |
} |
|
|
|
function psub() { |
|
pclose(); |
|
if ((document.parmform.pres_value.value!='') && |
|
(document.parmform.pres_marker.value!='')) { |
|
document.parmform.submit(); |
|
} else { |
|
document.parmform.pres_value.value=''; |
|
document.parmform.pres_marker.value=''; |
|
} |
|
} |
|
|
</script> |
</script> |
</head> |
</head> |
<body bgcolor="#FFFFFF" onUnload="pclose()"> |
<body bgcolor="#FFFFFF" onUnload="pclose()"> |
Line 309 at Domain
|
Line 327 at Domain
|
<input type="text" value="$udom" size="6" name="udom"> |
<input type="text" value="$udom" size="6" name="udom"> |
</b> |
</b> |
<input type="submit" value="Display"> |
<input type="submit" value="Display"> |
|
<input type="hidden" value='' name="pres_value"> |
|
<input type="hidden" value='' name="pres_type"> |
|
<input type="hidden" value='' name="pres_marker"> |
ENDHEAD |
ENDHEAD |
|
|
$r->print($message.'<p>Sort list by '); |
$r->print($message.'<p>Sort list by '); |
Line 399 ENDTABLEHEADFOUR
|
Line 420 ENDTABLEHEADFOUR
|
|
|
$r->print("<td>$part{$_}</td><td>$display{$_}</td>"); |
$r->print("<td>$part{$_}</td><td>$display{$_}</td>"); |
my $mprefix=$rid.'&'.$_.'&'; |
my $mprefix=$rid.'&'.$_.'&'; |
|
|
$r->print('<td'.(($result==11)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==11)?' bgcolor="#AAFFAA"':'').'>'. |
&valout($outpar[11],$type{$_}).'</td>'); |
&valout($outpar[11],$type{$_}).'</td>'); |
$r->print('<td'.(($result==10)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==10)?' bgcolor="#AAFFAA"':'').'>'. |
&valout($outpar[10],$type{$_}).'</td>'); |
&valout($outpar[10],$type{$_}).'</td>'); |
|
|
$r->print('<td'.(($result==9)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==9)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[9],$mprefix.'9').'</td>'); |
&plink($type{$_},$display{$_},$outpar[9],$mprefix.'9', |
|
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==8)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==8)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[8],$mprefix.'8').'</td>'); |
&plink($type{$_},$display{$_},$outpar[8],$mprefix.'8', |
|
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==7)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==7)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[7],$mprefix.'7').'</td>'); |
&plink($type{$_},$display{$_},$outpar[7],$mprefix.'7', |
|
'parmform.pres','psub').'</td>'); |
|
|
if ($csec) { |
if ($csec) { |
$r->print('<td'.(($result==6)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==6)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[6],$mprefix.'6').'</td>'); |
&plink($type{$_},$display{$_},$outpar[6],$mprefix.'6', |
|
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==5)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==5)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[5],$mprefix.'5').'</td>'); |
&plink($type{$_},$display{$_},$outpar[5],$mprefix.'5', |
|
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==4)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==4)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[4],$mprefix.'4').'</td>'); |
&plink($type{$_},$display{$_},$outpar[4],$mprefix.'4', |
|
'parmform.pres','psub').'</td>'); |
} |
} |
|
|
if ($uname) { |
if ($uname) { |
$r->print('<td'.(($result==3)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==3)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[3],$mprefix.'3').'</td>'); |
&plink($type{$_},$display{$_},$outpar[3],$mprefix.'3', |
|
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==2)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==2)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[2],$mprefix.'2').'</td>'); |
&plink($type{$_},$display{$_},$outpar[2],$mprefix.'2', |
|
'parmform.pres','psub').'</td>'); |
$r->print('<td'.(($result==1)?' bgcolor="#AAFFAA"':'').'>'. |
$r->print('<td'.(($result==1)?' bgcolor="#AAFFAA"':'').'>'. |
&plink($type{$_},$display{$_},$outpar[1],$mprefix.'1').'</td>'); |
&plink($type{$_},$display{$_},$outpar[1],$mprefix.'1', |
|
'parmform.pres','psub').'</td>'); |
} |
} |
|
|
$r->print('<td>'.&valout($outpar[$result],$type{$_}).'</td>'); |
$r->print('<td>'.&valout($outpar[$result],$type{$_}).'</td>'); |
$r->print("</tr>\n<tr>"); |
$r->print("</tr>\n<tr>"); |
} sort keys %name; |
} sort keys %name; |