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

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

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',
Removed from v.1.112  
changed lines
  Added in v.1.113

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