Lines 97-103
if ($batch) {
Link Here
|
97 |
my $MARCto = GetAuthority($mergeto); |
97 |
my $MARCto = GetAuthority($mergeto); |
98 |
&merge($mergefrom,$MARCfrom,$mergeto,$MARCto); |
98 |
&merge($mergefrom,$MARCfrom,$mergeto,$MARCto); |
99 |
#Could add mergefrom authority to mergeto rejected forms before deletion |
99 |
#Could add mergefrom authority to mergeto rejected forms before deletion |
100 |
DelAuthority($mergefrom); |
100 |
DelAuthority($mergefrom) if ($mergefrom != $mergeto); |
101 |
} |
101 |
} |
102 |
my $timeneeded = gettimeofday - $starttime; |
102 |
my $timeneeded = gettimeofday - $starttime; |
103 |
print "Done in $timeneeded seconds" unless $noconfirm; |
103 |
print "Done in $timeneeded seconds" unless $noconfirm; |
104 |
- |
|
|