[BACK]Return to lond CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/lond between versions 1.435.2.1 and 1.437

version 1.435.2.1, 2010/01/06 04:19:08 version 1.437, 2010/02/21 02:02:51
Line 2091  sub update_resource_handler { Line 2091  sub update_resource_handler {
  if (-e $fname) {   if (-e $fname) {
             # Delete preview file, if exists              # Delete preview file, if exists
             unlink("$fname.tmp");              unlink("$fname.tmp");
             # Delete GCI Test Assembly preview file, if exists  
             unlink("$fname.tn");  
             # Get usage stats              # Get usage stats
     my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,      my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
  $atime,$mtime,$ctime,$blksize,$blocks)=stat($fname);   $atime,$mtime,$ctime,$blksize,$blocks)=stat($fname);
Line 3872  sub dump_course_id_handler { Line 3870  sub dump_course_id_handler {
                             $items->{'cloners'} = $cloneruname.':'.$clonerudom;                              $items->{'cloners'} = $cloneruname.':'.$clonerudom;
                             $valchange = 1;                              $valchange = 1;
                         }                          }
                           unless ($canclone) {
                               if ($items->{'owner'} =~ /:/) {
                                   if ($items->{'owner'} eq $cloner) {
                                       $canclone = 1;
                                   }
                               } elsif ($cloner eq $udom.':'.$items->{'owner'}) {
                                   $canclone = 1;
                               }
                               if ($canclone) {
                                   $items->{'cloners'} = $cloneruname.':'.$clonerudom;
                                   $valchange = 1;
                               }
                           }
                     }                      }
                 }                  }
                 if ($unpack || !$rtn_as_hash) {                  if ($unpack || !$rtn_as_hash) {
Line 6555  sub rewrite_password_file { Line 6566  sub rewrite_password_file {
   
 #     Returns the authorization type or nouser if there is no such user.  #     Returns the authorization type or nouser if there is no such user.
 #  #
 sub get_auth_type   sub get_auth_type {
 {  
   
     my ($domain, $user)  = @_;      my ($domain, $user)  = @_;
   
     Debug("get_auth_type( $domain, $user ) \n");      Debug("get_auth_type( $domain, $user ) \n");
Removed from v.1.435.2.1  
changed lines
  Added in v.1.437

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