[BACK]Return to lonsql CVS log [TXT] [DIR] Up to [LON-CAPA] / nsdl

Diff for /nsdl/lonsql between versions 1.7 and 1.10

version 1.7, 2005/11/24 21:34:31 version 1.10, 2005/11/29 21:02:52
Line 829  sub nsdl_query { Line 829  sub nsdl_query {
                 } else {                  } else {
                    $url='';                     $url='';
                 }                  }
                 $allresults.='&'.                  if ($url) {
                      my ($mime)=($url=~/\.(\w+)$/);
                      $mime=~tr/A-Z/a-z/;
      my $createdate=$result{'dc:date'};
      if ($createdate) {
          unless ($createdate=~/\:\d+$/) {
      $createdate.=' 00:00:00';
          }
      }
      unless ($createdate=~/^\d+\-\d+\-\d+\s+\d+\:\d+\:\d+$/) {
          $createdate='';
      }
                      $createdate=&escape($createdate);
   
                      $allresults.='&'.
                     &escape($result{'dc:title'}).','.                      &escape($result{'dc:title'}).','.
                     &escape($result{'dc:creator'}).','.                      &escape($result{'dc:creator'}).','.
                     &escape($url).','.                      &escape($result{'dc:subject'}).','.
                     &escape($result{'dc:subject'}).',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,';                      &escape($url).',,,,'.
                       &escape($result{'dc:description'}).','.
                       &escape($mime).',seniso,'.$createdate.','.$createdate.','.&escape('public@nsdl').
       ',public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,';
                   }
                   %result=();
     } elsif ($token->[1]=~/^dc\:/) {      } elsif ($token->[1]=~/^dc\:/) {
  $result{$is}=$cont;   $result{$is}=$cont;
     }      }
  }   }
     }      }
     $allresults=~s/^\&//;      $allresults=~s/^\&//;
 &logthis($allresults);  
     return $allresults;      return $allresults;
 }  }
   
Removed from v.1.7  
changed lines
  Added in v.1.10

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