version 1.263, 2005/11/04 20:08:09
|
version 1.265, 2005/11/11 23:07:27
|
Line 2755 sub output_row {
|
Line 2755 sub output_row {
|
my $output; |
my $output; |
my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'}; |
my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'}; |
my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'}; |
my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'}; |
my $checked; |
|
unless (defined($options)) { |
unless (defined($options)) { |
$options = 'active,stuadd'; |
$options = 'active,stuadd'; |
$values = ''; |
$values = ''; |
} |
} |
$output.='<strong>'.$field_text.':</strong>'; |
$output.='<strong>'.$field_text.':</strong>'; |
$output.='<input name="'.$field_name.'_values" type="text" value="'.$values.'" /><br />'; |
$output.='<input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /><br />'; |
if ($options =~ m/active/) { |
|
$checked = ' checked="checked" '; |
my @options= ( ['active', 'Show to student'], |
} else { |
['onlyone','Student may select only one choice'], |
$checked = ' '; |
['stuadd', 'Student may type choices']); |
} |
foreach my $opt (@options) { |
$output.=' <input type="checkbox" name="'.$field_name.'_active" value="yes"'.$checked.' />'; |
my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ; |
$output.='Show to student <br />'; |
$output.=(' 'x5).'<label><input type="checkbox" name="'. |
if ($options =~ m/onlyone/) { |
$field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'. |
$checked = ' checked="checked" '; |
&mt($opt->[1]).'</label> <br />'; |
} else { |
|
$checked = ' '; |
|
} |
|
$output.=' <input type="checkbox" name="'.$field_name.'_onlyone" value="yes"'.$checked.' />'; |
|
$output.='Student may select only one choice <br />'; |
|
if ($options =~ m/stuadd/) { |
|
$checked = ' checked="checked" '; |
|
} else { |
|
$checked = ' '; |
|
} |
} |
$output.=' <input type="checkbox" name="'.$field_name.'_stuadd" value="yes"'.$checked.' />'; |
|
$output.='Student may type choices <br />'; |
|
return ($output); |
return ($output); |
} |
} |
|
|
Line 2832 sub setrestrictmeta {
|
Line 2820 sub setrestrictmeta {
|
&Apache::lonnet::coursedescription($env{'request.course.id'}); |
&Apache::lonnet::coursedescription($env{'request.course.id'}); |
my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio'); |
my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio'); |
foreach my $field (sort(keys(%metadata_fields))) { |
foreach my $field (sort(keys(%metadata_fields))) { |
$output.= &output_row($r, $field, $metadata_fields{$field}); |
&Apache::lonnet::logthis ($field); |
|
if ($field ne 'courserestricted') { |
|
$output.= &output_row($r, $field, $metadata_fields{$field}); |
|
} |
} |
} |
$r->print(<<ENDenv); |
$r->print(<<ENDenv); |
<form method="post" action="/adm/parmset?action=setrestrictmeta" name="form"> |
<form method="post" action="/adm/parmset?action=setrestrictmeta" name="form"> |