version 1.210, 2005/06/05 17:24:04
|
version 1.211, 2005/06/06 02:25:09
|
Line 668 sub extractResourceInformation {
|
Line 668 sub extractResourceInformation {
|
my $maptitles=shift; |
my $maptitles=shift; |
my $uris=shift; |
my $uris=shift; |
my $keyorder=shift; |
my $keyorder=shift; |
|
my $defkeytype=shift; |
|
|
my $keyordercnt=100; |
my $keyordercnt=100; |
|
|
Line 699 sub extractResourceInformation {
|
Line 700 sub extractResourceInformation {
|
my $parmdis = $display; |
my $parmdis = $display; |
$parmdis =~ s/\[Part.*$//g; |
$parmdis =~ s/\[Part.*$//g; |
$$allparms{$name}=$parmdis; |
$$allparms{$name}=$parmdis; |
|
$$defkeytype{$name}=&Apache::lonnet::metadata($srcf,$key.'.type'); |
# |
# |
# allparts is a hash of all parts |
# allparts is a hash of all parts |
# |
# |
Line 741 sub extractResourceInformation {
|
Line 743 sub extractResourceInformation {
|
################################################## |
################################################## |
|
|
sub parmmenu { |
sub parmmenu { |
my ($r,$allparms,$pscat)=@_; |
my ($r,$allparms,$pscat,$keyorder)=@_; |
my $tempkey; |
my $tempkey; |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 798 ENDSCRIPT
|
Line 800 ENDSCRIPT
|
$r->print(); |
$r->print(); |
$r->print("\n<table><tr>"); |
$r->print("\n<table><tr>"); |
my $cnt=0; |
my $cnt=0; |
foreach $tempkey (sort { $$allparms{$a} cmp $$allparms{$b} } |
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) { |
keys %{$allparms} ) { |
|
$r->print("\n<td><font size='-1'><input type='checkbox' name='pscat' "); |
$r->print("\n<td><font size='-1'><input type='checkbox' name='pscat' "); |
$r->print('value="'.$tempkey.'"'); |
$r->print('value="'.$tempkey.'"'); |
if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { |
if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { |
Line 829 ENDSCRIPT
|
Line 830 ENDSCRIPT
|
|
|
sub partmenu { |
sub partmenu { |
my ($r,$allparts,$psprt)=@_; |
my ($r,$allparts,$psprt)=@_; |
$r->print('<select multiple name="psprt" size="5">'); |
$r->print('<select multiple name="psprt" size="8">'); |
$r->print('<option value="all"'); |
$r->print('<option value="all"'); |
$r->print(' selected') unless (@{$psprt}); |
$r->print(' selected') unless (@{$psprt}); |
$r->print('>'.&mt('All Parts').'</option>'); |
$r->print('>'.&mt('All Parts').'</option>'); |
Line 886 ENDMENU
|
Line 887 ENDMENU
|
} |
} |
|
|
sub displaymenu { |
sub displaymenu { |
my ($r,$allparms,$allparts,$pscat,$psprt)=@_; |
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_; |
$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'. |
$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'. |
&mt('Select Parts to View').'</th></tr><tr><td>'); |
&mt('Select Parts to View').'</th></tr><tr><td>'); |
&parmmenu($r,$allparms,$pscat); |
&parmmenu($r,$allparms,$pscat,$keyorder); |
$r->print('</td><td>'); |
$r->print('</td><td>'); |
&partmenu($r,$allparts,$psprt); |
&partmenu($r,$allparts,$psprt); |
$r->print('</td></tr></table>'); |
$r->print('</td></tr></table>'); |
Line 923 sub levelmenu {
|
Line 924 sub levelmenu {
|
$r->print("</select>"); |
$r->print("</select>"); |
} |
} |
|
|
|
|
|
sub sectionmenu { |
|
my ($r,$selectedsections)=@_; |
|
|
|
my ($classlist,$field_names) = |
|
&Apache::loncoursedata::get_classlist( |
|
$env{'request.course.id'}, |
|
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
|
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
my %Sections=(); |
|
while (my ($student,$student_data) = each (%$classlist)) { |
|
my $studenthash = (); |
|
for (my $i=0; $i< scalar(@$field_names);$i++) { |
|
my $field = $field_names->[$i]; |
|
# Store the data |
|
$studenthash->{$field}=$student_data->[$i]; |
|
} |
|
my $section = $studenthash->{'section'}; |
|
if (! defined($section) || $section =~/^\s*$/ || $section == -1) { |
|
$studenthash->{'section'} = 'none'; |
|
$section = $studenthash->{'section'}; |
|
} |
|
$Sections{$section}++; |
|
} |
|
my @Sections = sort {$a cmp $b} keys(%Sections); |
|
unshift(@Sections,'all'); |
|
|
|
$r->print('<select name="Section" multiple="true" size="8" >'); |
|
|
|
foreach my $s (@Sections) { |
|
$r->print(' <option value="'.$s.'"'); |
|
foreach (@{$selectedsections}) { |
|
if ($s eq $_) { |
|
$r->print(' selected'); |
|
last; |
|
} |
|
} |
|
$r->print('>'.$s."</option>\n"); |
|
} |
|
$r->print("</select>\n"); |
|
} |
|
|
sub keysplit { |
sub keysplit { |
my $keyp=shift; |
my $keyp=shift; |
return (split(/\,/,$keyp)); |
return (split(/\,/,$keyp)); |
Line 935 sub keysinorder {
|
Line 978 sub keysinorder {
|
} (keys %{$name}); |
} (keys %{$name}); |
} |
} |
|
|
|
sub keysindisplayorder { |
|
my ($name,$keyorder)=@_; |
|
return sort { |
|
$$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b}; |
|
} (keys %{$name}); |
|
} |
|
|
|
sub standardkeyorder { |
|
return ('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); |
|
} |
|
|
################################################## |
################################################## |
################################################## |
################################################## |
|
|
Line 998 sub assessparms {
|
Line 1069 sub assessparms {
|
# |
# |
# Order in which these parameters will be displayed |
# Order in which these parameters will be displayed |
# |
# |
my %keyorder=('parameter_0_opendate' => 1, |
my %keyorder=&standardkeyorder(); |
'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 1153 sub assessparms {
|
Line 1208 sub assessparms {
|
$r->print('</td>'); |
$r->print('</td>'); |
} |
} |
$r->print('</td></tr></table>'); |
$r->print('</td></tr></table>'); |
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt); |
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder); |
} else { |
} else { |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb); |
$r->print(&mt('Specific Resource').": ".$resource. |
$r->print(&mt('Specific Resource').": ".$resource. |
Line 1996 sub listdata {
|
Line 2051 sub listdata {
|
$tableopen=0; |
$tableopen=0; |
my $foundkeys=0; |
my $foundkeys=0; |
foreach my $thiskey (sort keys %{$listdata}) { |
foreach my $thiskey (sort keys %{$listdata}) { |
if ($$resourcedata{$thiskey.'.type'}) { |
if ($$listdata{$thiskey.'.type'}) { |
|
my $thistype=$$listdata{$thiskey.'.type'}; |
|
if ($$resourcedata{$thiskey.'.type'}) { |
|
$thistype=$$resourcedata{$thiskey.'.type'}; |
|
} |
my ($middle,$part,$name)= |
my ($middle,$part,$name)= |
($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/); |
($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/); |
my $section=&mt('All Students'); |
my $section=&mt('All Students'); |
Line 2040 sub listdata {
|
Line 2099 sub listdata {
|
':</b></td><td><input type="checkbox" name="del_'. |
':</b></td><td><input type="checkbox" name="del_'. |
$thiskey.'" /></td><td>'); |
$thiskey.'" /></td><td>'); |
$foundkeys++; |
$foundkeys++; |
if ($$resourcedata{$thiskey.'.type'}=~/^date/) { |
if ($thistype=~/^date/) { |
my $jskey='key_'.$pointer; |
my $jskey='key_'.$pointer; |
$pointer++; |
$pointer++; |
$r->print( |
$r->print( |
Line 2050 sub listdata {
|
Line 2109 sub listdata {
|
'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />' |
'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />' |
); |
); |
} else { |
} else { |
$r->print( |
$r->print('<input type="text" name="set_'.$thiskey.'" value="'. |
'<input type="text" name="set_'.$thiskey.'" value="'. |
|
$$resourcedata{$thiskey}.'">'); |
$$resourcedata{$thiskey}.'">'); |
} |
} |
|
$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'. |
|
$thistype.'">'); |
$r->print('</td></tr>'); |
$r->print('</td></tr>'); |
} |
} |
} |
} |
Line 2075 $html
|
Line 2135 $html
|
</head> |
</head> |
$bodytag |
$bodytag |
$breadcrumbs |
$breadcrumbs |
<form method="post" action="/adm/parmset?action=newoverview" name="overviewform"> |
<form method="post" action="/adm/parmset?action=newoverview" name="parmform"> |
ENDOVER |
ENDOVER |
$r->print(&tableend(). |
my @ids=(); |
'<p><input type="submit" value="'.&mt('Submit').'" /></p></form></body></html>'); |
my %typep=(); |
|
my %keyp=(); |
|
my %allparms=(); |
|
my %allparts=(); |
|
my %allmaps=(); |
|
my %mapp=(); |
|
my %symbp=(); |
|
my %maptitles=(); |
|
my %uris=(); |
|
my %keyorder=&standardkeyorder(); |
|
my %defkeytype=(); |
|
|
|
my %alllevs=(); |
|
$alllevs{'Resource Level'}='full'; |
|
$alllevs{'Map Level'}='map'; |
|
$alllevs{'Course Level'}='general'; |
|
|
|
my $csec=$env{'form.csec'}; |
|
|
|
my @pscat=&Apache::loncommon::get_env_multiple('form.pscat'); |
|
my $pschp=$env{'form.pschp'}; |
|
my @psprt=&Apache::loncommon::get_env_multiple('form.psprt'); |
|
if (!@psprt) { $psprt[0]='0'; } |
|
|
|
my @selected_sections = |
|
&Apache::loncommon::get_env_multiple('form.Section'); |
|
@selected_sections = ('all') if (! @selected_sections); |
|
foreach (@selected_sections) { |
|
if ($_ eq 'all') { |
|
@selected_sections = ('all'); |
|
} |
|
} |
|
|
|
my $pssymb=''; |
|
my $parmlev=''; |
|
|
|
unless ($env{'form.parmlev'}) { |
|
$parmlev = 'map'; |
|
} else { |
|
$parmlev = $env{'form.parmlev'}; |
|
} |
|
|
|
&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, |
|
\%mapp, \%symbp,\%maptitles,\%uris, |
|
\%keyorder,\%defkeytype); |
|
|
|
# Menu to select levels, etc |
|
|
|
$r->print('<table border="1"><tr><td>'); |
|
&levelmenu($r,\%alllevs,$parmlev); |
|
if ($parmlev ne 'general') { |
|
$r->print('<td>'); |
|
&mapmenu($r,\%allmaps,$pschp,\%maptitles); |
|
$r->print('</td>'); |
|
} |
|
$r->print('</td></tr></table>'); |
|
|
|
$r->print('<table border="1"><tr><td>'); |
|
&parmmenu($r,\%allparms,\@pscat,\%keyorder); |
|
$r->print('</td><td>'); |
|
&partmenu($r,\%allparts,\@psprt); |
|
$r->print('</td><td>'); |
|
§ionmenu($r,\@selected_sections); |
|
$r->print('</td></tr></table>'); |
|
|
|
|
|
# Build the list data hash from the specified parms |
|
|
|
my $listdata; |
|
%{$listdata}=(); |
|
|
|
foreach my $cat (@pscat) { |
|
foreach my $section (@selected_sections) { |
|
foreach my $part (@psprt) { |
|
my $newparmkey=$env{'request.course.id'}; |
|
if (($section ne 'all') && ($section ne 'none') && ($section)) { |
|
$newparmkey.='.['.$section.']'; |
|
} |
|
if ($parmlev eq 'general') { |
|
# course-level parameter |
|
} elsif ($parmlev eq 'map') { |
|
foreach my $map (keys %allmaps) { |
|
if (($pschp ne 'all') && ($pschp ne $map)) { next; } |
|
$newparmkey.='.'.$allmaps{$map}.'.'.$part.'.'.$cat; |
|
$$listdata{$newparmkey}=1; |
|
$$listdata{$newparmkey.'.type'}=$defkeytype{$cat}; |
|
} |
|
# map-level parameter |
|
} else { |
|
# resource-level parameter |
|
|
|
} |
|
} |
|
} |
|
} |
|
|
|
|
|
|
|
$r->print(join("\n<br />",keys %{$listdata})); |
|
|
|
if ($env{'form.dis'}) { |
|
|
|
&storedata($r,$crs,$dom); |
|
|
|
# Read modified data |
|
|
|
my $resourcedata=&readdata($crs,$dom); |
|
|
|
# List data |
|
|
|
&listdata($r,$resourcedata,$listdata); |
|
} |
|
$r->print(&tableend(). |
|
'<p><input type="submit" name="dis" value="'.&mt('Submit').'" /></p></form></body></html>'); |
} |
} |
|
|
sub overview { |
sub overview { |