[Koha-cvs] CVS: koha MARCdetail.pl,1.25.2.8,1.25.2.9

Henri-Damien LAURENT hdl at users.sourceforge.net
Wed May 25 11:34:42 CEST 2005


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

Modified Files:
      Tag: rel_2_2
	MARCdetail.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: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.25.2.8
retrieving revision 1.25.2.9
diff -C2 -r1.25.2.8 -r1.25.2.9
*** MARCdetail.pl	24 May 2005 20:29:40 -0000	1.25.2.8
--- MARCdetail.pl	25 May 2005 09:34:40 -0000	1.25.2.9
***************
*** 72,75 ****
--- 72,76 ----
  $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
  $itemtype = &MARCfind_frameworkcode($dbh,$bibid) if not ($itemtype);
+ $itemtype = '' if ($itemtype eq 'Default');
  warn "itemtype :".$itemtype;
  
***************
*** 93,98 ****
  my @select_fwk;
  my $curfwk;
! push @select_fwk,"";
! $select_fwk{""} = "Default";
  while (my ($description, $fwk) =$queryfwk->fetchrow) {
  	push @select_fwk, $fwk;
--- 94,99 ----
  my @select_fwk;
  my $curfwk;
! push @select_fwk,"Default";
! $select_fwk{"Default"} = "Default";
  while (my ($description, $fwk) =$queryfwk->fetchrow) {
  	push @select_fwk, $fwk;





More information about the Koha-cvs mailing list