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

Diff for /loncom/interface/londocs.pm between versions 1.484.2.57 and 1.484.2.60

version 1.484.2.57, 2014/12/21 19:20:41 version 1.484.2.60, 2015/03/24 10:05:45
Line 2613  sub update_parameter { Line 2613  sub update_parameter {
         }          }
         return $haschanges;          return $haschanges;
     } else {      } else {
         return 0 if ($env{'form.changeparms'} !~ /^($valid_parameters_re)$/);          my $haschanges = 0;
           return $haschanges if ($env{'form.changeparms'} !~ /^($valid_parameters_re)$/);
   
         my $which = $env{'form.changeparms'};          my $which = $env{'form.changeparms'};
         my $idx = $env{'form.setparms'};          my $idx = $env{'form.setparms'};
           my $oldvalue = 0;
           my $newvalue = 0;
           my $current = (&LONCAPA::map::getparameter($idx,'parameter_'.$which))[0];
           if ($which eq 'randompick') {
               if ($current =~ /^(\d+)$/) {
                   $oldvalue = $1;
               }
           } elsif ($current =~ /^yes$/i) {
               $oldvalue = 1;
           }
         if ($env{'form.'.$which.'_'.$idx}) {          if ($env{'form.'.$which.'_'.$idx}) {
     my $value = ($which eq 'randompick') ? $env{'form.rpicknum_'.$idx}              $newvalue = ($which eq 'randompick') ? $env{'form.rpicknum_'.$idx}
                                          : 'yes';                                                   : 1;
     &LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $value,          }
           $parameter_type{$which});          if ($oldvalue ne $newvalue) {
     &remember_parms($idx,$which,'set',$value);              $haschanges = 1;
         } else {              if ($newvalue) {
     &LONCAPA::map::delparameter($idx,'parameter_'.$which);                  my $storeval = 'yes';
                   if ($which eq 'randompick') {
     &remember_parms($idx,$which,'del');                      $storeval = $newvalue;
                   }
                   &LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $storeval,
                                                 $parameter_type{$which});
                   &remember_parms($idx,$which,'set',$storeval);
               } else {
                   &LONCAPA::map::delparameter($idx,'parameter_'.$which);
                   &remember_parms($idx,$which,'del');
               }
         }          }
         return 1;          return $haschanges;
     }      }
       return;
 }  }
   
   
 sub handle_edit_cmd {  sub handle_edit_cmd {
     my ($coursenum,$coursedom) =@_;      my ($coursenum,$coursedom) =@_;
     if ($env{'form.cmd'} eq '') {      if ($env{'form.cmd'} eq '') {
Line 2724  sub editor { Line 2743  sub editor {
  &snapshotbefore();   &snapshotbefore();
   
  if (&update_parameter()) {   if (&update_parameter()) {
     ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);      ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,1);
     return $errtext if ($fatal);      return $errtext if ($fatal);
  }   }
   
Line 2788  sub editor { Line 2807  sub editor {
 # Rename, cut, copy or remove a single resource  # Rename, cut, copy or remove a single resource
  if (&handle_edit_cmd()) {   if (&handle_edit_cmd()) {
             my $contentchg;              my $contentchg;
             if ($env{'form.cmd'} =~ m{^(del|cut)_}) {              if ($env{'form.cmd'} =~ m{^(remove|cut)_}) {
                 $contentchg = 1;                  $contentchg = 1;
             }              }
     ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,$contentchg);      ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,$contentchg);
Line 3874  sub new_timebased_suffix { Line 3893  sub new_timebased_suffix {
                     '<div class="LC_error">'.                      '<div class="LC_error">'.
                     &mt('A lockfile was not released when you added content to the clipboard earlier in this session.').' '.                      &mt('A lockfile was not released when you added content to the clipboard earlier in this session.').' '.
   
                     &mt('As a result addition of items to the clipboard wll be unavailable until your next log-in.');                      &mt('As a result addition of items to the clipboard will be unavailable until your next log-in.');
             } else {              } else {
                 $locknotfreed .=                  $locknotfreed .=
                     &mt('This will prevent addition of items to the clipboard until your next log-in.');                      &mt('This will prevent addition of items to the clipboard until your next log-in.');
Removed from v.1.484.2.57  
changed lines
  Added in v.1.484.2.60

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