Diff for /loncom/lond between versions 1.273 and 1.274

version 1.273, 2005/01/03 16:08:07 version 1.274, 2005/01/03 16:34:46
Line 3198  sub put_course_id_handler { Line 3198  sub put_course_id_handler {
 #                 owner    - optional supplied username of owner to filter  #                 owner    - optional supplied username of owner to filter
 #                            the dump.  Only courses for which the course   #                            the dump.  Only courses for which the course 
 #                            owner matches the supplied username will be  #                            owner matches the supplied username will be
 #                            returned. Implicit assumption that owner is a user  #                            returned. Implicit assumption that owner
 #                            in the domain in which the course database is defined.          #                            is a user in the domain in which the
   #                            course database is defined.
 #     $client  - The socket open on the client.  #     $client  - The socket open on the client.
 # Returns:  # Returns:
 #    1     - Continue processing.  #    1     - Continue processing.
Line 3233  sub dump_course_id_handler { Line 3234  sub dump_course_id_handler {
     if ($hashref) {      if ($hashref) {
  while (my ($key,$value) = each(%$hashref)) {   while (my ($key,$value) = each(%$hashref)) {
     my ($descr,$lasttime,$inst_code,$owner);      my ($descr,$lasttime,$inst_code,$owner);
             my @courseitems = split/:/,$value;              my @courseitems = split(/:/,$value);
             $descr = shift @courseitems;              $lasttime = pop(@courseitems);
             $lasttime = pop @courseitems;      ($descr,$inst_code,$owner)=@courseitems;
             if (@courseitems > 0) {  
                 $inst_code = shift @courseitems;  
             }  
             if (@courseitems > 0) {  
                 $owner = shift @courseitems;  
             }  
     if ($lasttime<$since) { next; }      if ($lasttime<$since) { next; }
             my $match = 1;              my $match = 1;
     unless ($description eq '.') {      unless ($description eq '.') {

Removed from v.1.273  
changed lines
  Added in v.1.274


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