[Koha-devel] CVS: koha/C4 Output.pm,1.6,1.6.2.1
Pat Eyler
pate at users.sourceforge.net
Thu Apr 25 07:51:04 CEST 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)=@_;
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 $count=@string;
! # $string[$count]="<BLOCKQUOTE>";
return @string;
}
--- 104,109 ----
my @string=<FILE>;
close FILE;
! # my $count=@string;
! # $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);
}
}
More information about the Koha-devel
mailing list