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

Diff for /loncom/interface/lonparmset.pm between versions 1.381 and 1.383

version 1.381, 2007/09/11 01:59:30 version 1.383, 2007/10/17 00:27:44
Line 2124  sub crsenv { Line 2124  sub crsenv {
                 if ($name eq 'cloners') {                  if ($name eq 'cloners') {
                     &change_clone($value,\@oldcloner);                      &change_clone($value,\@oldcloner);
                 }                  }
                 # Flush the course logs so course description is immediately updated                  # Update environment and nohist_courseids.db
                 if ($name eq 'description' && defined($value)) {                  if ($name eq 'description' && defined($value)) {
                     &Apache::lonnet::flushcourselogs();                      my %crsinfo = 
                           &Apache::lonnet::courseiddump($dom,'.',1,'.','.',
                                                    $crs,undef,undef,'Course');
                       &Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.description' => $value);
                       if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
                           $crsinfo{$env{'request.course.id'}}{'description'} = $value; 
                           my $chome = &Apache::lonnet::homeserver($crs,$dom);
                           my $putresult =
                               &Apache::lonnet::courseidput($dom,\%crsinfo,
                                                            $chome,'notime');
                       }
                 }                  }
             } else {              } else {
                 $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').                  $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
Line 2729  sub listdata { Line 2739  sub listdata {
 '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.  '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
 &date_sanity_info($$resourcedata{$thiskey})  &date_sanity_info($$resourcedata{$thiskey})
   );    );
     } elsif ($thistype eq 'string_yesno') {      } elsif ($thistype =~ m/^string/) {
  my $showval;   $r->print(&string_selector($thistype,$thiskey,
  if (defined($$resourcedata{$thiskey})) {     $$resourcedata{$thiskey}));
     $showval=$$resourcedata{$thiskey};  
  }  
  $r->print('<label><input type="radio" name="set_'.$thiskey.  
   '" value="yes"');  
  if ($showval eq 'yes') {  
     $r->print(' checked="checked"');  
  }  
                 $r->print(' />'.&mt('Yes').'</label> ');  
  $r->print('<label><input type="radio" name="set_'.$thiskey.  
   '" value="no"');  
  if ($showval eq 'no') {  
     $r->print(' checked="checked"');  
  }  
                 $r->print(' />'.&mt('No').'</label>');  
     } else {      } else {
  my $showval;   $r->print(&default_selector($thiskey,$$resourcedata{$thiskey}));
  if (defined($$resourcedata{$thiskey})) {  
     $showval=$$resourcedata{$thiskey};  
  }  
  $r->print('<input type="text" name="set_'.$thiskey.'" value="'.  
   $showval.'">');  
     }      }
     $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.      $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
       $thistype.'">');        $thistype.'">');
Line 2762  sub listdata { Line 2753  sub listdata {
     return $foundkeys;      return $foundkeys;
 }  }
   
   sub default_selector {
       my ($thiskey, $showval) = @_;
       return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'">' ;
   }
   
   my %strings = 
       (
        'string_yesno'
                => [[ 'yes', 'Yes' ],
    [ 'no', 'No' ]],
        'string_problemstatus'
                => [[ 'yes', 'Yes' ],
    [ 'no', 'No, don\'t show correct/incorrect feedback.' ],
    [ 'no_feedback_ever', 'No, show no feedback at all.' ]],
        );
   
   
   sub string_selector {
       my ($thistype, $thiskey, $showval) = @_;
       
       if (!exists($strings{$thistype})) {
    return &default_selector($thiskey,$showval);
       }
   
       my $result;
       foreach my $possibilities (@{ $strings{$thistype} }) {
    my ($name, $description) = @{ $possibilities };
    $result .= '<label><input type="radio" name="set_'.$thiskey.
     '" value="'.$name.'"';
    if ($showval eq $name) {
       $result .= ' checked="checked"';
    }
    $result .= ' />'.&mt($description).'</label> ';
       }
       return $result;
   }
   
 sub newoverview {  sub newoverview {
     my ($r) = @_;      my ($r) = @_;
   
Line 2992  ENDOVER Line 3020  ENDOVER
  next if (!exists($resourcedata->{$thiskey.'.type'})   next if (!exists($resourcedata->{$thiskey.'.type'})
  && $thiskey=~/\.type$/);   && $thiskey=~/\.type$/);
  my %data = &parse_key($thiskey);   my %data = &parse_key($thiskey);
  if (exists($data{'realm_exists'})   if (1) { #exists($data{'realm_exists'})
     && !$data{'realm_exists'}) {      #&& !$data{'realm_exists'}) {
     $r->print(&Apache::loncommon::start_data_table_row().      $r->print(&Apache::loncommon::start_data_table_row().
       '<tr>'.        '<tr>'.
       '<td><input type="checkbox" name="del_'.$thiskey.'" /></td>'      );        '<td><input type="checkbox" name="del_'.$thiskey.'" /></td>'      );
Removed from v.1.381  
changed lines
  Added in v.1.383

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