version 1.200, 2007/01/16 07:36:10
|
version 1.203, 2007/01/23 04:25:56
|
Line 631 sub prettyinput {
|
Line 631 sub prettyinput {
|
if ($meta_options{$item}) { |
if ($meta_options{$item}) { |
push(@cur_values_inst,$item); |
push(@cur_values_inst,$item); |
} else { |
} else { |
if ($item ne 'Not Specified') { |
if ($item ne '') { |
$cur_values_stu .= $item.','; |
$cur_values_stu .= $item.','; |
} |
} |
} |
} |
} |
} |
|
$cur_values_stu =~ s/,$//; |
my @key_order = sort(keys(%meta_options)); |
my @key_order = sort(keys(%meta_options)); |
unshift (@key_order,'Not Specified'); |
unshift(@key_order,''); |
$meta_options{'Not Specified'} = 'Not Specified'; |
$meta_options{''} = 'Not specified'; |
$meta_options{'select_form_order'} = \@key_order; |
$meta_options{'select_form_order'} = \@key_order; |
} else { |
} else { |
$cur_values_stu = $value; |
$cur_values_stu = $value; |
Line 1209 ENDBOMBS
|
Line 1210 ENDBOMBS
|
<input type="submit" name="clearmsg" value="$clear" /> |
<input type="submit" name="clearmsg" value="$clear" /> |
ENDDEL |
ENDDEL |
} else { |
} else { |
$r->print('<a href="'.$disuri.'" />'.$goback.'</a>'); |
$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>'); |
|
if ($env{'form.clearmsg'}) { |
|
my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); |
|
$r->print('<p><a href="'.$diruri.'" />'. |
|
&mt('Back To Directory').'</a></p>'); |
|
} |
} |
} |
$r->print('<br />'.$bombs); |
$r->print('<br />'.$bombs); |
} else { |
} else { |
Line 1340 ENDEDIT
|
Line 1346 ENDEDIT
|
my $row_alt = 1; |
my $row_alt = 1; |
foreach my $field_name (@fields) { |
foreach my $field_name (@fields) { |
if (defined($env{'form.new_'.$field_name})) { |
if (defined($env{'form.new_'.$field_name})) { |
$Apache::lonpublisher::metadatafields{$field_name}= |
my @values = &Apache::loncommon::get_env_multiple('form.new_'.$field_name); |
join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name)); |
my $newvalue = ''; |
|
foreach my $item (@values) { |
|
if ($item ne '') { |
|
$newvalue .= $item.','; |
|
} |
|
} |
|
$newvalue =~ s/,$//; |
|
$Apache::lonpublisher::metadatafields{$field_name}=$newvalue; |
} |
} |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none' |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none' |
&& exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) { |
&& exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) { |