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

Diff for /loncom/interface/lonmeta.pm between versions 1.149 and 1.150

version 1.149, 2005/12/29 19:42:44 version 1.150, 2006/01/04 05:43:19
Line 358  sub pre_select_course { Line 358  sub pre_select_course {
     return;      return;
 }  }
 sub select_course {  sub select_course {
     my %courses;      my $output=$/;
     my $output;      my $current_restriction=
     my $selected;   $Apache::lonpublisher::metadatafields{'courserestricted'};
     foreach my $key (keys(%env)) {       my $selected = ($current_restriction eq 'none' ? 'selected="selected"' 
         if ($key =~ m/\.metadata\./) {                                     : '');
             $key =~ m/^course\.(.+)(\.metadata.+$)/;  
             my $course = $1;  
             my $coursekey = 'course.'.$course.'.description';  
             my $value = $env{$coursekey};  
             $courses{$coursekey} = $value;  
         }  
     }  
     my $meta_not_found = 1;  
     if ($Apache::lonpublisher::metadatafields{'courserestricted'} eq 'none') {  
         $selected = ' SELECTED ';  
     } else {  
         $selected = '';  
     }  
     $output .= '<select name="new_courserestricted" >';      $output .= '<select name="new_courserestricted" >';
     $output .= '<option value="none" '.$selected.'>None</option>';      $output .= '<option value="none" '.$selected.'>'.
     foreach my $key (keys (%courses)) {       &mt('None').'</option>'.$/;
         $key =~ m/(^.+)\.description$/;      my %courses;
         if ($Apache::lonpublisher::metadatafields{'courserestricted'} eq $1) {      foreach my $key (keys(%env)) {
             $selected = ' SELECTED ';          if ($key !~ m/^course\.(.+)\.description$/) { next; }
         } else {   my $cid = $1;
             $selected = '';          if ($env{$key} !~ /\S/) { next; }
         }   $courses{$key} = $cid;
         $output .= '<option value="'.$1.'"'.$selected.'>';      }
         $output .= $courses{$key};      foreach my $key (sort { lc($env{$a}) cmp lc($env{$b}) } (keys(%courses))) {
         $output .= '</option>';   my $cid = 'course.'.$courses{$key};
    my $selected = ($current_restriction eq $cid ? 'selected="selected"' 
                                        : '');
           if ($env{$key} !~ /\S/) { next; }
    $output .= '<option value="'.$cid.'" '.$selected.'>';
    $output .= $env{$key};
    $output .= '</option>'.$/;
    $selected = '';
     }      }
     $output .= '</select><br />';      $output .= '</select><br />';
     return ($output);      return ($output);
Line 549  sub prettyinput { Line 544  sub prettyinput {
         $size = 80;          $size = 80;
     }      }
     my $output;      my $output;
     if (defined($course_key)) {      if (defined($course_key) 
    && exists($env{$course_key.'.metadata.'.$type.'.options'})) {
         my $stu_add;          my $stu_add;
         my $only_one;          my $only_one;
         my %meta_options;          my %meta_options;
Line 1183  ENDEDIT Line 1179  ENDEDIT
                 $Apache::lonpublisher::metadatafields{$field_name}=                  $Apache::lonpublisher::metadatafields{$field_name}=
                     join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));                      join(',',&Apache::loncommon::get_env_multiple('form.new_'.$field_name));
             }              }
             if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {              if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none'
    && exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) {
                 # handle restrictions here                  # handle restrictions here
                 if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||                  if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) ||
                     ($field_name eq 'courserestricted')){                      ($field_name eq 'courserestricted')){
Removed from v.1.149  
changed lines
  Added in v.1.150

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