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

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

version 1.128, 2005/11/18 23:47:33 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 512  sub prettyinput { Line 510  sub prettyinput {
                     $cur_values_stu .= $_.',';                      $cur_values_stu .= $_.',';
                 }                  }
             }              }
         }          } else {
         if ($type eq 'author') {              $cur_values_stu = $value;
             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 ($values) {
         if ($type eq 'subject') {                  if ($only_one) {
         }                      $output .= (&Apache::loncommon::select_form($value,'new_'.$type,%meta_options));
         if ($type eq 'keywords') {                  } else {
             if ($only_one) {                      $output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options));
                 $output .= (&Apache::loncommon::select_form($value,'new_keywords',%meta_options));                  }
             } else {  
                 $output .= (&Apache::loncommon::multiple_select_form('new_keywords',\@cur_values_inst,undef,\%meta_options));  
             }              }
             if ($stu_add) {              if ($stu_add) {
                 $output .= '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.                  $output .= '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
Line 544  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.128  
changed lines
  Added in v.1.130

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