Diff for /loncom/lond between versions 1.272 and 1.273

version 1.272, 2005/01/01 02:31:05 version 1.273, 2005/01/03 16:08:07
Line 3140  sub put_course_id_handler { Line 3140  sub put_course_id_handler {
             my ($key,$courseinfo) = split(/=/,$pair,2);              my ($key,$courseinfo) = split(/=/,$pair,2);
             $courseinfo =~ s/=/:/g;              $courseinfo =~ s/=/:/g;
   
             my @current_items = split/:/,$hashref->{$key};              my @current_items = split(/:/,$hashref->{$key});
             shift @current_items; # remove description              shift(@current_items); # remove description
             pop @current_items;   # remove last access              pop(@current_items);   # remove last access
             my $numcurrent = scalar(@current_items);              my $numcurrent = scalar(@current_items);
   
             my @new_items = split/:/,$courseinfo;              my @new_items = split(/:/,$courseinfo);
             my $numnew = scalar(@new_items);              my $numnew = scalar(@new_items);
             if ($numcurrent > 0) {              if ($numcurrent > 0) {
                 if ($numnew == 1) { # flushcourselogs() from 1.1 or earlier                  if ($numnew == 1) { # flushcourselogs() from 1.1 or earlier

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


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