[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.113

version 1.110, 2005/10/06 22:20:30 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" >');  
             }  
             my $course_key = $key;  
             $course_key =~ s/\.metadata\..*//;  
             $r->print('<option value="'.$course_key.'">');  
             $r->print($env{$course_key.'.description'});  
             $r->print('</option>');  
         }          }
           $r->print('<option value="'.$key.'">');
           $r->print($courses{$key});
           $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';
Removed from v.1.110  
changed lines
  Added in v.1.113

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