# $Id: oclcnum.pm,v 1.1 2007-06-20 13:03:58 mike Exp $

package Keystone::Resolver::plugins::ID::info::oclcnum;

use strict;
use warnings;


sub data {
    my $class = shift();
    my($openurl, $oclcnum) = @_;

    # We probably don't want to resolve an OCLC identifier to a
    # reference into OCLC.  We could look the identifier up in an OCLC
    # database if we could find a nice remote API, but we're only
    # likely to find OCLC IDs in OpenURLs generated by OCLC
    # applications, in which case the application presumably already
    # has access to the OCLC data and has given us all of it that it
    # thinks we need.  So there seems to be nothing useful to do here.

    return (undef, undef, undef, "Resolution of OCLC IDs is unsupported", 1);
}


1;