[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.52.2.7,1.52.2.8

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24539/acqui.simple

Modified Files:
      Tag: rel_2_2
	addbiblio.pl 
Log Message:
Fixing :
- Enabling Selection of Default Framework, event though it wasnot the framework of the biblio.
Adding
- Saving Framework Changes when editing a biblio.
Display improvements

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.52.2.7
retrieving revision 1.52.2.8
diff -C2 -r1.52.2.7 -r1.52.2.8
*** addbiblio.pl	24 May 2005 20:29:40 -0000	1.52.2.7
--- addbiblio.pl	25 May 2005 09:34:40 -0000	1.52.2.8
***************
*** 351,354 ****
--- 351,355 ----
  	$frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if ($bibid and not ($frameworkcode));
  }
+ $frameworkcode='' if ($frameworkcode eq 'Default');
  my ($template, $loggedinuser, $cookie)
      = get_template_and_user({template_name => "acqui.simple/addbiblio.tmpl",
***************
*** 366,371 ****
  my @select_fwk;
  my $curfwk;
! push @select_fwk,"";
! $select_fwk{""} = "Default";
  while (my ($description, $fwk) =$queryfwk->fetchrow) {
  	push @select_fwk, $fwk;
--- 367,372 ----
  my @select_fwk;
  my $curfwk;
! push @select_fwk,"Default";
! $select_fwk{"Default"} = "Default";
  while (my ($description, $fwk) =$queryfwk->fetchrow) {
  	push @select_fwk, $fwk;
***************
*** 426,429 ****
--- 427,431 ----
  		my $oldbibitemnum;
  		if ($is_a_modif) {
+ 			NEWmodbiblioframework($dbh,$bibid,$frameworkcode);
  			NEWmodbiblio($dbh,$record,$bibid,$frameworkcode);
  		} else {