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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.64 and 1.66

version 1.64, 2013/11/13 00:09:28 version 1.66, 2014/01/15 18:47:56
Line 449  sub print_setquota { Line 449  sub print_setquota {
             $uploadquota = $domdefs{$lctype.'quota'};              $uploadquota = $domdefs{$lctype.'quota'};
         } elsif ($settings{'internal.instcode'}) {          } elsif ($settings{'internal.instcode'}) {
             $uploadquota = $domdefs{'officialquota'};              $uploadquota = $domdefs{'officialquota'};
           } elsif ($settings{'internal.textbook'}) {
               $uploadquota = $domdefs{'textbookquota'};
         } else {          } else {
             $uploadquota = $domdefs{'unofficialquota'};              $uploadquota = $domdefs{'unofficialquota'};
         }          }
Line 994  sub modify_course { Line 996  sub modify_course {
     $reply = '<h3>'.$mainheader.' <span class="LC_nobreak">'.$cdesc.'</span></h3>'."\n".      $reply = '<h3>'.$mainheader.' <span class="LC_nobreak">'.$cdesc.'</span></h3>'."\n".
              '<p>'.$reply.'</p>'."\n".               '<p>'.$reply.'</p>'."\n".
              '<form action="/adm/modifycourse" method="post" name="processparms">'.               '<form action="/adm/modifycourse" method="post" name="processparms">'.
              &hidden_form_elements().               &hidden_form_elements();
              '<a href="javascript:changePage(document.processparms,'."'menu'".')">'.      my @actions =
              &mt('Pick another action').'</a>';          ('<a href="javascript:changePage(document.processparms,'."'menu'".')">'.
                    &mt('Pick another action').'</a>');
     if ($numwarnings) {      if ($numwarnings) {
         my $newrole = $ccrole.'./'.$cdom.'/'.$cnum;          my $newrole = $ccrole.'./'.$cdom.'/'.$cnum;
         my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole.          my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole.
                                              '=1&destinationurl=/adm/populate','&<>"');                                               '=1&destinationurl=/adm/populate','&<>"');
   
         $reply .= '<br /><a href="'.$escuri.'">'.          push(@actions, '<a href="'.$escuri.'">'.
                   &mt('Go to Automated Enrollment Manager for course').'</a>';                    &mt('Go to Automated Enrollment Manager for course').'</a>');
     }      }
     $reply .= '</form>';      $reply .= &Apache::lonhtmlcommon::actionbox(\@actions).'</form>';
     $r->print($reply);      $r->print($reply);
     return;      return;
 }  }
Line 1636  sub hidden_form_elements { Line 1639  sub hidden_form_elements {
 sub showcredits {  sub showcredits {
     my ($dom) = @_;      my ($dom) = @_;
     my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);      my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
     if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) {      if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbokcredits'}) {
         return 1;          return 1;
     }      }
 }  }
Removed from v.1.64  
changed lines
  Added in v.1.66

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