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

[Henri-Damien LAURENT]

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

Modified Files:
      Tag: rel_2_2
	addbiblio.pl 
Log Message:
Coping With Frameworks al allong MARC Editing.
BUG to be Fixed: Framework to save when editing a biblio.

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.52.2.6
retrieving revision 1.52.2.7
diff -C2 -r1.52.2.6 -r1.52.2.7
*** addbiblio.pl	19 May 2005 22:17:33 -0000	1.52.2.6
--- addbiblio.pl	24 May 2005 20:29:40 -0000	1.52.2.7
***************
*** 341,351 ****
  my $dbh = C4::Context->dbh;
  my $bibid;
  if ($oldbiblionumber) {
  	$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$oldbiblionumber);
  	# find framework type
! 	$frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if $bibid;
  }else {
  	$bibid = $input->param('bibid');
! 	$frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if $bibid;
  }
  my ($template, $loggedinuser, $cookie)
--- 341,353 ----
  my $dbh = C4::Context->dbh;
  my $bibid;
+ 
+ 
  if ($oldbiblionumber) {
  	$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$oldbiblionumber);
  	# find framework type
! 	$frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if ($bibid and not ($frameworkcode));
  }else {
  	$bibid = $input->param('bibid');
! 	$frameworkcode = &MARCfind_frameworkcode($dbh,$bibid) if ($bibid and not ($frameworkcode));
  }
  my ($template, $loggedinuser, $cookie)
***************
*** 358,361 ****
--- 360,386 ----
  			     });
  
+ #Getting the list of all frameworks
+ my $queryfwk =$dbh->prepare("select frameworktext, frameworkcode from biblio_framework");
+ $queryfwk->execute;
+ my %select_fwk;
+ my @select_fwk;
+ my $curfwk;
+ push @select_fwk,"";
+ $select_fwk{""} = "Default";
+ while (my ($description, $fwk) =$queryfwk->fetchrow) {
+ 	push @select_fwk, $fwk;
+ 	$select_fwk{$fwk} = $description;
+ }
+ $curfwk=$frameworkcode;
+ my $framework=CGI::scrolling_list( -name     => 'Frameworks',
+ 			-id => 'Frameworks',
+ 			-default => $curfwk,
+ 			-OnChange => 'Changefwk(this);',
+ 			-values   => \@select_fwk,
+ 			-labels   => \%select_fwk,
+ 			-size     => 1,
+ 			-multiple => 0 );
+ $template->param( framework => $framework);
+ 
  $tagslib = &MARCgettagslib($dbh,1,$frameworkcode);
  my $record=-1;