[Koha-cvs] CVS: koha/C4 Output.pm,1.35,1.36

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv24232/C4

Modified Files:
        Output.pm 
Log Message:
last bugfix before releasing 1.3.3. Not trully a bugfix (see release notes)

Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -r1.35 -r1.36
*** Output.pm   20 Dec 2002 08:35:19 -0000      1.35
--- Output.pm   6 Jan 2003 13:31:01 -0000       1.36
***************
*** 342,358 ****
    my ($type)=shift;
    if ($type eq 'issue') {
!     open (FILE,"$path/issues-top.inc") || die;
    } elsif ($type eq 'opac') {
!     open (FILE,"$path/opac-top.inc") || die;
    } elsif ($type eq 'member') {
!     open (FILE,"$path/members-top.inc") || die;
    } elsif ($type eq 'acquisitions'){
!     open (FILE,"$path/acquisitions-top.inc") || die;
    } elsif ($type eq 'report'){
!     open (FILE,"$path/reports-top.inc") || die;
    } elsif ($type eq 'circulation') {
!     open (FILE,"$path/circulation-top.inc") || die;
    } else {
!     open (FILE,"$path/cat-top.inc") || die;
    }
    my @string=<FILE>;
--- 342,358 ----
    my ($type)=shift;
    if ($type eq 'issue') {
!     open (FILE,"$path/issues-top.inc") || die "could not find : 
$path/issues-top.inc";
    } elsif ($type eq 'opac') {
!     open (FILE,"$path/opac-top.inc") || die "could not find : 
$path/opac-top.inc";
    } elsif ($type eq 'member') {
!     open (FILE,"$path/members-top.inc") || die "could not find : 
$path/members-top.inc";
    } elsif ($type eq 'acquisitions'){
!     open (FILE,"$path/acquisitions-top.inc") || die "could not find : 
$path/acquisition-top.inc";
    } elsif ($type eq 'report'){
!     open (FILE,"$path/reports-top.inc") || die "could not find : 
$path/reports-top.inc";
    } elsif ($type eq 'circulation') {
!     open (FILE,"$path/circulation-top.inc") || die "could not find : 
$path/circulation-top.inc";
    } else {
!     open (FILE,"$path/cat-top.inc") || die "could not find : 
$path/cat-top.inc";
    }
    my @string=<FILE>;