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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.34 and 1.35

version 1.34, 2007/10/06 04:32:49 version 1.35, 2007/12/05 02:55:40
Line 370  all settings except course code, course Line 370  all settings except course code, course
         $curr_authfield = $curr_authtype.'arg';          $curr_authfield = $curr_authtype.'arg';
     }      }
     my $javascript_validations=&Apache::londropadd::javascript_validations('modifycourse',$krbdefdom,$curr_authtype,$curr_authfield);      my $javascript_validations=&Apache::londropadd::javascript_validations('modifycourse',$krbdefdom,$curr_authtype,$curr_authfield);
     my %param = ( formname => 'document.cmod',      my %param = ( formname => 'document.'.$env{'form.phase'},
    kerb_def_dom => $krbdefdom,     kerb_def_dom => $krbdefdom,
    kerb_def_auth => $krbdef,     kerb_def_auth => $krbdef,
            mode => 'modifycourse',             mode => 'modifycourse',
Line 437  all settings except course code, course Line 437  all settings except course code, course
     my $mainheader = &mt('Course settings modifiable by [_1] only.',$dctitle);      my $mainheader = &mt('Course settings modifiable by [_1] only.',$dctitle);
     my $hidden_elements = &hidden_form_elements();      my $hidden_elements = &hidden_form_elements();
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 <form action="/adm/modifycourse" method="post" name="cmod">  <form action="/adm/modifycourse" method="post" name="$env{'form.phase'}">
 <h3>$mainheader</h3>  <h3>$mainheader</h3>
 </p><p>  </p><p>
 <table width="100%" cellspacing="6" cellpadding="6">  <table width="100%" cellspacing="6" cellpadding="6">
Line 807  sub print_footer { Line 807  sub print_footer {
 sub check_course {  sub check_course {
     my ($r,$dom,$domdesc) = @_;      my ($r,$dom,$domdesc) = @_;
     my ($ok_course,$description,$instcode,$owner);      my ($ok_course,$description,$instcode,$owner);
     if (defined($env{'form.pickedcourse'})) {      my %args = (
         my ($cdom,$cnum) = split(/_/,$env{'form.pickedcourse'});                   one_time => 1,
         if ($cdom eq $dom) {                 );
             my %courseIDs = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',      my %coursehash = 
                                                $cnum,undef,undef,'.');          &Apache::lonnet::coursedescription($env{'form.pickedcourse'},\%args);
             if (keys(%courseIDs) > 0) {      my $cnum = $coursehash{'num'};
                 $ok_course = 'ok';      my $cdom = $coursehash{'domain'};
                 my ($description,$instcode,$owner);      if ($cdom eq $dom) {
                 if (ref($courseIDs{$cdom.'_'.$cnum}) eq 'HASH') {          my $description;
                     $description = $courseIDs{$cdom.'_'.$cnum}{'description'};          my %courseIDs = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',
                     $instcode = $courseIDs{$cdom.'_'.$cnum}{'inst_code'};                                             $cnum,undef,undef,'.');
                     $owner = $courseIDs{$cdom.'_'.$cnum}{'owner'};                    if (keys(%courseIDs) > 0) {
                 } else {              $ok_course = 'ok';
                     ($description,$instcode,$owner) =               my ($instcode,$owner);
                                        split(/:/,$courseIDs{$cdom.'_'.$cnum});              if (ref($courseIDs{$cdom.'_'.$cnum}) eq 'HASH') {
                 }                  $description = $courseIDs{$cdom.'_'.$cnum}{'description'};
                 $description = &unescape($description);                  $instcode = $courseIDs{$cdom.'_'.$cnum}{'inst_code'};
                 $instcode = &unescape($instcode);                  $owner = $courseIDs{$cdom.'_'.$cnum}{'owner'};          
                 if ($instcode) {              } else {
                     $description .= " ($instcode)";                  ($description,$instcode,$owner) = 
                 }                                      split(/:/,$courseIDs{$cdom.'_'.$cnum});
               }
               $description = &unescape($description);
               $instcode = &unescape($instcode);
               if ($instcode) {
                   $description .= " ($instcode)";
             }              }
               return ($ok_course,$description);
         }          }
     }      }
     return ($ok_course,$description);  
 }  }
   
 sub course_settings_descrip {  sub course_settings_descrip {
Removed from v.1.34  
changed lines
  Added in v.1.35

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