version 1.196, 2007/01/12 22:13:51
|
version 1.197, 2007/01/15 20:51:52
|
Line 601 sub prettyinput {
|
Line 601 sub prettyinput {
|
$cur_values_stu .= $item.','; |
$cur_values_stu .= $item.','; |
} |
} |
} |
} |
|
my @key_order = sort(keys(%meta_options)); |
|
unshift (@key_order,'Not Specified'); |
|
$meta_options{'Not Specified'} = 'Not Specified'; |
|
$meta_options{'select_form_order'} = \@key_order; |
} else { |
} else { |
$cur_values_stu = $value; |
$cur_values_stu = $value; |
} |
} |
Line 613 sub prettyinput {
|
Line 617 sub prettyinput {
|
|| ($type eq 'author')||($type eq 'notes') |
|| ($type eq 'author')||($type eq 'notes') |
|| ($type eq 'abstract')|| ($type eq 'title')|| ($type eq 'standards') |
|| ($type eq 'abstract')|| ($type eq 'title')|| ($type eq 'standards') |
|| (exists($env{'course.'.$env{'request.course.id'}.'.metadata.'.$type.'.added'}))) { |
|| (exists($env{'course.'.$env{'request.course.id'}.'.metadata.'.$type.'.added'}))) { |
|
|
if ($values) { |
if ($values) { |
if ($only_one) { |
if ($only_one) { |
$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options)); |
$output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options)); |
Line 750 sub handler {
|
Line 755 sub handler {
|
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
my $result=&Apache::lonnet::getfile($fn); |
my $result=&Apache::lonnet::getfile($fn); |
&Apache::lonpublisher::metaeval($result); |
&Apache::lonpublisher::metaeval($result); |
&Apache::lonnet::logthis("restricted is: ".$Apache::lonpublisher::metadatafields{'courserestricted'}); |
|
if ((!$Apache::lonpublisher::metadatafields{'courserestricted'}) || |
if ((!$Apache::lonpublisher::metadatafields{'courserestricted'}) || |
($env{'form.changecourse'} eq 'true')) { |
($env{'form.changecourse'} eq 'true')) { |
&pre_select_course($r,$uri); |
&pre_select_course($r,$uri); |
Line 1253 ENDEDIT
|
Line 1257 ENDEDIT
|
$Apache::lonpublisher::metadatafields{'owner'} = |
$Apache::lonpublisher::metadatafields{'owner'} = |
$env{'user.name'}.':'.$env{'user.domain'}; |
$env{'user.name'}.':'.$env{'user.domain'}; |
} |
} |
|
|
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
|
|
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
$r->print(&mt('Associated with course [_1]', |
$r->print(&mt('Associated with course [_1]', |
'<strong><a href="'.$uri.'?changecourse=true">'. |
'<strong><a href="'.$uri.'?changecourse=true">'. |