[Koha-cvs] koha/C4 Biblio.pm [dev_week]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  06/09/22 19:45:46

Modified files:
        C4             : Biblio.pm 

Log message:
        changing name of auth value

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.115.2.51.2.16&r2=1.115.2.51.2.17

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.51.2.16
retrieving revision 1.115.2.51.2.17
diff -u -b -r1.115.2.51.2.16 -r1.115.2.51.2.17
--- Biblio.pm   29 Aug 2006 12:17:19 -0000      1.115.2.51.2.16
+++ Biblio.pm   22 Sep 2006 19:45:46 -0000      1.115.2.51.2.17
@@ -1728,6 +1728,7 @@
     $biblioitem->{'bnotes'}      = $dbh->quote( $biblioitem->{'bnotes'} );
     $biblioitem->{'size'}        = $dbh->quote( $biblioitem->{'size'} );
     $biblioitem->{'place'}       = $dbh->quote( $biblioitem->{'place'} );
+       $biblioitem->{'ccode'}       = $dbh->quote( $biblioitem->{'ccode'} );
 
 #      
my($lcsort)=calculatelc($biblioitem->{'classification'}).$biblioitem->{'subclass'};
 #      $lcsort=$dbh->quote($lcsort);
@@ -1749,6 +1750,7 @@
 notes          = $biblioitem->{'bnotes'},
 size           = $biblioitem->{'size'},
 place          = $biblioitem->{'place'},
+ccode          = $biblioitem->{'ccode'}
 where biblionumber = $biblioitem->{'biblionumber'}";
 
     $dbh->do($query);
@@ -2411,10 +2413,10 @@
     my $sth=$dbh->prepare("SELECT * FROM authorised_values ORDER BY 
authorised_value");
     $sth->execute;
     while (my $data=$sth->fetchrow_hashref) {
-               if ($data->{category} =~ /ITYPES/) {
+               if ($data->{category} =~ /CCODE/) {
                        $count++;
                        $results[$count] = $data;
-                       warn "data: $data";
+                       #warn "data: $data";
                }
     }
        $sth->finish;
@@ -2934,8 +2936,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.51.2.16 2006/08/29 12:17:19 kados Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.17 2006/09/22 19:45:46 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.17  2006/09/22 19:45:46  kados
+# changing name of auth value
+#
 # Revision 1.115.2.51.2.16  2006/08/29 12:17:19  kados
 # remove non-portable lcsort code that was causing failed queries
 # with rebuildnonmarc.