[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.3 and 1.637

version 1.636.2.3, 2008/03/18 23:00:51 version 1.637, 2008/01/22 22:37:18
Line 4004  ENDROLE Line 4004  ENDROLE
  $lastitem = $thisdisfn;   $lastitem = $thisdisfn;
     }      }
     $titleinfo =       $titleinfo = 
  &Apache::loncommon::help_open_menu('','',3,'Authoring')   &Apache::loncommon::help_open_menu('','',3,'Authoring').
  .'<b>'.&mt('Construction Space').'</b>:&nbsp;'   '<b>Construction Space</b>:&nbsp;'. 
  .'<form name="dirs" method="post" action="'.$formaction.'"'   '<form name="dirs" method="post" action="'.$formaction
  .' target="_top"><tt><b>'   .'" target="_top"><tt><b>'
  .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />"   .&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />"
  .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')   .&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
  .'</form>'   .'</form>'
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.3  
changed lines
  Added in v.1.637

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