CVS: koha detail.pl,1.2,1.3 moredetail.pl,1.1.1.1,1.2

15 Mar 2001


      Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv7285

Modified Files:
	detail.pl moredetail.pl 
Log Message:
Added code to allow searches to be used by catalogue maintenance


Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/detail.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** detail.pl	2001/02/11 22:44:34	1.2
--- detail.pl	2001/03/15 10:17:33	1.3
***************
*** 47,50 ****
--- 47,53 ----
  }  
  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]");
***************
*** 174,212 ****
    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]);
    }
    if ($results[2] eq ''){
      $results[2]='Available';
    }
    if ($colour == 1){
      if ($type ne 'opac'){
! #      if ($results[6] eq 'PER'){
          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]);
! #       }       
      } 
      $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]);                                          
! #      }
      } 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]);
! #       }       
      }
      $colour=1;                                                                                
--- 177,210 ----
    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]&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 ($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 {
!       $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 ($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]);
!       print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
      }
      $colour=1;                                                                                
***************
*** 223,231 ****
  <TD  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><p><b>HELP</b><br>
  <b>Update Biblio for all Items:</b> Click on the <b>Modify</b> button [left] to amend the biblio.  Any changes you make will update the record for <b>all</b> the items listed above. <p>
! <b>Updating the Biblio for only ONE or SOME Items:</b> If some of the items listed above need a different biblio, or are on the wrong biblio, you must use the <a href="acquisitions/">acquisitions</a> process to fix this. You will need to "re-order" the items, and delete them from this biblio.<p>
  
     </TR>
  printend
  ;
  }
  print mktableft();
--- 221,246 ----
  <TD  bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><p><b>HELP</b><br>
  <b>Update Biblio for all Items:</b> Click on the <b>Modify</b> button [left] to amend the biblio.  Any changes you make will update the record for <b>all</b> the items listed above. <p>
! <b>Updating the Biblio for only ONE or SOME Items:</b> 
! printend
! ;
! if ($type eq 'catmain'){
! print <<printend
! If some of the items listed above need a different biblio, 
! you need to click on the wrong item, then shift the group it belongs to, to the correct biblio.
! You will need to know the correct biblio number
! <p>
  
     </TR>
  printend
  ;
+ } else {
+ print <<printend
+ If some of the items listed above need a different biblio, or are on the wrong biblio, you must use the <a href="acquisitions/">acquisitions</a> process to fix this. You will need to "re-order" the items, and delete them from this biblio.
+ <p>
+ 
+    </TR>
+ printend
+ ;
+ }
  }
  print mktableft();

Index: moredetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/moredetail.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** moredetail.pl	2000/12/19 23:45:52	1.1.1.1
--- moredetail.pl	2001/03/15 10:17:33	1.2
***************
*** 54,57 ****
--- 54,63 ----
  <br>
  <a href=/cgi-bin/koha/request.pl?bib=$bib><img src=/images/requests.gif width=120 height=42 border=0 align=right border=0></a>
+ printend
+ ;
+ if ($type eq 'catmain'){
+   print "<FONT SIZE=6><em>Catalogue Maintenance</em></FONT><br>";
+ }
+ print <<printend
  <FONT SIZE=6><em><a href=/cgi-bin/koha/detail.pl?bib=$bib&type=intra>$data->{'title'} ($data->{'author'})</a></em></FONT><P>
  <p>
***************
*** 85,88 ****
--- 91,101 ----
  <b>Notes:</b> $data->{'notes'}<br>
  <b>No. of Items:</b> $count
+ printend
+ ;
+ if ($type eq 'catmain'){
+   print "<br><a href=/cgi-bin/koha/maint/shiftbib.pl?bi=$data->{'biblioitemnumber'}&bib=$data->{'biblionumber'}>Shift to another biblio</a>";
+  
+ }
+ print <<printend
  </font>
  </TD>

Chris Cormack

tags

participants (1)