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

[Ambrose Li]

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

Modified Files:
	Output.pm 
Log Message:
Added < to the filenames of open() calls


Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -r1.36 -r1.37
*** Output.pm	6 Jan 2003 13:31:01 -0000	1.36
--- Output.pm	19 Jan 2003 06:13:27 -0000	1.37
***************
*** 383,399 ****
    # to die without issuing an error message.
    if ($type eq 'issue') {
!     open (FILE,"$path/issues-bottom.inc") || die;
    } elsif ($type eq 'opac') {
!     open (FILE,"$path/opac-bottom.inc") || die;
    } elsif ($type eq 'member') {
!     open (FILE,"$path/members-bottom.inc") || die;
    } elsif ($type eq 'acquisitions') {
!     open (FILE,"$path/acquisitions-bottom.inc") || die;
    } elsif ($type eq 'report') {
!     open (FILE,"$path/reports-bottom.inc") || die;
    } elsif ($type eq 'circulation') {
!     open (FILE,"$path/circulation-bottom.inc") || die;
    } else {
!     open (FILE,"$path/cat-bottom.inc") || die;
    }
    my @string=<FILE>;
--- 383,399 ----
    # to die without issuing an error message.
    if ($type eq 'issue') {
!     open (FILE,"<$path/issues-bottom.inc") || die;
    } elsif ($type eq 'opac') {
!     open (FILE,"<$path/opac-bottom.inc") || die;
    } elsif ($type eq 'member') {
!     open (FILE,"<$path/members-bottom.inc") || die;
    } elsif ($type eq 'acquisitions') {
!     open (FILE,"<$path/acquisitions-bottom.inc") || die;
    } elsif ($type eq 'report') {
!     open (FILE,"<$path/reports-bottom.inc") || die;
    } elsif ($type eq 'circulation') {
!     open (FILE,"<$path/circulation-bottom.inc") || die;
    } else {
!     open (FILE,"<$path/cat-bottom.inc") || die;
    }
    my @string=<FILE>;