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

Diff for /loncom/interface/lonconfigsettings.pm between versions 1.23 and 1.24

version 1.23, 2012/12/07 16:12:18 version 1.24, 2013/04/08 23:21:15
Line 39  use Apache::lonparmset(); Line 39  use Apache::lonparmset();
   
 sub print_header {  sub print_header {
     my ($r,$phase,$context,$jscript,$container) = @_;      my ($r,$phase,$context,$jscript,$container) = @_;
     my ($pagetitle,$brcrumtitle,$action,$call_category_check);      my ($pagetitle,$brcrumtitle,$action,$call_category_check,$crstype);
     if ($context eq 'domain') {      if ($context eq 'domain') {
         ($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','View/Modify Domain Settings');          ($pagetitle, $brcrumtitle) = ('View/Modify Domain Settings','View/Modify Domain Settings');
         $action = '/adm/domainprefs';          $action = '/adm/domainprefs';
Line 56  sub print_header { Line 56  sub print_header {
             }              }
         }          }
     } else {      } else {
         if (&Apache::loncommon::course_type() eq 'Community') {          $crstype = &Apache::loncommon::course_type();
           if ($crstype eq 'Community') {
             ($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration');              ($pagetitle,$brcrumtitle) = ('Community Configuration','Community Configuration');
         } else {          } else {
             ($pagetitle,$brcrumtitle) = ('Course Configuration','Course Configuration');              ($pagetitle,$brcrumtitle) = ('Course Configuration','Course Configuration');
Line 130  $jscript Line 131  $jscript
 </form>  </form>
 ');  ');
     if ($container) {      if ($container) {
        &Apache::lonparmset::startSettingsScreen($r,$container);         &Apache::lonparmset::startSettingsScreen($r,$container,$crstype);
     }      }
     $r->print('<form method="post" name="'.$phase.'" action="'.$action.'"'.      $r->print('<form method="post" name="'.$phase.'" action="'.$action.'"'.
               ' enctype="multipart/form-data">');                ' enctype="multipart/form-data">');
Removed from v.1.23  
changed lines
  Added in v.1.24

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