projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
@syntax made global.
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy
/
Test
/
Record
/
Fetch.pm
diff --git
a/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
b/lib/ZOOM/IRSpy/Test/Record/Fetch.pm
index
79e6fa2
..
af0b529
100644
(file)
--- a/
lib/ZOOM/IRSpy/Test/Record/Fetch.pm
+++ b/
lib/ZOOM/IRSpy/Test/Record/Fetch.pm
@@
-20,6
+20,29
@@
my @queries = (
### We can add more queries here
);
### We can add more queries here
);
+my @syntax = (
+ 'canmarc',
+ 'danmarc',
+ 'grs-1',
+ 'ibermarc',
+ 'intermarc',
+ 'jpmarc',
+ 'librismarc',
+ 'mab',
+ 'normarc',
+ 'opac',
+ 'picamarc',
+ 'rusmarc',
+ 'summary',
+ 'sutrs',
+ 'swemarc',
+ 'ukmarc',
+ 'unimarc',
+ 'usmarc',
+ 'xml'
+ );
+#@syntax = qw(grs-1 sutrs usmarc xml); # simplify for debugging
+
sub start {
my $class = shift();
sub start {
my $class = shift();
@@
-62,28
+85,6
@@
sub completed_search {
return ZOOM::IRSpy::Status::TASK_DONE;
}
return ZOOM::IRSpy::Status::TASK_DONE;
}
- my @syntax = (
- 'canmarc',
- 'danmarc',
- 'grs-1',
- 'ibermarc',
- 'intermarc',
- 'jpmarc',
- 'librismarc',
- 'mab',
- 'normarc',
- 'opac',
- 'picamarc',
- 'rusmarc',
- 'summary',
- 'sutrs',
- 'swemarc',
- 'ukmarc',
- 'unimarc',
- 'usmarc',
- 'xml'
- );
- #@syntax = qw(grs-1 sutrs usmarc xml); # simplify for debugging
foreach my $i (0 ..$#syntax) {
my $syntax = $syntax[$i];
$conn->irspy_rs_record($task->{rs}, 0,
foreach my $i (0 ..$#syntax) {
my $syntax = $syntax[$i];
$conn->irspy_rs_record($task->{rs}, 0,