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

Diff for /loncom/interface/lonmeta.pm between versions 1.129 and 1.130

version 1.129, 2005/11/19 00:00:38 version 1.130, 2005/11/19 00:16:01
Line 240  sub fieldnames { Line 240  sub fieldnames {
     my %fields =       my %fields = 
         ('title' => 'Title',          ('title' => 'Title',
          'author' =>'Author(s)',           'author' =>'Author(s)',
          'authorspace' => 'Author Space',  
          'modifyinguser' => 'Last Modifying User',  
          'subject' => 'Subject',           'subject' => 'Subject',
          'keywords' => 'Keyword(s)',           'keywords' => 'Keyword(s)',
          'notes' => 'Notes',           'notes' => 'Notes',
Line 515  sub prettyinput { Line 513  sub prettyinput {
         } else {          } else {
             $cur_values_stu = $value;              $cur_values_stu = $value;
         }          }
         if ($type eq 'author') {  
             return   
             '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.  
             'value="'.$value.'" />'.  
         &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,  
                       $relatedvalue);   
               
         }  
         if ($type eq 'courserestricted') {          if ($type eq 'courserestricted') {
             return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');              return ('<input type="hidden" name="new_courserestricted" value="'.$course_key.'" />');
         }          }
         if ($type eq 'authorspace') {          if (($type eq 'keywords') || ($type eq 'subject')
         }               || ($type eq 'author')||($type eq  'notes')
         if ($type eq 'modifyinguser') {               || ($type eq  'abstract')|| ($type eq  'title')) {
         }  
         if ($type eq 'subject') {  
         }  
         if ($type eq 'keywords') {  
             if ($values) {              if ($values) {
                 if ($only_one) {                  if ($only_one) {
                     $output .= (&Apache::loncommon::select_form($value,'new_keywords',%meta_options));                      $output .= (&Apache::loncommon::select_form($value,'new_'.$type,%meta_options));
                 } else {                  } else {
                     $output .= (&Apache::loncommon::multiple_select_form('new_keywords',\@cur_values_inst,undef,\%meta_options));                      $output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options));
                 }                  }
             }              }
             if ($stu_add) {              if ($stu_add) {
Line 548  sub prettyinput { Line 534  sub prettyinput {
             }              }
             return ($output);              return ($output);
         }          }
         if ($type eq  'notes') {  
         }  
         if ($type eq  'abstract') {  
  }  
   
         if (($type eq 'lowestgradelevel') ||          if (($type eq 'lowestgradelevel') ||
     ($type eq 'highestgradelevel')) {      ($type eq 'highestgradelevel')) {
     return &Apache::loncommon::select_level_form($value,$fieldname).      return &Apache::loncommon::select_level_form($value,$fieldname).
Removed from v.1.129  
changed lines
  Added in v.1.130

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