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

Diff for /loncom/interface/lonparmset.pm between versions 1.385 and 1.389

version 1.385, 2007/11/02 23:30:56 version 1.389, 2008/01/22 22:37:18
Line 2599  sub parse_listdata_key { Line 2599  sub parse_listdata_key {
  $realm=~s/\.type//;   $realm=~s/\.type//;
     }      }
     # split into resource+part and parameter name      # split into resource+part and parameter name
     my ($res, $parm) = ($realm=~/^(.*)\.(.*)$/);      my ($res,    $parm) = ($realm=~/^(.*)\.(.*)$/);
     my ($res, $part) = ($res  =~/^(.*)\.(.*)$/);         ($res, my $part) = ($res  =~/^(.*)\.(.*)$/);
     return ($student,$res,$part,$parm);      return ($student,$res,$part,$parm);
 }  }
   
Line 2752  sub listdata { Line 2752  sub listdata {
 sub date_interval_selector {  sub date_interval_selector {
     my ($thiskey, $showval) = @_;      my ($thiskey, $showval) = @_;
     my $result;      my $result;
     &Apache::lonnet::logthis($showval);  
     foreach my $which (['days', 86400, 31],      foreach my $which (['days', 86400, 31],
        ['hours', 3600, 23],         ['hours', 3600, 23],
        ['minutes', 60, 59],         ['minutes', 60, 59],
Line 2760  sub date_interval_selector { Line 2759  sub date_interval_selector {
  my ($name, $factor, $max) = @{ $which };   my ($name, $factor, $max) = @{ $which };
  my $amount = int($showval/$factor);   my $amount = int($showval/$factor);
  $showval  %= $factor;   $showval  %= $factor;
  &Apache::lonnet::logthis("$amount $factor $showval");  
  my %select = ((map {$_ => $_} (0..$max)),   my %select = ((map {$_ => $_} (0..$max)),
       'select_form_order' => [0..$max]);        'select_form_order' => [0..$max]);
  $result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,   $result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
Line 2800  my %strings = Line 2798  my %strings =
  [ 'no', 'No' ]],   [ 'no', 'No' ]],
      'string_problemstatus'       'string_problemstatus'
              => [[ 'yes', 'Yes' ],               => [[ 'yes', 'Yes' ],
    [ 'answer', 'Yes, and show correct answer if they exceed the maxium number of tries.' ],
  [ 'no', 'No, don\'t show correct/incorrect feedback.' ],   [ 'no', 'No, don\'t show correct/incorrect feedback.' ],
  [ 'no_feedback_ever', 'No, show no feedback at all.' ]],   [ 'no_feedback_ever', 'No, show no feedback at all.' ]],
      );       );
Line 2825  sub string_selector { Line 2824  sub string_selector {
     return $result;      return $result;
 }  }
   
   #
   # Shift all start and end dates by $shift
   #
   
   sub dateshift {
       my ($shift)=@_;
       my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
       my %data=&Apache::lonnet::dump('resourcedata',$dom,$crs);
   # ugly retro fix for broken version of types
       foreach my $key (keys %data) {
           if ($key=~/\wtype$/) {
               my $newkey=$key;
               $newkey=~s/type$/\.type/;
               $data{$newkey}=$data{$key};
               delete $data{$key};
           }
       }
   # go through all parameters and look for dates
       foreach my $key (keys %data) {
          if ($data{$key.'.type'}=~/^date_(start|end)$/) {
             my $newdate=$data{$key}+$shift;
             &Apache::lonnet::put('resourcedata',{$key => $newdate},$dom,$crs);
          }
       }
   }
   
 sub newoverview {  sub newoverview {
     my ($r) = @_;      my ($r) = @_;
   
Removed from v.1.385  
changed lines
  Added in v.1.389

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