#!/usr/bin/perl
$url = `cat /opt/folio/config/url`; chomp($url);
$headers = `cat /opt/folio/config/headers`; chomp($headers);
use DateTime; $dt = DateTime->now; $thisMonth = $dt->month; $thisYear = $dt->year();
use DBI; $dbh = DBI->connect("DBI:mysql:database=discardItems;host=localhost","username","password") or error_exit($DBI::errstr);
use JSON;
use CGI; $query = new CGI;
$barcode = $query->param("barcode");
$callNumber = $query->param("callNumber");
$holdingsRecordId = $query->param("holdingsRecordId");
$instanceId = $query->param("instanceId");
$mtype = $query->param("mtype");
$oclc = $query->param("oclc");
$title = $query->param("title");
$username = $query->param("username");
if (length($thisMonth) == 1) {$thisMonth = "0" . $thisMonth;}
$yyyymm = $thisYear . $thisMonth;
$insert = $dbh->prepare("insert into log (oclc,title,callNumber,mtype,barcode,instanceId,xUser,yyyymm) values (?,?,?,?,?,?,?,?)");
$insert->execute($oclc,$title,$callNumber,$mtype,$barcode,$instanceId,$username,$yyyymm);
$insert->finish();
$items = `curl -s -X GET $headers $url/item-storage/items?query=holdingsRecordId=$holdingsRecordId`;
$hash = decode_json $items;
$totalItemsFound = $hash->{totalRecords};
for ( @{$hash->{items}} ) {
$itemId = $_->{'id'};
$thisBarcode = $_->{'barcode'};
if ($thisBarcode eq $barcode) {$deleteItem = `curl -s -X DELETE $headers $url/item-storage/items/$itemId`;}
}
if ($totalItemsFound == 1) {
$deleteHoldingsRecord = `curl -s -X DELETE $headers $url/holdings-storage/holdings/$holdingsRecordId`;
$getHoldingsRecords = `curl -s -X GET -G $headers -d 'limit=0' $url/holdings-storage/holdings?query=instanceId==$instanceId`;
$hash = decode_json $getHoldingsRecords;
$totalRecords = $hash->{'totalRecords'};
if ($totalRecords == 0) {
$instance = `curl -s -X GET -G $headers $url/instance-storage/instances/$instanceId`;
$note2self = "the following marks the instance : Suppress from discovery";
$instance =~ s/"discoverySuppress" : false/"discoverySuppress" : true/;
$note2self = "the following either replaces or adds the Instance status term : discarded";
if ($instance =~ /"statusId" : "[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}"/) {
$instance =~ s/"statusId" : "[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}"/"statusId" : "9fa5c0e6-d9c5-4e42-b2f4-ecc607b7f7a5"/;
} else {
$instance =~ s/"statusUpdatedDate"/"statusId" : "9fa5c0e6-d9c5-4e42-b2f4-ecc607b7f7a5",\n "statusUpdatedDate"/;
}
$note2self = "the following updates the instance with the above changes";
$put = `curl -s -X PUT $headers -d '$instance' $url/instance-storage/instances/$instanceId`;
$note2self = "the following gets the recordId and marks the record : deleted";
$record = `curl -s -X GET $headers $url/source-storage/records/$instanceId/formatted?idType=INSTANCE`;
$hash = decode_json $record;
$recordId = $hash->{'id'};
$delete = `curl -s -X DELETE $headers $url/source-storage/records/$recordId`;
$insert = $dbh->prepare("insert into removeOCLCholdings (oclc) values (?)");
$insert->execute($oclc);
$insert->finish();
}
}
$dbh->disconnect();
print qq[Content-Type: text/html \n\n
<html>
<body onLoad="document.done.submit();">
<form action="scanBarcode.pl" method="post" name="done">
<input name="username" type="hidden" value="$username">
<input name="password" type="hidden" value="passsword">
</form>
</body>
</html>
];
1;
Overview
Content Tools
0 Comments