[BACK]Return to lonmeta.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.110 and 1.112

version 1.110, 2005/10/06 22:20:30 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 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',
Removed from v.1.110  
changed lines
  Added in v.1.112

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>