Skip to main content

Browse the archive

Revision 6f86eb3006d815bb183e0d0d8f94a9b3357d38a4 authored by Syd Bauman on 10 September 2014, 03:37:43 UTC, committed by Syd Bauman on 10 September 2014, 03:37:43 UTC 
Tag this version which has Schematron code in biblStruct.xml for deprecating <idno> as a direct child of <biblStruct>. I can't implement this for the upcoming release, as we have 29 cases of biblStruct/idno in P5's own bibliogrraphy.
1 parent 700bf7e
Raw File
rmcol.pl 
#!/usr/bin/perl -w
use SOAP::Lite;
die "Usage: $0 collection\n" unless @ARGV == 1;
my $collection = $ARGV[0];
my $service = SOAP::Lite->service("http://localhost:8080/cocoon/services/Admin?WSDL");
my $session = $service->connect("admin", "");
print "Removing collection $collection\n";
$service->removeCollection($session, $collection);
$service->disconnect($session);
back to top