koha-devel
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-devel] CVS: koha/C4 Output.pm,1.6,1.6.2.1

From: Pat Eyler
Subject: [Koha-devel] CVS: koha/C4 Output.pm,1.6,1.6.2.1
Date: Thu Apr 25 07:51:04 2002 
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv19867

Modified Files:
      Tag: rel-1-2
        Output.pm 
Log Message:
adding prototypes, and fixing compiler warnings

Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -C2 -r1.6 -r1.6.2.1
*** Output.pm   21 Apr 2002 04:45:21 -0000      1.6
--- Output.pm   25 Apr 2002 14:50:16 -0000      1.6.2.1
***************
*** 72,82 ****
  # make all your functions, whether exported or not;
   
! sub startpage{
    return("<html>\n");
  }
  
! sub gotopage{
!   my ($target) = @_;
!   print "<br>goto target = $target<br>";
    my $string = "<META HTTP-EQUIV=Refresh CONTENT=\"0;URL=http:$target\">";
    return $string;
--- 72,82 ----
  # make all your functions, whether exported or not;
   
! sub startpage() {
    return("<html>\n");
  }
  
! sub gotopage($) {
!   my ($target) = shift;
!   #print "<br>goto target = $target<br>";
    my $string = "<META HTTP-EQUIV=Refresh CONTENT=\"0;URL=http:$target\">";
    return $string;
***************
*** 84,90 ****
  
  
! sub startmenu{
    # edit the paths in here
!   my ($type)address@hidden;
    if ($type eq 'issue') {
      open (FILE,"$path/issues-top.inc") || die;
--- 84,90 ----
  
  
! sub startmenu($) {
    # edit the paths in here
!   my ($type)=shift;
    if ($type eq 'issue') {
      open (FILE,"$path/issues-top.inc") || die;
***************
*** 104,109 ****
    my @string=<FILE>;
    close FILE;
!   my address@hidden;
!   #  $string[$count]="<BLOCKQUOTE>";
    return @string;
  }
--- 104,109 ----
    my @string=<FILE>;
    close FILE;
!   # my address@hidden;
!   # $string[$count]="<BLOCKQUOTE>";
    return @string;
  }
***************
*** 132,136 ****
  }
  
! sub mktablehdr {
      return("<table border=0 cellspacing=0 cellpadding=5>\n");
  }
--- 132,136 ----
  }
  
! sub mktablehdr() {
      return("<table border=0 cellspacing=0 cellpadding=5>\n");
  }
***************
*** 341,345 ****
          $ltext = $ltext." (Req)";
        }
!       @order[$posn] =mktablerow(2,'white',$ltext,$text);
      }
    }
--- 341,345 ----
          $ltext = $ltext." (Req)";
        }
!       $order[$posn] =mktablerow(2,'white',$ltext,$text);
      }
    }
reply via email to
[Prev in Thread] Current Thread [Next in Thread]