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

Diff for /loncom/interface/lonparmset.pm between versions 1.104 and 1.105

version 1.104, 2003/06/20 14:21:03 version 1.105, 2003/06/20 14:34:04
Line 1371  ENDMAPONE Line 1371  ENDMAPONE
   
 =item crsenv  =item crsenv
   
 Show course data and parameters.  This is a large routine that should  Show and set course data and parameters.  This is a large routine that should
 be simplified and shortened... someday.  be simplified and shortened... someday.
   
 Inputs: $r  Inputs: $r
Line 1389  sub crsenv { Line 1389  sub crsenv {
                              'Set Course Environment Parameters');                               'Set Course Environment Parameters');
     my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};      my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
 # -------------------------------------------------- Go through list of changes  
       #
       # Go through list of changes
     foreach (keys %ENV) {      foreach (keys %ENV) {
  if ($_=~/^form\.(.+)\_setparmval$/) {          next if ($_!~/^form\.(.+)\_setparmval$/);
             my $name=$1;          my $name  = $1;
             my $value=$ENV{'form.'.$name.'_value'};          my $value = $ENV{'form.'.$name.'_value'};
             if ($name eq 'newp') {          if ($name eq 'newp') {
                 $name=$ENV{'form.newp_name'};              $name = $ENV{'form.newp_name'};
             }          }
             if ($name eq 'url') {          if ($name eq 'url') {
  $value=~s/^\/res\///;              $value=~s/^\/res\///;
                 my $bkuptime=time;              my $bkuptime=time;
                 my @tmp = &Apache::lonnet::get              my @tmp = &Apache::lonnet::get
                     ('environment',['url'],$dom,$crs);                  ('environment',['url'],$dom,$crs);
                 $setoutput.='Backing up previous URL: '.              $setoutput.='Backing up previous URL: '.
                     &Apache::lonnet::put                  &Apache::lonnet::put
                         ('environment',                  ('environment',
                          {'top level map backup '.$bkuptime => $tmp[1] },                   {'top level map backup '.$bkuptime => $tmp[1] },
                          $dom,$crs).                   $dom,$crs).
                     '<br>';                       '<br>';
           }
           #
           # Deal with modified default spreadsheets
           if ($name =~ /^spreadsheet_default_(classcalc|
                                               studentcalc|
                                               assesscalc)$/x) {
               my $sheettype = $1; 
               if ($sheettype eq 'classcalc') {
                   # no need to do anything since viewing the sheet will
                   # cause it to be updated. 
               } elsif ($sheettype eq 'studentcalc') {
                   # expire all the student spreadsheets
                   &Apache::lonnet::expirespread('','','studentcalc');
               } else {
                   # expire all the assessment spreadsheets 
                   #    this includes non-default spreadsheets, but better to
                   #    be safe than sorry.
                   &Apache::lonnet::expirespread('','','assesscalc');
                   # expire all the student spreadsheets
                   &Apache::lonnet::expirespread('','','studentcalc');
             }              }
             if ($name =~ /^spreadsheet_default_(classcalc|          }
                                                 studentcalc|          #
                                                 assesscalc)$/x) {          # Let the user know we made the changes
                 my $sheettype = $1;           if ($name) {
                 if ($sheettype eq 'classcalc') {              my $put_result = &Apache::lonnet::put('environment',
                     # no need to do anything since viewing the sheet will                                                    {$name=>$value},$dom,$crs);
                     # cause it to be updated.               if ($put_result eq 'ok') {
                 } elsif ($sheettype eq 'studentcalc') {                  $setoutput.='Set <b>'.$name.'</b> to <b>'.$value.'</b>.<br />';
                     # expire all the student spreadsheets              } else {
                     &Apache::lonnet::expirespread('','','studentcalc');                  $setoutput.='Unable to set <b>'.$name.'</b> to '.
                 } else {                      '<b>'.$value.'</b> due to '.$put_result.'.<br />';
                     # expire all the default assessment spreadsheets  
                 }  
             }              }
   
             if ($name) {  
                 $setoutput.='Setting <tt>'.$name.'</tt> to <tt>'.  
                     $value.'</tt>: '.  
                     &Apache::lonnet::put  
                             ('environment',{$name=>$value},$dom,$crs).  
                     '<br>';  
     }  
         }          }
     }      }
   
 # -------------------------------------------------------- Get parameters again  # -------------------------------------------------------- Get parameters again
   
     my %values=&Apache::lonnet::dump('environment',$dom,$crs);      my %values=&Apache::lonnet::dump('environment',$dom,$crs);
Removed from v.1.104  
changed lines
  Added in v.1.105

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