[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