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

Diff for /loncom/interface/lonmeta.pm between versions 1.115 and 1.116

version 1.115, 2005/10/21 19:20:58 version 1.116, 2005/10/25 01:23:47
Line 476  sub relatedfield { Line 476  sub relatedfield {
   
 sub prettyinput {  sub prettyinput {
     my ($type,$value,$fieldname,$formname,      my ($type,$value,$fieldname,$formname,
  $relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;   $relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;
     if (! defined($size)) {      if (! defined($size)) {
         $size = 80;          $size = 80;
     }      }
       if (defined($course_key)) {
           my $stu_add;
           my $only_one;
           if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/stuadd/) {
               $stu_add = 'true';
           }
           if ($env{$course_key.'.metadata.'.$_.'.options'} =~ m/onlyone/) {
               $only_one = 'true';
           }
           title' => 'Title',
           if ($type eq 'author') {
           }
           if ($type eq 'authorspace') {
           }
           if ($type eq 'modifyinguser') {
           }
           if ($type eq 'subject') {
           }
           if ($type eq 'keywords') {
           }
           if ($type eq  'notes') {
           }
           if ($type eq  'abstract') {
           if (($type eq 'lowestgradelevel') ||
       ($type eq 'highestgradelevel')) {
       return &Apache::loncommon::select_level_form($value,$fieldname).
               &relatedfield(0,$relatedsearchflag,$relatedsep); 
           }
           return(); 
       }
     # Language      # Language
     if ($type eq 'language') {      if ($type eq 'language') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
Line 1033  ENDEDIT Line 1063  ENDEDIT
                     $output.=('<p>'.$lt{$_}.': '.                      $output.=('<p>'.$lt{$_}.': '.
                             &prettyinput($_,                              &prettyinput($_,
    $Apache::lonpublisher::metadatafields{$_},     $Apache::lonpublisher::metadatafields{$_},
    'new_'.$_,'defaultmeta').'</p>');     'new_'.$_,'defaultmeta',undef,undef,undef,undef,$key_base).'</p>');
                 }                  }
             } else {              } else {
                 $output.=('<p>'.$lt{$_}.': '.                  $output.=('<p>'.$lt{$_}.': '.
Removed from v.1.115  
changed lines
  Added in v.1.116

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