[Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.9,1.115.2.10

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22962/C4

Modified Files:
      Tag: rel_2_2
	Biblio.pm 
Log Message:
Adding NEWmodbiblioframework feature
Used by addbiblio.pl when modifying a framework selection.

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.9
retrieving revision 1.115.2.10
diff -C2 -r1.115.2.9 -r1.115.2.10
*** Biblio.pm	7 Apr 2005 10:05:25 -0000	1.115.2.9
--- Biblio.pm	25 May 2005 09:30:50 -0000	1.115.2.10
***************
*** 59,62 ****
--- 59,63 ----
    &NEWmodbiblio &NEWmoditem
    &NEWdelbiblio &NEWdelitem
+   &NEWmodbiblioframework
  
    &MARCaddbiblio &MARCadditem
***************
*** 1273,1276 ****
--- 1274,1283 ----
  }
  
+ sub NEWmodbiblioframework {
+ 	my ($dbh,$bibid,$frameworkcode) =@_;
+ 	my $sth = $dbh->prepare("Update marc_biblio SET frameworkcode=? WHERE bibid=$bibid");
+ 	$sth->execute($frameworkcode);
+ 	return 1;
+ }
  sub NEWmodbiblio {
  	my ($dbh,$record,$bibid,$frameworkcode) =@_;
***************
*** 2624,2627 ****
--- 2631,2638 ----
  # $Id$
  # $Log$
+ # Revision 1.115.2.10  2005/05/25 09:30:50  hdl
+ # Adding NEWmodbiblioframework feature
+ # Used by addbiblio.pl when modifying a framework selection.
+ #
  # Revision 1.115.2.9  2005/04/07 10:05:25  tipaul
  # adding / to the list of symbols that are replace by spaces for searches