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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.802 and 1.805

version 1.802, 2006/11/10 02:04:31 version 1.805, 2006/11/20 23:50:51
Line 4299  sub auto_instcode_defaults { Line 4299  sub auto_instcode_defaults {
                     $returnhash->{&unescape($name)}=&unescape($value);                      $returnhash->{&unescape($name)}=&unescape($value);
                 }                  }
             }              }
               $ok_response = 1;
         }          }
         $ok_response = 1;  
     }      }
     if ($ok_response) {      if ($ok_response) {
         return 'ok';          return 'ok';
Line 4324  sub get_coursegroups { Line 4324  sub get_coursegroups {
     return(&dump('coursegroups',$cdom,$cnum,$group));      return(&dump('coursegroups',$cdom,$cnum,$group));
 }  }
   
   sub get_deleted_groups {
       my ($cdom,$cnum,$group) = @_;
       return(&dump('deleted_groups',$cdom,$cnum,$group));
   }
   
 sub modify_coursegroup {  sub modify_coursegroup {
     my ($cdom,$cnum,$groupsettings) = @_;      my ($cdom,$cnum,$groupsettings) = @_;
     return(&put('coursegroups',$groupsettings,$cdom,$cnum));      return(&put('coursegroups',$groupsettings,$cdom,$cnum));
 }  }
   
   sub delete_coursegroup {
       my ($cdom,$cnum,$group) = @_;
       my %curr_group = &get_coursegroups($cdom,$cnum,$group);
       if (my $tmp = &error(%curr_group)) {
           &Apache::lonnet::logthis('Error retrieving group: '.$tmp.' in '.$cnum.':'.$cdom);
           return ('read error',$tmp);
       } else {
           my %savedsettings = %curr_group; 
           my $result = &put('deleted_groups',\%savedsettings,$cdom,$cnum);
           my $deloutcome;
           if ($result eq 'ok') {
               $deloutcome = &del('coursegroups',[$group],$cdom,$cnum);
           } else {
               return ('write error',$result);
           }
           if ($deloutcome eq 'ok') {
               return 'ok';
           } else {
               return ('delete error',$deloutcome);
           }
       }
   }
   
 sub modify_group_roles {  sub modify_group_roles {
     my ($cdom,$cnum,$group_id,$user,$end,$start,$userprivs) = @_;      my ($cdom,$cnum,$group_id,$user,$end,$start,$userprivs) = @_;
     my $url = '/'.$cdom.'/'.$cnum.'/'.$group_id;      my $url = '/'.$cdom.'/'.$cnum.'/'.$group_id;
Line 6607  sub rndseed { Line 6635  sub rndseed {
     if (!$domain) { $domain=$wdomain; }      if (!$domain) { $domain=$wdomain; }
     if (!$username) { $username=$wusername }      if (!$username) { $username=$wusername }
     my $which=&get_rand_alg();      my $which=&get_rand_alg();
   
     if (defined(&getCODE())) {      if (defined(&getCODE())) {
  if ($which eq '64bit5') {   if ($which eq '64bit5') {
     return &rndseed_CODE_64bit5($symb,$courseid,$domain,$username);      return &rndseed_CODE_64bit5($symb,$courseid,$domain,$username);
Line 6664  sub rndseed_64bit { Line 6693  sub rndseed_64bit {
  #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");   #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");
  #&logthis("rndseed :$num:$symb");   #&logthis("rndseed :$num:$symb");
  if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }   if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }
  if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }  
  return "$num1,$num2";   return "$num1,$num2";
     }      }
 }  }
Line 6687  sub rndseed_64bit2 { Line 6715  sub rndseed_64bit2 {
  my $num2=$nameseed+$domainseed+$courseseed;   my $num2=$nameseed+$domainseed+$courseseed;
  #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");   #&logthis("$symbseed:$nameseed;$domainseed|$courseseed;$namechck:$symbchck");
  #&logthis("rndseed :$num:$symb");   #&logthis("rndseed :$num:$symb");
    if ($_64bit) { $num1=(($num1<<32)>>32); $num2=(($num2<<32)>>32); }
  return "$num1,$num2";   return "$num1,$num2";
     }      }
 }  }
Removed from v.1.802  
changed lines
  Added in v.1.805

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