version 1.110, 2005/10/06 22:20:30
|
version 1.111, 2005/10/14 04:24:12
|
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 1001 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', |