version 1.131, 2005/11/19 22:47:07
|
version 1.132, 2005/11/22 19:43:53
|
Line 490 sub prettyinput {
|
Line 490 sub prettyinput {
|
my %meta_options; |
my %meta_options; |
my @cur_values_inst; |
my @cur_values_inst; |
my $cur_values_stu; |
my $cur_values_stu; |
my $values = $env{$course_key.'.metadata.'.$_.'.values'}; |
my $values = $env{$course_key.'.metadata.'.$type.'.values'}; |
if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/stuadd/) { |
if ($env{$course_key.'.metadata.'.$type.'.options'} =~ m/stuadd/) { |
$stu_add = 'true'; |
$stu_add = 'true'; |
} |
} |
if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/onlyone/) { |
if ($env{$course_key.'.metadata.'.$type.'.options'} =~ m/onlyone/) { |
$only_one = 'true'; |
$only_one = 'true'; |
} |
} |
# need to take instructor values out of list where instructor and student |
# need to take instructor values out of list where instructor and student |
# values may be mixed. |
# values may be mixed. |
if ($values && $stu_add) { |
if ($values && $stu_add) { |
foreach (split(/,/,$values)) { |
foreach my $item (split(/,/,$values)) { |
$_ =~ s/^\s+//; |
$item =~ s/^\s+//; |
$meta_options{$_} = $_; |
$meta_options{$item} = $type; |
} |
} |
foreach (split(/,/,$value)) { |
foreach my $item (split(/,/,$value)) { |
$_ =~ s/^\s+//; |
$item =~ s/^\s+//; |
if ($meta_options{$_}) { |
if ($meta_options{$item}) { |
push(@cur_values_inst,$_); |
push(@cur_values_inst,$item); |
} else { |
} else { |
$cur_values_stu .= $_.','; |
$cur_values_stu .= $item.','; |
} |
} |
} |
} |
} else { |
} else { |
Line 1099 ENDEDIT
|
Line 1099 ENDEDIT
|
if ($metacourse ne 'none') { |
if ($metacourse ne 'none') { |
$r->print('Document metadata restricted by :<strong> '.$env{$metacourse.".description"}."</strong><br />"); |
$r->print('Document metadata restricted by :<strong> '.$env{$metacourse.".description"}."</strong><br />"); |
} |
} |
|
foreach my $field_name(@fields) { |
foreach (@fields) { |
|
if (defined($env{'form.new_'.$_})) { |
if (defined($env{'form.new_'.$field_name})) { |
$Apache::lonpublisher::metadatafields{$_}= |
$Apache::lonpublisher::metadatafields{$field_name}= |
join(',',&Apache::loncommon::get_env_multiple('form.new_'.$_)); |
join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name)); |
} |
} |
my $field_name = $_; |
|
if ($metacourse ne 'none') { |
if ($metacourse ne 'none') { |
# handle restrictions here |
# handle restrictions here |
if ($env{$metacourse.'.metadata.'.$_.'.options'} =~ m/active/){ |
if ($env{$metacourse.'.metadata.'.$field_name.'.options'} =~ m/active/){ |
$output.=('<p>'.$lt{$_}.': '. |
$output.=('<p>'.$lt{$field_name}.': '. |
&prettyinput($_, |
&prettyinput($field_name, |
$Apache::lonpublisher::metadatafields{$_}, |
$Apache::lonpublisher::metadatafields{$field_name}, |
'new_'.$_,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>'); |
'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>'); |
} elsif ($_ eq 'courserestricted') { |
} elsif ($field_name eq 'courserestricted') { |
$output.=( |
$output.=( |
&prettyinput($field_name, |
&prettyinput($field_name, |
$Apache::lonpublisher::metadatafields{$_}, |
$Apache::lonpublisher::metadatafields{$field_name}, |
'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse)); |
'new_'.$field_name,'defaultmeta',undef,undef,undef,undef,$metacourse)); |
} |
} |
} else { |
} else { |
if ($_ ne 'courserestricted') { |
if ($field_name ne 'courserestricted') { |
$output.=('<p>'.$lt{$_}.': '. |
$output.=('<p>'.$lt{$field_name}.': '. |
&prettyinput($_, |
&prettyinput($field_name, |
$Apache::lonpublisher::metadatafields{$_}, |
$Apache::lonpublisher::metadatafields{$field_name}, |
'new_'.$_,'defaultmeta').'</p>'); |
'new_'.$field_name,'defaultmeta').'</p>'); |
} else { |
} else { |
$output.=&prettyinput($field_name, |
$output.=&prettyinput($field_name, |
$Apache::lonpublisher::metadatafields{$_}, |
$Apache::lonpublisher::metadatafields{$field_name}, |
'new_'.$field_name,'defaultmeta'); |
'new_'.$field_name,'defaultmeta'); |
} |
} |
} |
} |
} |
} |
$output.=('<p>'.$lt{$_}.': '. |
|
&prettyinput($_, |
|
$Apache::lonpublisher::metadatafields{$_}, |
|
'new_'.$_,'defaultmeta',undef,undef,undef,undef,$metacourse).'</p>'); |
|
|
|
if ($env{'form.store'}) { |
if ($env{'form.store'}) { |
my $mfh; |
my $mfh; |
my $formname='store'; |
my $formname='store'; |