version 1.209, 2005/06/05 01:37:26
|
version 1.210, 2005/06/05 17:24:04
|
Line 667 sub extractResourceInformation {
|
Line 667 sub extractResourceInformation {
|
my $symbp = shift; |
my $symbp = shift; |
my $maptitles=shift; |
my $maptitles=shift; |
my $uris=shift; |
my $uris=shift; |
|
my $keyorder=shift; |
|
|
|
my $keyordercnt=100; |
|
|
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my @allres=$navmap->retrieveResources(undef,undef,1,undef,1); |
my @allres=$navmap->retrieveResources(undef,undef,1,undef,1); |
Line 709 sub extractResourceInformation {
|
Line 711 sub extractResourceInformation {
|
} else { |
} else { |
$$keyp{$id}=$key; |
$$keyp{$id}=$key; |
} |
} |
|
# |
|
# Put in order |
|
# |
|
unless ($$keyorder{$key}) { |
|
$$keyorder{$key}=$keyordercnt; |
|
$keyordercnt++; |
|
} |
|
|
} |
} |
} |
} |
$$mapp{$id}= |
$$mapp{$id}= |
Line 743 sub parmmenu {
|
Line 753 sub parmmenu {
|
} |
} |
} |
} |
} |
} |
|
|
|
function checkthis(thisvalue, checkName) { |
|
for (i=0; i<document.forms.parmform.elements.length; i++) { |
|
ele = document.forms.parmform.elements[i]; |
|
if (ele.name == checkName) { |
|
if (ele.value == thisvalue) { |
|
document.forms.parmform.elements[i].checked=true; |
|
} |
|
} |
|
} |
|
} |
|
|
|
function checkdates() { |
|
checkthis('duedate','pscat'); |
|
checkthis('opendate','pscat'); |
|
checkthis('answerdate','pscat'); |
|
checkthis('interval','pscat'); |
|
} |
|
|
|
function checkvisi() { |
|
checkthis('hiddenresource','pscat'); |
|
checkthis('encrypturl','pscat'); |
|
checkthis('problemstatus','pscat'); |
|
checkthis('contentopen','pscat'); |
|
checkthis('opendate','pscat'); |
|
} |
|
|
|
function checkparts() { |
|
checkthis('hiddenparts','pscat'); |
|
checkthis('display','pscat'); |
|
checkthis('ordered','pscat'); |
|
} |
|
|
|
function checkstandard() { |
|
checkall(false,'pscat'); |
|
checkdates(); |
|
checkthis('weight','pscat'); |
|
checkthis('maxtries','pscat'); |
|
} |
|
|
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
$r->print(); |
$r->print(); |
Line 764 ENDSCRIPT
|
Line 814 ENDSCRIPT
|
} |
} |
$r->print(' |
$r->print(' |
</tr><tr><td> |
</tr><tr><td> |
<input type="button" onclick="checkall(true, \'pscat\')" value="Select All" /> |
<a href="javascript:checkall(true, \'pscat\')">Select All</a> |
</td><td></td><td> |
<a href="javascript:checkstandard()">Select Standard</a> |
<input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" /> |
</td><td> |
|
<a href="javascript:checkdates()">Select Dates</a> |
|
<a href="javascript:checkvisi()">Select Visibilities</a> |
|
<a href="javascript:checkparts()">Select Part Parameters</a> |
|
</td><td> |
|
<a href="javascript:checkall(false, \'pscat\')">Unselect All</a> |
</td> |
</td> |
'); |
'); |
$r->print('</tr></table>'); |
$r->print('</tr></table>'); |
Line 868 sub levelmenu {
|
Line 923 sub levelmenu {
|
$r->print("</select>"); |
$r->print("</select>"); |
} |
} |
|
|
|
sub keysplit { |
|
my $keyp=shift; |
|
return (split(/\,/,$keyp)); |
|
} |
|
|
|
sub keysinorder { |
|
my ($name,$keyorder)=@_; |
|
return sort { |
|
$$keyorder{$a} <=> $$keyorder{$b}; |
|
} (keys %{$name}); |
|
} |
|
|
################################################## |
################################################## |
################################################## |
################################################## |
|
|
Line 928 sub assessparms {
|
Line 995 sub assessparms {
|
|
|
my %allparms; |
my %allparms; |
my %allparts; |
my %allparts; |
|
# |
|
# Order in which these parameters will be displayed |
|
# |
|
my %keyorder=('parameter_0_opendate' => 1, |
|
'parameter_0_duedate' => 2, |
|
'parameter_0_answerdate' => 3, |
|
'parameter_0_interval' => 4, |
|
'parameter_0_weight' => 5, |
|
'parameter_0_maxtries' => 6, |
|
'parameter_0_hinttries' => 7, |
|
'parameter_0_contentopen' => 8, |
|
'parameter_0_contentclose' => 9, |
|
'parameter_0_type' => 10, |
|
'parameter_0_problemstatus' => 11, |
|
'parameter_0_hiddenresource' => 12, |
|
'parameter_0_hiddenparts' => 13, |
|
'parameter_0_display' => 14, |
|
'parameter_0_ordered' => 15, |
|
'parameter_0_tol' => 16, |
|
'parameter_0_sig' => 17, |
|
'parameter_0_turnoffunit' => 18); |
@ids=(); |
@ids=(); |
%symbp=(); |
%symbp=(); |
%typep=(); |
%typep=(); |
Line 1022 sub assessparms {
|
Line 1109 sub assessparms {
|
unless ($csec) { $csec=''; } |
unless ($csec) { $csec=''; } |
|
|
# --------------------------------------------------------- Get all assessments |
# --------------------------------------------------------- Get all assessments |
&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, \%mapp, \%symbp,\%maptitles,\%uris); |
&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, |
|
\%mapp, \%symbp,\%maptitles,\%uris, |
|
\%keyorder); |
|
|
$mapp{'0.0'} = ''; |
$mapp{'0.0'} = ''; |
$symbp{'0.0'} = ''; |
$symbp{'0.0'} = ''; |
Line 1054 sub assessparms {
|
Line 1143 sub assessparms {
|
$r->print('<input type="hidden" value="'. |
$r->print('<input type="hidden" value="'. |
$env{'form.recent_'.$_}.'" name="recent_'.$_.'">'); |
$env{'form.recent_'.$_}.'" name="recent_'.$_.'">'); |
} |
} |
|
|
$r->print('<h2>'.$message.'</h2>'); |
|
|
|
if (!$pssymb) { |
if (!$pssymb) { |
$r->print('<table border="1"><tr><td>'); |
$r->print('<table border="1"><tr><td>'); |
Line 1074 sub assessparms {
|
Line 1161 sub assessparms {
|
} |
} |
&usermenu($r,$uname,$id,$udom,$csec); |
&usermenu($r,$uname,$id,$udom,$csec); |
|
|
|
$r->print('<p>'.$message.'</p>'); |
|
|
$r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />'); |
$r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />'); |
|
|
my @temp_pscat; |
my @temp_pscat; |
Line 1176 ENDTABLEHEADFOUR
|
Line 1265 ENDTABLEHEADFOUR
|
my %default=(); |
my %default=(); |
my $uri=&Apache::lonnet::declutter($uris{$rid}); |
my $uri=&Apache::lonnet::declutter($uris{$rid}); |
|
|
foreach (split(/\,/,$keyp{$rid})) { |
foreach (&keysplit($keyp{$rid})) { |
my $tempkeyp = $_; |
my $tempkeyp = $_; |
if (grep $_ eq $tempkeyp, @catmarker) { |
if (grep $_ eq $tempkeyp, @catmarker) { |
$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part'); |
$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part'); |
Line 1220 ENDTABLEHEADFOUR
|
Line 1309 ENDTABLEHEADFOUR
|
|
|
$r->print('</font></tt></td>'); |
$r->print('</font></tt></td>'); |
|
|
foreach (sort keys %name) { |
foreach (&keysinorder(\%name,\%keyorder)) { |
unless ($firstrow) { |
unless ($firstrow) { |
$r->print('<tr>'); |
$r->print('<tr>'); |
} else { |
} else { |
Line 1283 ENDTABLEHEADFOUR
|
Line 1372 ENDTABLEHEADFOUR
|
# When storing information, store as part 0 |
# When storing information, store as part 0 |
# When requesting information, request from full part |
# When requesting information, request from full part |
#------------------------------------------------------------------- |
#------------------------------------------------------------------- |
foreach (split(/\,/,$keyp{$rid})) { |
foreach (&keysplit($keyp{$rid})) { |
my $tempkeyp = $_; |
my $tempkeyp = $_; |
my $fullkeyp = $tempkeyp; |
my $fullkeyp = $tempkeyp; |
$tempkeyp =~ s/_\w+_/_0_/; |
$tempkeyp =~ s/_\w+_/_0_/; |
Line 1333 ENDMAPONE
|
Line 1422 ENDMAPONE
|
$r->print('<th>'.&mt('Default Value').'</th>'); |
$r->print('<th>'.&mt('Default Value').'</th>'); |
$r->print('<th>'.&mt('Parameter in Effect').'</th></tr>'); |
$r->print('<th>'.&mt('Parameter in Effect').'</th></tr>'); |
|
|
foreach (sort keys %name) { |
foreach (&keysinorder(\%name,\%keyorder)) { |
$r->print('<tr>'); |
$r->print('<tr>'); |
&print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default, |
&print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default, |
\%type,\%display,$defbgone,$defbgtwo, |
\%type,\%display,$defbgone,$defbgtwo, |
$parmlev,$uname,$udom,$csec); |
$parmlev,$uname,$udom,$csec); |
# $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n"); |
|
} |
} |
$r->print("</table></center>"); |
$r->print("</table></center>"); |
} # end each map |
} # end each map |
Line 1370 ENDMAPONE
|
Line 1458 ENDMAPONE
|
# When storing information, store as part 0 |
# When storing information, store as part 0 |
# When requesting information, request from full part |
# When requesting information, request from full part |
#------------------------------------------------------------------- |
#------------------------------------------------------------------- |
foreach (split(/\,/,$keyp{$rid})) { |
foreach (&keysplit($keyp{$rid})) { |
my $tempkeyp = $_; |
my $tempkeyp = $_; |
my $fullkeyp = $tempkeyp; |
my $fullkeyp = $tempkeyp; |
$tempkeyp =~ s/_\w+_/_0_/; |
$tempkeyp =~ s/_\w+_/_0_/; |
Line 1411 ENDMAPONE
|
Line 1499 ENDMAPONE
|
$r->print('<th>'.&mt('Default Value').'</th>'); |
$r->print('<th>'.&mt('Default Value').'</th>'); |
$r->print('<th>'.&mt('Parameter in Effect').'</th></tr>'); |
$r->print('<th>'.&mt('Parameter in Effect').'</th></tr>'); |
|
|
foreach (sort keys %name) { |
foreach (&keysinorder(\%name,\%keyorder)) { |
$r->print('<tr>'); |
$r->print('<tr>'); |
&print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default, |
&print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default, |
\%type,\%display,$defbgone,$defbgtwo,$parmlev,$uname,$udom,$csec); |
\%type,\%display,$defbgone,$defbgtwo,$parmlev,$uname,$udom,$csec); |
# $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n"); |
|
} |
} |
$r->print("</table></center>"); |
$r->print("</table></center>"); |
} # end of $parmlev eq general |
} # end of $parmlev eq general |