version 1.112, 2005/10/14 16:34:17
|
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; |
('metadata.title' => 'Title', |
if ($file_type eq 'portfolio') { |
|
%fields = |
|
(%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 'restrictedportfolio') { |
|
%fields = |
|
(%fields, |
|
'metadata.title' => 'Title', |
'metadata.author' =>'Author(s)', |
'metadata.author' =>'Author(s)', |
'metadata.authorspace' => 'Author Space', |
'metadata.authorspace' => 'Author Space', |
'metadata.modifyinguser' => 'Last Modifying User', |
'metadata.modifyinguser' => 'Last Modifying User', |
Line 248 sub fieldnames {
|
Line 265 sub fieldnames {
|
'metadata.abstract' => 'Abstract', |
'metadata.abstract' => 'Abstract', |
'metadata.lowestgradelevel' => 'Lowest Grade Level', |
'metadata.lowestgradelevel' => 'Lowest Grade Level', |
'metadata.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 308 sub fieldnames {
|
|
|
sub select_course { |
sub select_course { |
my ($r)=@_; |
my ($r)=@_; |
my @courses; |
my %courses; |
foreach my $key (keys (%env)) { |
foreach my $key (keys (%env)) { |
|
if ($key =~ m/\.metadata\./) { |
if ($key =~ m/^(course\..+)\.metadata\..+\.options/) { |
$key =~ m/^course\.(.+)(\.metadata.+$)/; |
my $course_key = $1; |
my $course = $1; |
$course_key .= '.description'; |
my $coursekey = 'course.'.$course.'.description'; |
$r->print($env{$course_key}.' of '.$course_key.'<br />'); |
my $value = $env{$coursekey}; |
push @courses, $key; |
$courses{$coursekey} = $value; |
} |
} |
} |
} |
foreach (@courses) { |
$r->print('<h3>Course Related Meta-Data</h3><br />'); |
$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 test 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 ($meta_not_found) { |
if ($key =~ /\.metadata\./) { |
undef($meta_not_found); |
if ($meta_not_found) { |
$r->print('<h3>Portfolio Meta-Data</h3><br />'); |
undef($meta_not_found); |
$r->print('<form action="" method="post">'); |
$r->print('<h3>Portfolio Meta-Data</h3><br />'); |
$r->print('Select your course<br />'); |
$r->print('<form action="" method="post">'); |
$r->print('<select name="metacourse" >'); |
$r->print('Select your course<br />'); |
} |
$r->print('<select name="metacourse" >'); |
$r->print('<option value="'.$key.'">'); |
} |
$r->print($courses{$key}); |
my $course_key = $key; |
$r->print('</option>'); |
$course_key =~ s/\.metadata\..*//; |
|
$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 />'); |
Line 1015 ENDEDIT
|
Line 1025 ENDEDIT
|
my $output; |
my $output; |
my @fields; |
my @fields; |
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
@fields = ('author','metadata.title','metadata.subject','metadata.keywords','abstract','notes','lowestgradelevel', |
@fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel', |
'highestgradelevel'); |
'highestgradelevel'); |
} else { |
} else { |
@fields = ('author','title','subject','keywords','abstract','notes', |
@fields = ('author','title','subject','keywords','abstract','notes', |