Diff for /loncom/lond between versions 1.397 and 1.398

version 1.397, 2008/02/29 21:01:03 version 1.398, 2008/03/08 03:17:38
Line 3498  sub dump_course_id_handler { Line 3498  sub dump_course_id_handler {
     if ($hashref) {      if ($hashref) {
  while (my ($key,$value) = each(%$hashref)) {   while (my ($key,$value) = each(%$hashref)) {
             my ($unesc_key,$lasttime_key,$lasttime,$is_hash,%val,              my ($unesc_key,$lasttime_key,$lasttime,$is_hash,%val,
                 %unesc_val,$selfenroll_start,$selfenroll_end,                  %unesc_val,$selfenroll_end,$selfenroll_types);
                 $selfenroll_types);  
             $unesc_key = &unescape($key);              $unesc_key = &unescape($key);
             if ($unesc_key =~ /^lasttime:/) {              if ($unesc_key =~ /^lasttime:/) {
                 next;                  next;
Line 3519  sub dump_course_id_handler { Line 3518  sub dump_course_id_handler {
                     $unesc_val{'owner'} = $items->{'owner'};                      $unesc_val{'owner'} = $items->{'owner'};
                     $unesc_val{'type'} = $items->{'type'};                      $unesc_val{'type'} = $items->{'type'};
                     $selfenroll_types = $items->{'selfenroll_types'};                      $selfenroll_types = $items->{'selfenroll_types'};
                     $selfenroll_start = $items->{'selfenroll_start_date'};  
                     $selfenroll_end = $items->{'selfenroll_end_date'};                      $selfenroll_end = $items->{'selfenroll_end_date'};
                     if ($selfenrollonly) {                      if ($selfenrollonly) {
                         next if (!$selfenroll_types);                          next if (!$selfenroll_types);
                         if (($selfenroll_start > 0) && ($selfenroll_start > $now)) {  
                             next;  
                         }  
                         if (($selfenroll_end > 0) && ($selfenroll_end <= $now)) {                          if (($selfenroll_end > 0) && ($selfenroll_end <= $now)) {
                             next;                              next;
                         }                          }

Removed from v.1.397  
changed lines
  Added in v.1.398


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