version 1.109, 2005/10/06 22:16:32
|
version 1.112, 2005/10/14 16:34:17
|
Line 238 sub diffgraph {
|
Line 238 sub diffgraph {
|
sub fieldnames { |
sub fieldnames { |
my $file_type=shift; |
my $file_type=shift; |
my %fields = |
my %fields = |
('title' => 'Title', |
('metadata.title' => 'Title', |
'author' =>'Author(s)', |
'metadata.author' =>'Author(s)', |
'authorspace' => 'Author Space', |
'metadata.authorspace' => 'Author Space', |
'modifyinguser' => 'Last Modifying User', |
'metadata.modifyinguser' => 'Last Modifying User', |
'subject' => 'Subject', |
'metadata.subject' => 'Subject', |
'keywords' => 'Keyword(s)', |
'metadata.keywords' => 'Keyword(s)', |
'notes' => 'Notes', |
'metadata.notes' => 'Notes', |
'abstract' => 'Abstract', |
'metadata.abstract' => 'Abstract', |
'lowestgradelevel' => 'Lowest Grade Level', |
'metadata.lowestgradelevel' => 'Lowest Grade Level', |
'highestgradelevel' => 'Highest 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 290 sub fieldnames {
|
Line 290 sub fieldnames {
|
|
|
sub select_course { |
sub select_course { |
my ($r)=@_; |
my ($r)=@_; |
$r->print('<h3>Instructor Selected Meta-Data</h3><br />'); |
my @courses; |
|
foreach my $key (keys (%env)) { |
|
|
|
if ($key =~ m/^(course\..+)\.metadata\..+\.options/) { |
|
my $course_key = $1; |
|
$course_key .= '.description'; |
|
$r->print($env{$course_key}.' of '.$course_key.'<br />'); |
|
push @courses, $key; |
|
} |
|
} |
|
foreach (@courses) { |
|
$r->print($_.' was found<br />'); |
|
} |
|
$r->print('<h3>Portfolio Meta-Data</h3><br />'); |
$r->print('<form action="" method="post">'); |
$r->print('<form action="" method="post">'); |
$r->print('Select your course<br />'); |
$r->print('Select your test course<br />'); |
$r->print('<select name="metacourse" >'); |
$r->print('<select name="metacourse" >'); |
my $meta_not_found = 1; |
my $meta_not_found = 1; |
foreach my $key (keys %env) { |
foreach my $key (keys (%env)) { |
|
|
if ($key =~ /\.metadata\./) { |
if ($key =~ /\.metadata\./) { |
if ($meta_not_found) { |
if ($meta_not_found) { |
undef($meta_not_found); |
undef($meta_not_found); |
$r->print('<h3>Instructor Selected Meta-Data</h3><br />'); |
$r->print('<h3>Portfolio Meta-Data</h3><br />'); |
$r->print('<form action="" method="post">'); |
$r->print('<form action="" method="post">'); |
$r->print('Select your course<br />'); |
$r->print('Select your course<br />'); |
$r->print('<select name="metacourse" >'); |
$r->print('<select name="metacourse" >'); |
Line 313 sub select_course {
|
Line 327 sub select_course {
|
} |
} |
unless ($meta_not_found) { |
unless ($meta_not_found) { |
$r->print('</select><br />'); |
$r->print('</select><br />'); |
$r->print('<input type="submit" value="Assign Instructor Metadata" />'); |
$r->print('<input type="submit" value="Assign Portfolio Metadata" />'); |
$r->print('</form>'); |
$r->print('</form>'); |
} |
} |
return 'ok'; |
return 'ok'; |
Line 932 sub present_editable_metadata {
|
Line 946 sub present_editable_metadata {
|
my $fn=&Apache::lonnet::filelocation('',$uri); |
my $fn=&Apache::lonnet::filelocation('',$uri); |
$disuri=~s/^\/\~/\/priv\//; |
$disuri=~s/^\/\~/\/priv\//; |
$disuri=~s/\.meta$//; |
$disuri=~s/\.meta$//; |
|
$disuri=~s|^/editupload||; |
my $target=$uri; |
my $target=$uri; |
$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//; |
$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//; |
$target=~s/\.meta$//; |
$target=~s/\.meta$//; |
Line 985 ENDDEL
|
Line 1000 ENDDEL
|
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
my $result=&Apache::lonnet::getfile($fn); |
my $result=&Apache::lonnet::getfile($fn); |
if ($result == -1){ |
if ($result == -1){ |
$r->print('Creating new '.$fn); |
$r->print('Creating new '.$disuri); |
} else { |
} else { |
&Apache::lonpublisher::metaeval($result); |
&Apache::lonpublisher::metaeval($result); |
} |
} |
Line 1000 ENDEDIT
|
Line 1015 ENDEDIT
|
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','metadata.title','metadata.subject','metadata.keywords','abstract','notes','lowestgradelevel', |
'highestgradelevel'); |
'highestgradelevel'); |
} else { |
} else { |
@fields = ('author','title','subject','keywords','abstract','notes', |
@fields = ('author','title','subject','keywords','abstract','notes', |