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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.21 and 1.24

version 1.21, 2006/02/10 23:36:47 version 1.24, 2006/03/23 22:32:10
Line 210  all settings except course code, course Line 210  all settings except course code, course
         } else {          } else {
             $enrollvar{$type} = localtime($settings{$item});              $enrollvar{$type} = localtime($settings{$item});
         }          }
       } elsif ($type eq "sectionums") {
    $enrollvar{$type} = $settings{$item};
    $enrollvar{$type} =~ s/,/, /g;
             } elsif ($type eq "courseowner"   || $type eq "authtype"               } elsif ($type eq "courseowner"   || $type eq "authtype" 
      || $type eq "autharg"    || $type eq "sectionums"       || $type eq "autharg"    || $type eq "coursecode"
      || $type eq "coursecode" || $type eq "crosslistings") {       || $type eq "crosslistings") {
         $enrollvar{$type} = $settings{$item};          $enrollvar{$type} = $settings{$item};
             }              }
         } elsif ($item =~ m/^default_enrollment_(start|end)_date$/) {          } elsif ($item =~ m/^default_enrollment_(start|end)_date$/) {
Line 256  all settings except course code, course Line 259  all settings except course code, course
         }          }
     }      }
     my $numlocalcc = @local_ccs;      my $numlocalcc = @local_ccs;
     my $bodytag=&Apache::loncommon::bodytag(&mt("Modify Course Settings"));  
     my $helplink=&Apache::loncommon::help_open_topic('Modify_Course',&mt("Help on Modifying Courses"));      my $helplink=&Apache::loncommon::help_open_topic('Modify_Course',&mt("Help on Modifying Courses"));
     my ($krbdef,$krbdefdom)=&Apache::loncommon::get_kerberos_defaults($dom);      my ($krbdef,$krbdefdom)=&Apache::loncommon::get_kerberos_defaults($dom);
     my $curr_authtype = '';      my $curr_authtype = '';
Line 645  sub modify_course { Line 648  sub modify_course {
 sub print_header {  sub print_header {
     my ($r,$tasklongref,$description,$javascriptref) = @_;      my ($r,$tasklongref,$description,$javascriptref) = @_;
     my %lt =&Apache::lonlocal::texthash(      my %lt =&Apache::lonlocal::texthash(
              'vmcs' => 'View/Modify Course Settings',  
              'chco' => 'Choose a course',               'chco' => 'Choose a course',
              'main' => 'Main Menu',               'main' => 'Main Menu',
              'comg' => 'Course Manager',               'comg' => 'Course Manager',
Line 658  sub print_header { Line 660  sub print_header {
         $description = $lt{'comg'};          $description = $lt{'comg'};
     }      }
     my $page = '';      my $page = '';
     my $bodytag=&Apache::loncommon::bodytag($lt{'vmcs'});  
     if ($action eq 'start') {        if ($action eq 'start') {  
         $page = "<b>$lt{'chco'}</b>";          $page = "<b>$lt{'chco'}</b>";
     } else {      } else {
Line 670  sub print_header { Line 672  sub print_header {
             $page .=  " -&gt; <b>".$$tasklongref{$action}."</b>";              $page .=  " -&gt; <b>".$$tasklongref{$action}."</b>";
         }          }
     }      }
     my $html=&Apache::lonxml::xmlbegin();  
     $r->print("      my $js;
 $html  
 <head>  
 ");  
     if ($action eq 'display') {      if ($action eq 'display') {
         $r->print("   $js = '<script  type="text/javascript">
 <script language=\"JavaScript\" type=\"text/javascript\">                    '.$$javascriptref.'
 $$javascriptref                 </script>';
 </script>");  
     }      }
       $r->print(&Apache::loncommon::start_page('View/Modify Course Settings',
        $js));
     $r->print(<<ENDTHIS);      $r->print(<<ENDTHIS);
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 $bodytag  
 <table width="100%" border="0" cellpadding="0" cellspacing="0">  <table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>   <tr>
   <td bgcolor="#CCCC99">    <td bgcolor="#CCCC99">
Line 700  ENDTHIS Line 697  ENDTHIS
 }  }
   
 sub print_footer {  sub print_footer {
     my $r = shift;      my ($r) = @_;
     $r->print(<<ENDBASE);      $r->print('<br />'.&Apache::loncommon::end_page());
 <br/>  
 </body>  
 </html>  
 ENDBASE  
     return;      return;
 }  }
   
Removed from v.1.21  
changed lines
  Added in v.1.24

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