[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.388

version 1.385, 2007/11/02 23:30:56 version 1.388, 2007/12/01 03:45:17
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.' ]],
      );       );
Removed from v.1.385  
changed lines
  Added in v.1.388

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