version 1.108, 2005/08/27 23:25:18
|
version 1.113, 2005/10/17 21:36:44
|
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; |
('title' => 'Title', |
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 248 sub fieldnames {
|
Line 251 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 290 sub fieldnames {
|
Line 308 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/\.metadata\./) { |
|
$key =~ m/^course\.(.+)(\.metadata.+$)/; |
|
my $course = $1; |
|
my $coursekey = 'course.'.$course.'.description'; |
|
my $value = $env{$coursekey}; |
|
$courses{$coursekey} = $value; |
|
} |
|
} |
|
$r->print('<h3>Course Related 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 (%courses)) { |
if ($key =~ /\.metadata\./) { |
if ($meta_not_found) { |
if ($meta_not_found) { |
undef($meta_not_found); |
undef($meta_not_found); |
$r->print('<h3>Portfolio Meta-Data</h3><br />'); |
$r->print('<h3>Instructor Selected 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" >'); |
} |
} |
$r->print('<option value="'.$key.'">'); |
my $course_key = $key; |
$r->print($courses{$key}); |
$course_key =~ s/\.metadata\..*//; |
$r->print('</option>'); |
$r->print('<option value="'.$course_key.'">'); |
|
$r->print($env{$course_key.'.description'}); |
|
$r->print('</option>'); |
|
} |
|
} |
} |
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 575 sub handler {
|
Line 599 sub handler {
|
# Looking for all bombs? |
# Looking for all bombs? |
&report_bombs($r,$uri); |
&report_bombs($r,$uri); |
} elsif ($uri=~/\/portfolio\//) { |
} elsif ($uri=~/\/portfolio\//) { |
|
($resdomain,$resuser)= |
|
(&Apache::lonnet::declutter($uri)=~m|^(\w+)/(\w+)/portfolio|); |
$r->print(&Apache::loncommon::bodytag |
$r->print(&Apache::loncommon::bodytag |
('Edit Portfolio File Information','','','',$resdomain)); |
('Edit Portfolio File Information','','','',$resdomain)); |
&present_editable_metadata($r,$uri,'portfolio'); |
&present_editable_metadata($r,$uri,'portfolio'); |
Line 930 sub present_editable_metadata {
|
Line 956 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 983 ENDDEL
|
Line 1010 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); |
} |
} |