version 1.102, 2005/08/02 21:35:10
|
version 1.103, 2005/08/04 23:47:37
|
Line 292 sub select_course {
|
Line 292 sub select_course {
|
my ($r)=@_; |
my ($r)=@_; |
$r->print('<h3>Instructor Selected 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" >'); |
foreach my $key (keys %env) { |
my $meta_not_found = 1; |
|
foreach my $key (keys %env) { |
if ($key =~ /\.metadata\./) { |
if ($key =~ /\.metadata\./) { |
|
if ($meta_not_found) { |
|
undef($meta_not_found); |
|
$r->print('<h3>Instructor Selected Meta-Data</h3><br />'); |
|
$r->print('<form action="" method="post">'); |
|
$r->print('Select your course<br />'); |
|
$r->print('<select name="metacourse" >'); |
|
} |
my $course_key = $key; |
my $course_key = $key; |
$course_key =~ s/\.metadata\..*//; |
$course_key =~ s/\.metadata\..*//; |
$r->print('<option value="'.$course_key.'">'); |
$r->print('<option value="'.$course_key.'">'); |
Line 304 sub select_course {
|
Line 311 sub select_course {
|
$r->print('</option>'); |
$r->print('</option>'); |
} |
} |
} |
} |
$r->print('</select><br />'); |
unless ($meta_not_found) { |
$r->print('<input type="submit" >'); |
$r->print('</select><br />'); |
$r->print('</form>'); |
$r->print('<input type="submit" value="Assign Instructor Metadata" />'); |
|
$r->print('</form>'); |
|
} |
return 'ok'; |
return 'ok'; |
} |
} |
# Pretty printing of metadata field |
# Pretty printing of metadata field |
Line 911 sub print_dynamic_metadata {
|
Line 920 sub print_dynamic_metadata {
|
|
|
sub present_instructor_metadata { |
sub present_instructor_metadata { |
my ($r,$uri, $file_type) = @_; |
my ($r,$uri, $file_type) = @_; |
print $r->print('This is the instructor metadata area'); |
$r->print('This is the instructor metadata area<br />'); |
|
my $keywords = $env{$env{'form.metacourse'}.'.metadata.keywords'}; |
|
$r->print($env{'form.metacourse'}.'<br />'); |
|
$r->print('the keywords are: '.$keywords); |
return 'ok'; |
return 'ok'; |
} |
} |
|
|