/[koha]/koha/opac/opac-ISBDdetail.pl
ViewVC logotype

Diff of /koha/opac/opac-ISBDdetail.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5.2.5 by tipaul, Fri Sep 23 10:08:41 2005 UTC revision 1.5.2.6 by tipaul, Fri Dec 2 17:15:48 2005 UTC
# Line 56  use C4::Search; Line 56  use C4::Search;
56  use MARC::Record;  use MARC::Record;
57  use C4::Biblio;  use C4::Biblio;
58  use C4::Acquisition;  use C4::Acquisition;
59    use C4::Bull; #uses getsubscriptionfrom biblionumber
60  use HTML::Template;  use HTML::Template;
61    
62  my $query=new CGI;  my $query=new CGI;
# Line 70  my $itemtype = &MARCfind_frameworkcode($ Line 71  my $itemtype = &MARCfind_frameworkcode($
71  my $tagslib = &MARCgettagslib($dbh,1,$itemtype);  my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
72    
73  my $record =MARCgetbiblio($dbh,$bibid);  my $record =MARCgetbiblio($dbh,$bibid);
74    
75    #coping with subscriptions
76    my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
77    my $dat = MARCmarc2koha($dbh,$record);
78    my @subscriptions = getsubscriptions($dat->{title},$dat->{issn},$biblionumber);
79    my @subs;
80    foreach my $subscription (@subscriptions){
81            my %cell;
82            $cell{subscriptionid}= $subscription->{subscriptionid};
83            $cell{subscriptionnotes}= $subscription->{notes};
84            #get the three latest serials.
85            $cell{latestserials}=getlatestserials($subscription->{subscriptionid},3);
86            push @subs, \%cell;
87    }
88    
89  # open template  # open template
90  my ($template, $loggedinuser, $cookie)  my ($template, $loggedinuser, $cookie)
91                  = get_template_and_user({template_name => "opac-ISBDdetail.tmpl",                  = get_template_and_user({template_name => "opac-ISBDdetail.tmpl",
# Line 81  my ($template, $loggedinuser, $cookie) Line 97  my ($template, $loggedinuser, $cookie)
97  $template->param(LibraryName => C4::Context->preference("LibraryName"),  $template->param(LibraryName => C4::Context->preference("LibraryName"),
98                                  suggestion => C4::Context->preference("suggestion"),                                  suggestion => C4::Context->preference("suggestion"),
99                                  virtualshelves => C4::Context->preference("virtualshelves"),                                  virtualshelves => C4::Context->preference("virtualshelves"),
100                                    subscriptions => \@subs,
101                                    subscriptionsnumber => $subscriptionsnumber,
102  );  );
103    
104  my $ISBD = C4::Context->preference('ISBD');  my $ISBD = C4::Context->preference('ISBD');

Legend:
Removed from v.1.5.2.5  
changed lines
  Added in v.1.5.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26