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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.14 and 1.16

version 1.14, 2002/09/26 15:19:39 version 1.16, 2002/12/23 18:04:54
Line 134  $bodytag Line 134  $bodytag
 <b>Set content feedback to Course Coordinator: </b>  <b>Set content feedback to Course Coordinator: </b>
 <input type="checkbox" name="setcontent" checked>  <input type="checkbox" name="setcontent" checked>
 </p>  </p>
   <h2>Communication</h2>
   <p>
   <b>Disable student resource discussion: </b>
   <input type="checkbox" name="disresdis" />
   </p>
 <h2>Course Coordinator</h2>  <h2>Course Coordinator</h2>
 <p>  <p>
 <b>Username:</b> <input type="text" size="15" name="ccuname" />  <b>Username:</b> <input type="text" size="15" name="ccuname" />
Line 222  ENDENHEAD Line 226  ENDENHEAD
            $cenv{'question.email'}=$ccuname.':'.$ccdomain;             $cenv{'question.email'}=$ccuname.':'.$ccdomain;
        }         }
     }      }
       if ($ENV{'form.disresdis'}) {
    $envflag=1;
           $cenv{'pch.roles.denied'}='st';
       }
     if ($envflag) {      if ($envflag) {
        $r->print('Setting environment: '.                          $r->print('Setting environment: '.                 
           &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');            &Apache::lonnet::put('environment',\%cenv,$crsudom,$crsunum).'<br>');
Line 254  ENDENHEAD Line 262  ENDENHEAD
             $url='/adm/navmaps';              $url='/adm/navmaps';
         }          }
         $Apache::lonratedt::resources[1]=$title.':'.$url.':false:start:res';          $Apache::lonratedt::resources[1]=$title.':'.$url.':false:start:res';
         my ($errtext,$fatal)=          ($errtext,$fatal)=
            &Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');             &Apache::londocs::storemap($crsunum,$crsudom,'default.sequence');
         $r->print(($fatal?$errtext:'write ok').'<br>');          $r->print(($fatal?$errtext:'write ok').'<br>');
   }    }
Removed from v.1.14  
changed lines
  Added in v.1.16

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