Diff for /loncom/lond between versions 1.299 and 1.301

version 1.299, 2005/10/11 21:29:36 version 1.301, 2005/10/17 20:09:01
Line 1422  sub ls_handler { Line 1422  sub ls_handler {
  open(FILE, $ulsdir.'/'.$ulsfn.".meta");   open(FILE, $ulsdir.'/'.$ulsfn.".meta");
  my @obsolete=<FILE>;   my @obsolete=<FILE>;
  foreach my $obsolete (@obsolete) {   foreach my $obsolete (@obsolete) {
     if($obsolete =~ m|(<obsolete>)(on)|) { $obs = 1; }       if($obsolete =~ m/(<obsolete>)(on|1)/) { $obs = 1; } 
     if($obsolete =~ m|(<copyright>)(default)|) { $rights = 1; }      if($obsolete =~ m|(<copyright>)(default)|) { $rights = 1; }
  }   }
     }      }
Line 1490  sub ls2_handler { Line 1490  sub ls2_handler {
                         open(FILE, $ulsdir.'/'.$ulsfn.".meta");                          open(FILE, $ulsdir.'/'.$ulsfn.".meta");
                         my @obsolete=<FILE>;                          my @obsolete=<FILE>;
                         foreach my $obsolete (@obsolete) {                          foreach my $obsolete (@obsolete) {
                             if($obsolete =~ m|(<obsolete>)(on)|) { $obs = 1; }                               if($obsolete =~ m/(<obsolete>)(on|1)/) { $obs = 1; } 
                             if($obsolete =~ m|(<copyright>)(default)|) {                              if($obsolete =~ m|(<copyright>)(default)|) {
                                 $rights = 1;                                  $rights = 1;
                             }                              }
Line 3586  sub dump_dcmail_handler { Line 3586  sub dump_dcmail_handler {
     }      }
     if (defined($sendersfilter)) {      if (defined($sendersfilter)) {
         $sendersfilter=&unescape($sendersfilter);          $sendersfilter=&unescape($sendersfilter);
         if ($sendersfilter =~ /\&/) {   @senders = map { &unescape($_) } split(/\&/,$sendersfilter);
             @senders = split(/\&/,$sendersfilter);  
         } else {  
             $senders[0] = $sendersfilter;  
         }  
     }      }
   
     my $qresult='';      my $qresult='';
Line 3721  sub dump_domainroles_handler { Line 3717  sub dump_domainroles_handler {
     }      }
     if (defined($rolesfilter)) {      if (defined($rolesfilter)) {
         $rolesfilter=&unescape($rolesfilter);          $rolesfilter=&unescape($rolesfilter);
         if ($rolesfilter =~ /\&/) {   @roles = split(/\&/,$rolesfilter);
             @roles = split(/\&/,$rolesfilter);  
         } else {  
             $roles[0] = $rolesfilter;  
         }  
     }      }
                                                                                                                                                                                         
     my $hashref = &tie_domain_hash($udom, "nohist_domainroles", &GDBM_WRCREAT());      my $hashref = &tie_domain_hash($udom, "nohist_domainroles", &GDBM_WRCREAT());

Removed from v.1.299  
changed lines
  Added in v.1.301


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