--- loncom/interface/lonparmset.pm 2005/09/23 20:19:18 1.239.2.2 +++ loncom/interface/lonparmset.pm 2005/09/28 23:19:25 1.253 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.239.2.2 2005/09/23 20:19:18 albertel Exp $ +# $Id: lonparmset.pm,v 1.253 2005/09/28 23:19:25 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1954,7 +1954,7 @@ sub crsenv { 'disableexampointprint' ); foreach my $parameter (sort(keys(%values))) { - unless ($parameter =~ m/^internal\./) { + unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) { if (! $descriptions{$parameter}) { $descriptions{$parameter}=$parameter; push(@Display_Order,$parameter); @@ -2702,6 +2702,10 @@ ENDMAINFORMHEAD action => 'crsenv', permission => $parm_permission, }, + { text => 'Set Instructor Defined Metadata', + action => 'setinstmeta', + permission => $parm_permission, + }, { text => 'Set/Modify Resource Parameters - Helper Mode', url => '/adm/helper/parameter.helper', permission => $parm_permission, @@ -2745,8 +2749,131 @@ ENDMAINFORMHEAD $r->print($menu_html); return; } +### Set instructor defined metadata +sub output_row { + my ($r, $field_name) = @_; + my $output; + my $active=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.active'}; + my $onlyone=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.onlyone'}; + my $stuadd=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.stuadd'}; + my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'}; + my $checked; + unless (defined($active)) { + $active = 'no'; + $stuadd = 'yes'; + $values = 'Type a list of values separated by commas.'; + $onlyone = 'no'; + } + $output.=''.$field_name.''; + $output.=''; + if ($onlyone eq 'no') { + $checked = ' CHECKED '; + } else { + $checked = ' '; + } + $output.='
'; + if ($stuadd eq 'yes') { + $checked = ' CHECKED '; + } else { + $checked = ' '; + } + $output.=''; + $output.=''; + return ($output); +} +sub setinstmeta { + my ($r)=@_; + my $next_meta; + my $output; + my $item_num; + my $put_result; + $r->print(&Apache::lonxml::xmlbegin()); + $r->print(' + LON-CAPA Set Instructor Metadata + '); + $r->print(&Apache::loncommon::bodytag('Set Instructor Metadata')); + $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef, + 'Set Instructor Metadata')); + my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; + my $key_base = $env{'course.'.$env{'request.course.id'}.'.metadata.'}; + my $save_field = ''; + my $stuadd; + my $onlyone; + my $active; + if ($env{'form.instmeta'}) { + foreach my $field (sort %env) { + if ($field=~m/^form.(.+)_(.+)$/) { + my $meta_field = $1; + my $meta_key = $2; + if ($save_field ne $meta_field) { + $save_field = $meta_field; + if ($env{'form.'.$meta_field.'_stuadd'}) { + $stuadd='yes'; + } else { + $stuadd='no'; + } + if ($env{'form.'.$meta_field.'_onlyone'}) { + $onlyone='no'; + } else { + $onlyone='yes'; + } + $active='yes'; + my $name = 'metadata.'.$save_field; + $put_result = &Apache::lonnet::put('environment', + {'metadata.'.$meta_field.'.stuadd'=>$stuadd, + 'metadata.'.$meta_field.'.onlyone'=>$onlyone, + 'metadata.'.$meta_field.'.active'=>$active, + 'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'}, + },$dom,$crs); + } + } + } + + } + foreach my $field (%env) { + # start by looking for populated fields + if ($field=~m/type(\d+)/) { + my $name; + my $value; + # $put_result = &Apache::lonnet::put('environment', + # {$name=>$value},$dom,$crs); + # $put_result = &Apache::lonnet::put('environment', + # {$name=>$value},$dom,$crs); + } + if ($field=~m/newfield/) { + my $name = 'metadata.'.$env{'form.titlenew'}; + my %meta_hash = {values=>[$env{'form.valuesnew'}], + allow_pick=>'many', + allow_type=>'no'}; + + my $value = \%meta_hash; + # $put_result = &Apache::lonnet::put('environment', + # {$name=>$value},$dom,$crs); + } + } + &Apache::lonnet::coursedescription($env{'request.course.id'}); + $output.= &output_row($r, "Title"); + $output.= &output_row($r, "Subject"); + $output.= &output_row($r, "Keywords"); + $r->print(< + +

+ + + $output +
Metadata ItemValuesOnly One ChoiceStudent Can Add Choices
+ + - +ENDenv + + + $r->print(' + '); + return 'ok'; +} ################################################## sub defaultsetter { @@ -2932,7 +3059,7 @@ sub handler { 'pres_marker', 'pres_value', 'pres_type', - 'udom','uname','symb']); + 'udom','uname','symb','serial']); &Apache::lonhtmlcommon::clear_breadcrumbs(); @@ -2979,6 +3106,10 @@ sub handler { &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview', text=>"Overview Mode"}); &overview($r); + } elsif ($env{'form.action'} eq 'setinstmeta' && $parm_permission) { + &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setinstmeta', + text=>"Instructor Metadata"}); + &setinstmeta($r); } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) { &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview', text=>"Overview Mode"});