build_formatter($context);
if ($fmt->isa("Formatter::Samplecopy")) {
if ($ENV{ANE_ENABLED}) {
eval {
use lib "/tool/ane-client/lib";
require W3Api2;
my $w3api = new W3Api2($ENV{GCD_DEBUG}, $ENV{GCD_PORT}, $ENV{GCD_GCD_HOST}, 30);
my %res = $w3api->Exec2("AppSCInterestsCreate_1",
readerguid => $ENV{GCD_READERGUID},
rc => $ENV{GCD_AUTHTOKEN},
product_id => $context->journal->id,
paper => "N",
volume => $context->issue->volume,
issue_number_from => $context->issue->issue,
issue_number_to => '');
if ($res{errornumber}->[0] != 0) {
warn "AppSCInterestsCreate_1 failed res = ", join(" ", map { "$_=$res{$_}->[0]" } sort(keys(%res))), "\n";
}
};
if ($@) {
warn "failed to AppSCInterestsCreate_1 $@\n";
}
} else {
eval {
use lib "/component/promote/wwwcd/source";
use W3Api;
my $w3api = new W3Api();
my $res = $w3api->Exec
("AppSCInterestsCreate_1",
"username=$ENV{REMOTE_USER}",
"crypted_password=$ENV{GCD_AUTHTOKEN}",
"product_id=" . $context->journal->id,
"paper=N",
"volume=" . $context->issue->volume,
"issue_number_from=" . $context->issue->issue,
"issue_number_to=",);
if ($res->{sts} == 0) {
warn $res->{msg}
? "GCD Failure: $res->{msg}\n"
: "Major GCD failure.\n";
}
}
}
}
'';
}>
<?{ $fmt->format_htmltitle }>
debug()}>
Debugging Links
tocorder=reverse |
tocorder=normal |
rangeorder=reverse |
rangeorder=normal
format_jtitle()}>
format_navbar()}>
format_header()}>
format_rangeselector()}>
overrides->{listing}}>
overrides->{listing}[0]}>
rows}>
format_row($row)}>
format_footer()}>
format_copyright()}>
"404 Not found") ; undef }>
<?{$cdweb::error}>
Didn't have enough information to retrieve the document you requested.
Here's the error message:
Strange Error
Got a strange error. Call 112