%args> $showURL => 0 $realm => "ebsco" %args> <%perl> use LWP; use XML::Simple; my $ref = XMLin(LWP::UserAgent->new()->get("http://newmk2.indexdata.com/torus2/searchable.$realm/records/")->content()); my %targets; foreach my $rec (@{ $ref->{record}}) { my $name = $rec->{layer}->{displayName}; my $udb = $rec->{layer}->{udb}; $targets{$udb} = $name if defined $udb; warn "set $udb => $name"; } my %baseURLs = ( ebsco => "http://flurry.indexdata.com:9000", public => "http://connect.indexdata.com", ala => "http://ala-connect.indexdata.com", ); my $baseURL = $baseURLs{$realm} or die("$0: unrecognised realm '$realm': try one of ", join(",", sort keys %baseURLs)); %perl>
| <% $key %> | <% $name %> | [Profile] [Test] | % if ($showURL) {<% $baseURL %>/<% $key %>?operation=searchRetrieve&version=1.1&query=water&maximumRecords=3&recordSchema=usi | % }
Go to the Admin Console for the selected targets
% if ($showURL) { Hide MKC URLs % } else { Show MKC URLs % }