version 1.114, 2005/10/19 21:53:16
|
version 1.115, 2005/10/21 19:20:58
|
Line 237 sub diffgraph {
|
Line 237 sub diffgraph {
|
# The field names |
# The field names |
sub fieldnames { |
sub fieldnames { |
my $file_type=shift; |
my $file_type=shift; |
my %fields; |
my %fields = |
%fields = |
('title' => 'Title', |
(%fields, |
|
'title' => 'Title', |
|
'author' =>'Author(s)', |
|
'authorspace' => 'Author Space', |
|
'modifyinguser' => 'Last Modifying User', |
|
'subject' => 'Subject', |
|
'keywords' => 'Keyword(s)', |
|
'notes' => 'Notes', |
|
'abstract' => 'Abstract', |
|
'lowestgradelevel' => 'Lowest Grade Level', |
|
'highestgradelevel' => 'Highest Grade Level'); |
|
if ($file_type eq 'portfolio') { |
|
%fields = |
|
(%fields, |
|
'title' => 'Title', |
|
'author' =>'Author(s)', |
'author' =>'Author(s)', |
'authorspace' => 'Author Space', |
'authorspace' => 'Author Space', |
'modifyinguser' => 'Last Modifying User', |
'modifyinguser' => 'Last Modifying User', |
Line 263 sub fieldnames {
|
Line 248 sub fieldnames {
|
'abstract' => 'Abstract', |
'abstract' => 'Abstract', |
'lowestgradelevel' => 'Lowest Grade Level', |
'lowestgradelevel' => 'Lowest Grade Level', |
'highestgradelevel' => 'Highest Grade Level'); |
'highestgradelevel' => 'Highest Grade Level'); |
} |
|
if ($file_type eq 'restrictedportfolio') { |
|
%fields = |
|
(%fields, |
|
'metadata.title' => 'Title', |
|
'metadata.author' =>'Author(s)', |
|
'metadata.authorspace' => 'Author Space', |
|
'metadata.modifyinguser' => 'Last Modifying User', |
|
'metadata.subject' => 'Subject', |
|
'metadata.keywords' => 'Keyword(s)', |
|
'metadata.notes' => 'Notes', |
|
'metadata.abstract' => 'Abstract', |
|
'metadata.lowestgradelevel' => 'Lowest Grade Level', |
|
'metadata.highestgradelevel' => 'Highest Grade Level'); |
|
} |
|
if (! defined($file_type) || $file_type ne 'portfolio') { |
if (! defined($file_type) || $file_type ne 'portfolio') { |
%fields = |
%fields = |
(%fields, |
(%fields, |
Line 1033 ENDEDIT
|
Line 1003 ENDEDIT
|
$r->print('<script language="JavaScript">'. |
$r->print('<script language="JavaScript">'. |
&Apache::loncommon::browser_and_searcher_javascript(). |
&Apache::loncommon::browser_and_searcher_javascript(). |
'</script>'); |
'</script>'); |
if (($file_type eq 'portfolio') && $env{'form.metacourse'}) { |
|
$file_type = 'restrictedportfolio'; |
|
} |
|
my %lt=&fieldnames($file_type); |
my %lt=&fieldnames($file_type); |
my $output; |
my $output; |
my @fields; |
my @fields; |
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel', |
@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel', |
'highestgradelevel'); |
'highestgradelevel'); |
} elsif ($file_type eq 'restrictedportfolio') { |
|
@fields = ('metadata.author','metadata.title','metadata.subject','metadata.keywords','metadata.abstract','metadata.notes','metadata.lowestgradelevel', |
|
'metadata.highestgradelevel'); |
|
} else { |
} else { |
@fields = ('author','title','subject','keywords','abstract','notes', |
@fields = ('author','title','subject','keywords','abstract','notes', |
'copyright','customdistributionfile','language', |
'copyright','customdistributionfile','language', |
Line 1061 ENDEDIT
|
Line 1025 ENDEDIT
|
$Apache::lonpublisher::metadatafields{'copyright'}= |
$Apache::lonpublisher::metadatafields{'copyright'}= |
'default'; |
'default'; |
} |
} |
$output.=('<p>'.$lt{$_}.': '. |
if ($env{'form.metacourse'}) { |
&prettyinput($_, |
# handle restrictions here |
|
$env{'form.metacourse'} =~ m/(^.+)\.description$/; |
|
my $key_base = $1; |
|
if ($env{$key_base.'.metadata.'.$_.'.options'} =~ m/active/) { |
|
$output.=('<p>'.$lt{$_}.': '. |
|
&prettyinput($_, |
$Apache::lonpublisher::metadatafields{$_}, |
$Apache::lonpublisher::metadatafields{$_}, |
'new_'.$_,'defaultmeta').'</p>'); |
'new_'.$_,'defaultmeta').'</p>'); |
|
} |
|
} else { |
|
$output.=('<p>'.$lt{$_}.': '. |
|
&prettyinput($_, |
|
$Apache::lonpublisher::metadatafields{$_}, |
|
'new_'.$_,'defaultmeta').'</p>'); |
|
} |
} |
} |
if ($env{'form.store'}) { |
if ($env{'form.store'}) { |
my $mfh; |
my $mfh; |
my $formname='store'; |
my $formname='store'; |
my $file_content; |
my $file_content; |
foreach my $meta_field (keys %env) { |
foreach my $meta_field (keys %env) { |
if ($meta_field=~m/^form.instmeta_(.+)_(\d+)$/) { |
|
$r->print('Found a field<br>'); |
|
} |
|
if (&Apache::loncommon::get_env_multiple('form.keywords')) { |
if (&Apache::loncommon::get_env_multiple('form.keywords')) { |
$Apache::lonpublisher::metadatafields{'coursekeyword'} = |
$Apache::lonpublisher::metadatafields{'coursekeyword'} = |
join (', ', &Apache::loncommon::get_env_multiple('form.keywords')); |
join (', ', &Apache::loncommon::get_env_multiple('form.keywords')); |
Line 1109 ENDEDIT
|
Line 1081 ENDEDIT
|
$env{'form.'.$formname.'.filename'}=$new_fn; |
$env{'form.'.$formname.'.filename'}=$new_fn; |
&Apache::lonnet::userfileupload('uploaddoc','', |
&Apache::lonnet::userfileupload('uploaddoc','', |
'portfolio'.$env{'form.currentpath'}); |
'portfolio'.$env{'form.currentpath'}); |
my $status =&Apache::lonnet::userfileupload($formname,'','portfolio'); |
|
if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') { |
if (&Apache::lonnet::userfileupload($formname,'','portfolio') eq 'error: no uploaded file') { |
$r->print('<p><font color="red">'. |
$r->print('<p><font color="red">'. |
&mt('Could not write metadata').', '. |
&mt('Could not write metadata').', '. |