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

Diff for /loncom/interface/loncommon.pm between versions 1.636.2.2 and 1.637

version 1.636.2.2, 2008/02/02 22:10:22 version 1.637, 2008/01/22 22:37:18
Line 4498  table.LC_aboutme_port tr.LC_even_row td Line 4498  table.LC_aboutme_port tr.LC_even_row td
 table.LC_data_table tr.LC_data_table_highlight td {  table.LC_data_table tr.LC_data_table_highlight td {
   background-color: $data_table_darker;    background-color: $data_table_darker;
 }  }
 table.LC_data_table tr td.LC_leftcol_header {  
   background-color: $data_table_head;  
   font-weight: bold;  
 }  
 table.LC_data_table tr.LC_empty_row td,  table.LC_data_table tr.LC_empty_row td,
 table.LC_nested tr.LC_empty_row td {  table.LC_nested tr.LC_empty_row td {
   background-color: #FFFFFF;    background-color: #FFFFFF;
Line 8087  sub construct_course { Line 8083  sub construct_course {
  $outcome .= $clonemsg.$linefeed;   $outcome .= $clonemsg.$linefeed;
  my %oldcenv=&Apache::lonnet::dump('environment',$$crsudom,$$crsunum);   my %oldcenv=&Apache::lonnet::dump('environment',$$crsudom,$$crsunum);
 # Copy all files  # Copy all files
  &Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid);   &Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid,$args->{'datemode'},$args->{'dateshift'});
 # Restore URL  # Restore URL
  $cenv{'url'}=$oldcenv{'url'};   $cenv{'url'}=$oldcenv{'url'};
 # Restore title  # Restore title
  $cenv{'description'}=$oldcenv{'description'};   $cenv{'description'}=$oldcenv{'description'};
   # restore grading mode
    if (defined($oldcenv{'grading'})) {
       $cenv{'grading'}=$oldcenv{'grading'};
    }
 # Mark as cloned  # Mark as cloned
  $cenv{'clonedfrom'}=$cloneid;   $cenv{'clonedfrom'}=$cloneid;
 # Need to clone grading mode   delete($cenv{'default_enrollment_start_date'});
         my %newenv=&Apache::lonnet::get('environment',['grading'],$$crsudom,$$crsunum);   delete($cenv{'default_enrollment_end_date'});
         $cenv{'grading'}=$newenv{'grading'};  
 # Do not clone these environment entries  
         &Apache::lonnet::del('environment',  
                   ['default_enrollment_start_date',  
                    'default_enrollment_end_date',  
                    'question.email',  
                    'policy.email',  
                    'comment.email',  
                    'pch.users.denied',  
                    'plc.users.denied'],  
                    $$crsudom,$$crsunum);  
     }      }
   
 #  #
Removed from v.1.636.2.2  
changed lines
  Added in v.1.637

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