[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.23

version 1.21, 2006/02/10 23:36:47 version 1.23, 2006/03/16 21:39:26
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 671  sub print_header { Line 674  sub print_header {
         }          }
     }      }
     my $html=&Apache::lonxml::xmlbegin();      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 698  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.23

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