/[Z3950-HTML-Scraper]/server.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /server.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 6 by dpavlin, Sat Jun 20 19:42:32 2009 UTC revision 9 by dpavlin, Sun Jun 21 08:16:41 2009 UTC
# Line 49  diag "search for $query"; Line 49  diag "search for $query";
49          $this->{ERR_CODE} = 108;          $this->{ERR_CODE} = 108;
50          return;          return;
51      }      }
52      my $hits = $CROBISS::hits || diag "no results for $query";      my $hits = $COBISS::hits || diag "no results for $query";
53    diag "got $hits hits";
54      my $rs   = {      my $rs   = {
55          lower => 1,          lower => 1,
56          upper => $hits < $max_records ? $max_records : $hits,          upper => $hits < $max_records ? $max_records : $hits,
# Line 102  diag Dumper( $this ); Line 103  diag Dumper( $this );
103      }      }
104      elsif ( $req_form eq &Net::Z3950::OID::unimarc ) {  # FIXME convert to usmarc      elsif ( $req_form eq &Net::Z3950::OID::unimarc ) {  # FIXME convert to usmarc
105          $this->{REP_FORM} = &Net::Z3950::OID::unimarc;          $this->{REP_FORM} = &Net::Z3950::OID::unimarc;
106          $this->{RECORD} = COBISS->fetch_marc;          $this->{RECORD} = COBISS->fetch_rec('unimarc');
107        }
108        elsif ( $req_form eq &Net::Z3950::OID::usmarc ) {   # FIXME convert to usmarc
109            $this->{REP_FORM} = &Net::Z3950::OID::usmarc;
110            $this->{RECORD} = COBISS->fetch_rec('usmarc');
111      }      }
112      else {    ## Unsupported record format      else {    ## Unsupported record format
113          $this->{ERR_CODE} = 239;          $this->{ERR_CODE} = 239;
Legend:
Removed from v.6  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26