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

Diff for /loncom/interface/lonparmset.pm between versions 1.504 and 1.505

version 1.504, 2010/12/21 14:14:55 version 1.505, 2010/12/24 16:48:46
Line 2123  sub assessparms { Line 2123  sub assessparms {
         my ($got_chostname,$chostname,$cmajor,$cminor);          my ($got_chostname,$chostname,$cmajor,$cminor);
         my $totalstored = 0;          my $totalstored = 0;
         for (my $i=0;$i<=$#markers;$i++) {          for (my $i=0;$i<=$#markers;$i++) {
             my ($needsrelease,$needsnewer);                my ($needsrelease,$needsnewer);
             if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {              if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {
                 my (@ok_slots,@fail_slots,@del_slots);                  my (@ok_slots,@fail_slots,@del_slots);
                 my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);                  my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
Line 2158  sub assessparms { Line 2158  sub assessparms {
                 $needsrelease =                  $needsrelease =
                     $Apache::lonnet::needsrelease{'parameter:type:'.$values[$i]};                      $Apache::lonnet::needsrelease{'parameter:type:'.$values[$i]};
                 if ($needsrelease) {                  if ($needsrelease) {
                     unless ($got_chostname) {                       unless ($got_chostname) {
                         ($chostname,$cmajor,$cminor) = &questiontype_release_vars();                          ($chostname,$cmajor,$cminor) = &questiontype_release_vars();
                         $got_chostname = 1;                          $got_chostname = 1;
                     }                      }
Line 3123  my %strings = Line 3123  my %strings =
                  [ 'surveycred', 'Survey (credit for submission)']],                   [ 'surveycred', 'Survey (credit for submission)']],
      );       );
   
   sub standard_string_options {
       my ($string_type) = @_;
       if (ref($strings{$string_type}) eq 'ARRAY') {
           return $strings{$string_type};
       }
       return;
   }
   
 sub string_selector {  sub string_selector {
     my ($thistype, $thiskey, $showval) = @_;      my ($thistype, $thiskey, $showval) = @_;
Removed from v.1.504  
changed lines
  Added in v.1.505

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