[Koha-cvs] CVS: koha MARCdetail.pl,1.25.2.5,1.25.2.6
Henri-Damien LAURENT
hdl at users.sourceforge.net
Tue May 24 17:06:47 CEST 2005
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv534
Modified Files:
Tag: rel_2_2
MARCdetail.pl
Log Message:
Displaying Frameworks in MarcDetail...
Enabling change in Framework comming soon.
Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.25.2.5
retrieving revision 1.25.2.6
diff -C2 -r1.25.2.5 -r1.25.2.6
*** MARCdetail.pl 25 Mar 2005 17:06:20 -0000 1.25.2.5
--- MARCdetail.pl 24 May 2005 15:06:45 -0000 1.25.2.6
***************
*** 71,74 ****
--- 71,76 ----
$biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
+ warn "itemtype :".$itemtype;
+
my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
***************
*** 84,87 ****
--- 86,112 ----
});
+ #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=$itemtype;
+ warn "current fwk :".$curfwk ;
+ my $framework=CGI::scrolling_list( -name => 'Frameworks',
+ -id => 'Frameworks',
+ -default => $curfwk,
+ -values => \@select_fwk,
+ -labels => \%select_fwk,
+ -size => 1,
+ -multiple => 0 );
+
+ $template->param( framework => $framework);
# fill arrays
my @loop_data =();
More information about the Koha-cvs
mailing list