version 1.149, 2005/12/29 19:42:44
|
version 1.150, 2006/01/04 05:43:19
|
Line 358 sub pre_select_course {
|
Line 358 sub pre_select_course {
|
return; |
return; |
} |
} |
sub select_course { |
sub select_course { |
my %courses; |
my $output=$/; |
my $output; |
my $current_restriction= |
my $selected; |
$Apache::lonpublisher::metadatafields{'courserestricted'}; |
foreach my $key (keys(%env)) { |
my $selected = ($current_restriction eq 'none' ? 'selected="selected"' |
if ($key =~ m/\.metadata\./) { |
: ''); |
$key =~ m/^course\.(.+)(\.metadata.+$)/; |
|
my $course = $1; |
|
my $coursekey = 'course.'.$course.'.description'; |
|
my $value = $env{$coursekey}; |
|
$courses{$coursekey} = $value; |
|
} |
|
} |
|
my $meta_not_found = 1; |
|
if ($Apache::lonpublisher::metadatafields{'courserestricted'} eq 'none') { |
|
$selected = ' SELECTED '; |
|
} else { |
|
$selected = ''; |
|
} |
|
$output .= '<select name="new_courserestricted" >'; |
$output .= '<select name="new_courserestricted" >'; |
$output .= '<option value="none" '.$selected.'>None</option>'; |
$output .= '<option value="none" '.$selected.'>'. |
foreach my $key (keys (%courses)) { |
&mt('None').'</option>'.$/; |
$key =~ m/(^.+)\.description$/; |
my %courses; |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} eq $1) { |
foreach my $key (keys(%env)) { |
$selected = ' SELECTED '; |
if ($key !~ m/^course\.(.+)\.description$/) { next; } |
} else { |
my $cid = $1; |
$selected = ''; |
if ($env{$key} !~ /\S/) { next; } |
} |
$courses{$key} = $cid; |
$output .= '<option value="'.$1.'"'.$selected.'>'; |
} |
$output .= $courses{$key}; |
foreach my $key (sort { lc($env{$a}) cmp lc($env{$b}) } (keys(%courses))) { |
$output .= '</option>'; |
my $cid = 'course.'.$courses{$key}; |
|
my $selected = ($current_restriction eq $cid ? 'selected="selected"' |
|
: ''); |
|
if ($env{$key} !~ /\S/) { next; } |
|
$output .= '<option value="'.$cid.'" '.$selected.'>'; |
|
$output .= $env{$key}; |
|
$output .= '</option>'.$/; |
|
$selected = ''; |
} |
} |
$output .= '</select><br />'; |
$output .= '</select><br />'; |
return ($output); |
return ($output); |
Line 549 sub prettyinput {
|
Line 544 sub prettyinput {
|
$size = 80; |
$size = 80; |
} |
} |
my $output; |
my $output; |
if (defined($course_key)) { |
if (defined($course_key) |
|
&& exists($env{$course_key.'.metadata.'.$type.'.options'})) { |
my $stu_add; |
my $stu_add; |
my $only_one; |
my $only_one; |
my %meta_options; |
my %meta_options; |
Line 1183 ENDEDIT
|
Line 1179 ENDEDIT
|
$Apache::lonpublisher::metadatafields{$field_name}= |
$Apache::lonpublisher::metadatafields{$field_name}= |
join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name)); |
join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name)); |
} |
} |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none' |
|
&& exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) { |
# handle restrictions here |
# handle restrictions here |
if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) || |
if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) || |
($field_name eq 'courserestricted')){ |
($field_name eq 'courserestricted')){ |