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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.23 and 1.25

version 1.23, 2006/03/16 21:39:26 version 1.25, 2006/05/30 12:46:09
Line 35  use Apache::lonlocal; Line 35  use Apache::lonlocal;
 use Apache::londropadd;  use Apache::londropadd;
 use LONCAPA::Enrollment;  use LONCAPA::Enrollment;
 use lib '/home/httpd/lib/perl';  use lib '/home/httpd/lib/perl';
   use LONCAPA;
   
 sub print_course_selection_page {  sub print_course_selection_page {
     my ($r,$tasklongref) = @_;      my ($r,$tasklongref) = @_;
Line 101  ENDBLOCK Line 102  ENDBLOCK
             if ($item =~ m/^($dom)_(\w+)$/) {              if ($item =~ m/^($dom)_(\w+)$/) {
                 $crs = $2;                  $crs = $2;
                 if ($courseIDs{$item} =~ /^([^:]*):([^:]*):([^:]*)/) {                  if ($courseIDs{$item} =~ /^([^:]*):([^:]*):([^:]*)/) {
                     $description = &Apache::lonnet::unescape($1);                      $description = &unescape($1);
                     $owner = &Apache::lonnet::unescape($3);                      $owner = &unescape($3);
                 } elsif ($courseIDs{$item} =~ /^([^:]*):([^:]*)$/) {                  } elsif ($courseIDs{$item} =~ /^([^:]*):([^:]*)$/) {
                     $description = &Apache::lonnet::unescape($1);                      $description = &unescape($1);
                 } else {                     } else {   
                     $description = &Apache::lonnet::unescape($courseIDs{$item});                      $description = &unescape($courseIDs{$item});
                 }                  }
 # Get course owner  # Get course owner
                 if ($owner eq '') {                  if ($owner eq '') {
Line 259  all settings except course code, course Line 260  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 534  sub modify_course { Line 535  sub modify_course {
         }          }
     }      }
     if ($changeowner == 1 || $changecode == 1) {      if ($changeowner == 1 || $changecode == 1) {
         my $courseid_entry = &Apache::lonnet::escape($dom.'_'.$crs).'='.&Apache::lonnet::escape($description).':'.&Apache::lonnet::escape($env{'form.coursecode'}).':'.&Apache::lonnet::escape($env{'form.courseowner'});          my $courseid_entry = &escape($dom.'_'.$crs).'='.&escape($description).':'.&escape($env{'form.coursecode'}).':'.&escape($env{'form.courseowner'});
         &Apache::lonnet::courseidput($dom,$courseid_entry,&Apache::lonnet::homeserver($crs,$dom));          &Apache::lonnet::courseidput($dom,$courseid_entry,&Apache::lonnet::homeserver($crs,$dom));
     }      }
   
Line 648  sub modify_course { Line 649  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 661  sub print_header { Line 661  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 673  sub print_header { Line 673  sub print_header {
             $page .=  " -&gt; <b>".$$tasklongref{$action}."</b>";              $page .=  " -&gt; <b>".$$tasklongref{$action}."</b>";
         }          }
     }      }
     my $html=&Apache::lonxml::xmlbegin();  
     my $js;      my $js;
     if ($action eq 'display') {      if ($action eq 'display') {
  $js = '<script  type="text/javascript">   $js = '<script  type="text/javascript">
Removed from v.1.23  
changed lines
  Added in v.1.25

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