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

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

version 1.113, 2005/10/17 21:36:44 version 1.114, 2005/10/19 21:53:16
Line 238  sub diffgraph { Line 238  sub diffgraph {
 sub fieldnames {  sub fieldnames {
     my $file_type=shift;      my $file_type=shift;
     my %fields;      my %fields;
       %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 'portfolio') {      if ($file_type eq 'portfolio') {
         %fields =           %fields = 
         (%fields,          (%fields,
Line 1021  ENDEDIT Line 1033  ENDEDIT
         $r->print('<script language="JavaScript">'.          $r->print('<script language="JavaScript">'.
                   &Apache::loncommon::browser_and_searcher_javascript().                    &Apache::loncommon::browser_and_searcher_javascript().
                   '</script>');                    '</script>');
           if (($file_type eq 'portfolio') && $env{'form.metacourse'}) {
               $file_type = 'restrictedportfolio';
           }
         my %lt=&fieldnames($file_type);          my %lt=&fieldnames($file_type);
  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','title','subject','keywords','abstract','notes','lowestgradelevel',
                 'highestgradelevel');                  'highestgradelevel');
    } elsif ($file_type eq 'restrictedportfolio') {
       @fields =  ('metadata.author','metadata.title','metadata.subject','metadata.keywords','metadata.abstract','metadata.notes','metadata.lowestgradelevel',
                   'metadata.highestgradelevel');
  } else {   } else {
     @fields = ('author','title','subject','keywords','abstract','notes',      @fields = ('author','title','subject','keywords','abstract','notes',
                  'copyright','customdistributionfile','language',                   'copyright','customdistributionfile','language',
Line 1047  ENDEDIT Line 1065  ENDEDIT
                       &prettyinput($_,                        &prettyinput($_,
    $Apache::lonpublisher::metadatafields{$_},     $Apache::lonpublisher::metadatafields{$_},
    'new_'.$_,'defaultmeta').'</p>');     'new_'.$_,'defaultmeta').'</p>');
             if ($env{'form.metacourse'}) {   
                 $r->print('This is the instructor metadata area<br />');  
                 # have to find all the metadata items, so we'll loop through and find them  
                 $r->print('<form method="post" action="" size="3" >');  
                 $r->print('The course is: '.$env{'form.metacourse'}.'<br>');  
                 foreach my $key (sort keys %env) {  
                     if ($key=~m/^($env{'form.metacourse'}\.metadata\.)(\d+)\.title/) {  
                         my $key_base = $1;  
                         my $item_num = $2;  
                         # found one, so let's display it  
                         my $title = $env{$key_base.$item_num.'.title'};  
                         my $type = $env{$key_base.$item_num.'.type'};  
                         my @choices = sort(split /, /,$env{$key_base.$item_num.'.values'});  
                         $r->print($title.'<br />');  
                         $r->print($type.'<br />');  
               
             foreach my $word (@choices) {  
                 my $checked;  
                 if ($Apache::lonpublisher::metadatafields{'coursekeyword'}=~ m/$word/) {  
                     $checked = 1;  
                 } else {  
                     undef($checked);  
                 }  
                 $r->print(&Apache::lonhtmlcommon::checkbox('instmeta_'.$env{'form.metacourse'}.'_'.$item_num,$checked,$word).$word.'<br />');  
             }  
         }  
     }     
     $r->print('<br /><input type="submit" name="store" value="Assign Meta-data" />');  
     $r->print('</form>');  
     return 'ok';  
             }  
         }          }
         if ($env{'form.store'}) {          if ($env{'form.store'}) {
             my $mfh;              my $mfh;
Removed from v.1.113  
changed lines
  Added in v.1.114

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