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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.28 and 1.29

version 1.28, 2006/11/14 20:38:21 version 1.29, 2006/12/29 17:30:11
Line 138  sub print_course_selection_page { Line 138  sub print_course_selection_page {
                       'ownerdomfilter','coursefilter'];                        'ownerdomfilter','coursefilter'];
     my %filter;      my %filter;
     my $type = $env{'form.type'};      my $type = $env{'form.type'};
       if ($type eq '') {
           $type = 'Course';
       }
     my $action = '/adm/modifycourse';      my $action = '/adm/modifycourse';
     my $dctitle = &Apache::lonnet::plaintext('dc');      my $dctitle = &Apache::lonnet::plaintext('dc');
     $r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br /><br />');      $r->print(&mt('Revise your search criteria for this domain').' ('.$domdesc.').<br /><br />');
Line 421  all settings except course code, course Line 424  all settings except course code, course
     }      }
     &print_header($r,$cdesc,$javascript_validations);      &print_header($r,$cdesc,$javascript_validations);
     my $type = $env{'form.type'};      my $type = $env{'form.type'};
       if ($type eq '') {
           $type = 'Course';
       }
     my $dctitle = &Apache::lonnet::plaintext('dc');      my $dctitle = &Apache::lonnet::plaintext('dc');
     my $cctitle = &Apache::lonnet::plaintext('cc',$type);      my $cctitle = &Apache::lonnet::plaintext('cc',$type);
     my $mainheader = &mt('Course settings modifiable by [_1] only.',$dctitle);      my $mainheader = &mt('Course settings modifiable by [_1] only.',$dctitle);
Line 878  sub handler { Line 884  sub handler {
                   text=>"Pick action"});                    text=>"Pick action"});
                 my ($checked,$cdesc) = &check_course($r,$dom,$domdesc);                  my ($checked,$cdesc) = &check_course($r,$dom,$domdesc);
                 my $type = $env{'form.type'};                  my $type = $env{'form.type'};
                   if ($type eq '') {
                       $type = 'Course';
                   }
                 if ($checked eq 'ok') {                  if ($checked eq 'ok') {
                     if ($phase eq 'menu') {                      if ($phase eq 'menu') {
                         &print_modification_menu($r,$cdesc);                          &print_modification_menu($r,$cdesc);
Removed from v.1.28  
changed lines
  Added in v.1.29

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