From fabacc26ef658cf6df9f348ebc223746de41aad1 Mon Sep 17 00:00:00 2001 From: rangi Date: Thu, 15 Mar 2001 10:17:33 +0000 Subject: [PATCH] Added code to allow searches to be used by catalogue maintenance --- detail.pl | 59 ++++++++++++++++++++++++++++++++------------------- moredetail.pl | 13 ++++++++++++ 2 files changed, 50 insertions(+), 22 deletions(-) diff --git a/detail.pl b/detail.pl index 96330868c2..ce53b2fa6d 100755 --- a/detail.pl +++ b/detail.pl @@ -46,6 +46,9 @@ for (my $i=1;$i<$count3;$i++){ $additional=$additional."|".$addauthor->[$i]->{'author'}; } my @temp=split('\t',$items[0]); +if ($type eq 'catmain'){ + print mkheadr(3,"Catalogue Maintenance"); +} if ($dat->{'author'} ne ''){ print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]"); } else { @@ -173,41 +176,36 @@ while ($i < $count){ # print $items[$i],"
"; my @results=split('\t',$items[$i]); if ($type ne 'opac'){ - $results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]",$results[1]); + $results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]); } if ($results[2] eq ''){ $results[2]='Available'; } + if ($type eq 'catmain'){ + $results[10]=mklink("/cgi-bin/koha/maint/catmaintain.pl?type=fixitemtype&bi=$results[8]&item=$results[6]","Fix Itemtype"); + } if ($colour == 1){ if ($type ne 'opac'){ -# if ($results[6] eq 'PER'){ + if ($type eq 'catmain'){ + print mktablerow(8,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]); + } else { print mktablerow(7,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]); -# } else { -# print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]); -# } + } } else { - $results[6]=ItemType($results[6]); -# if ($results[6] =~ /Periodical/){ - print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]); -# } else { -# print mktablerow(5,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7]); -# } + $results[6]=ItemType($results[6]); + print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]); } $colour=0; } else{ if ($type ne 'opac'){ -# if ($results[6] eq 'PER'){ - print mktablerow(7,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]); -# }else{ -# print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]); -# } + if ($type eq 'catmain'){ + print mktablerow(8,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]); + } else { + print mktablerow(7,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]); + } } else { $results[6]=ItemType($results[6]); -# if ($results[6] =~ /Periodical/){ - print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]); -# } else { -# print mktablerow(5,'white',$results[6],$results[4],$results[3],$results[2],$results[7]); -# } + print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]); } $colour=1; } @@ -222,11 +220,28 @@ print <

HELP
Update Biblio for all Items: Click on the Modify button [left] to amend the biblio. Any changes you make will update the record for all the items listed above.

-Updating the Biblio for only ONE or SOME Items: If some of the items listed above need a different biblio, or are on the wrong biblio, you must use the acquisitions process to fix this. You will need to "re-order" the items, and delete them from this biblio.

+Updating the Biblio for only ONE or SOME Items: +printend +; +if ($type eq 'catmain'){ +print < printend ; +} else { +print <acquisitions process to fix this. You will need to "re-order" the items, and delete them from this biblio. +

+ + +printend +; +} } print mktableft(); print endcenter(); diff --git a/moredetail.pl b/moredetail.pl index 9ff0c7b583..d89dd2ae0b 100755 --- a/moredetail.pl +++ b/moredetail.pl @@ -53,6 +53,12 @@ $dewey=~ s/\.$//; print < +printend +; +if ($type eq 'catmain'){ + print "Catalogue Maintenance
"; +} +print <$data->{'title'} ($data->{'author'})

@@ -84,6 +90,13 @@ print <Size: $data->{'size'}
Notes: $data->{'notes'}
No. of Items: $count +printend +; +if ($type eq 'catmain'){ + print "
{'biblioitemnumber'}&bib=$data->{'biblionumber'}>Shift to another biblio"; + +} +print < -- 2.39.5