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

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

version 1.384, 2007/11/02 23:29:49 version 1.385, 2007/11/02 23:30:56
Line 2503  sub storedata { Line 2503  sub storedata {
             if ($tuname) {              if ($tuname) {
  $tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;   $tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
     }      }
     if ($cmd eq 'set' || $cmd eq 'datepointer') {      if ($cmd eq 'set' || $cmd eq 'datepointer' || $cmd eq 'dateinterval') {
  my ($data, $typeof, $text);   my ($data, $typeof, $text);
  if ($cmd eq 'set') {   if ($cmd eq 'set') {
     $data=$env{$_};      $data=$env{$_};
Line 2513  sub storedata { Line 2513  sub storedata {
     $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});      $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});
     $typeof=$env{'form.typeof_'.$thiskey};      $typeof=$env{'form.typeof_'.$thiskey};
     $text = &mt('Saved modified date for');      $text = &mt('Saved modified date for');
    } elsif ($cmd eq 'dateinterval') {
       $data=&get_date_interval_from_form($thiskey);
       $typeof=$env{'form.typeof_'.$thiskey};
       $text = &mt('Saved modified date for');
  }   }
  if (defined($data) and $$olddata{$thiskey} ne $data) {    if (defined($data) and $$olddata{$thiskey} ne $data) { 
     if ($tuname) {      if ($tuname) {
Line 2727  sub listdata { Line 2731  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 'date_interval') {
    $r->print(&date_interval_selector($thiskey,
     $$resourcedata{$thiskey}));
     } elsif ($thistype =~ m/^string/) {      } elsif ($thistype =~ m/^string/) {
  $r->print(&string_selector($thistype,$thiskey,   $r->print(&string_selector($thistype,$thiskey,
    $$resourcedata{$thiskey}));     $$resourcedata{$thiskey}));
Line 2741  sub listdata { Line 2748  sub listdata {
     return $foundkeys;      return $foundkeys;
 }  }
   
   
   sub date_interval_selector {
       my ($thiskey, $showval) = @_;
       my $result;
       &Apache::lonnet::logthis($showval);
       foreach my $which (['days', 86400, 31],
          ['hours', 3600, 23],
          ['minutes', 60, 59],
          ['seconds',  1, 59]) {
    my ($name, $factor, $max) = @{ $which };
    my $amount = int($showval/$factor);
    $showval  %= $factor;
    &Apache::lonnet::logthis("$amount $factor $showval");
    my %select = ((map {$_ => $_} (0..$max)),
         'select_form_order' => [0..$max]);
    $result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
      %select);
    $result .= ' '.&mt($name);
       }
       $result .= '<input type="hidden" name="dateinterval_'.$thiskey.'" />';
       return $result;
   
   }
   
   sub get_date_interval_from_form {
       my ($key) = @_;
       my $seconds = 0;
       foreach my $which (['days', 86400],
          ['hours', 3600],
          ['minutes', 60],
          ['seconds',  1]) {
    my ($name, $factor) = @{ $which };
    if (defined($env{'form.'.$name.'_'.$key})) {
       $seconds += $env{'form.'.$name.'_'.$key} * $factor;
    }
       }
       return $seconds;
   }
   
   
 sub default_selector {  sub default_selector {
     my ($thiskey, $showval) = @_;      my ($thiskey, $showval) = @_;
     return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'">' ;      return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'" />';
 }  }
   
 my %strings =   my %strings = 
Removed from v.1.384  
changed lines
  Added in v.1.385

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