"; return @string; } sub endmenu{ my ($type)=@_; if ($type eq 'issue'){ open (FILE,'/usr/local/www/koha/htdocs/includes/issues-bottom.inc'); } elsif ($type eq 'opac') { open (FILE,'/usr/local/www/koha/htdocs/includes/opac-bottom.inc'); } elsif ($type eq 'member') { open (FILE,'/usr/local/www/koha/htdocs/includes/members-bottom.inc'); } else { open (FILE,'/usr/local/www/koha/htdocs/includes/cat-bottom.inc'); } my @string=; close FILE; return @string; } sub mktablehdr { my $string=" \n"; return($string); } sub mktablerow { #the last item in data may be a backgroundimage my ($cols,$colour,@data)=@_; my $i=0; my $string="
\n"; return($string); } sub mkform{ my ($action,%inputs)=@_; my $string=""; } sub mkformnotable{ my ($action,@inputs)=@_; my $string=""; } sub mkform2{ my ($action,%inputs)=@_; my $string=""; } sub endpage{ my $string=""; while ($i <$cols){ if ($data[$cols] ne ''){ #check for backgroundimage $string.=" \n"; return($string); } sub mktableft { my $string=""; } else { $string.=" "; } if ($data[$i] eq "") { $string.=" "; } else { $string.="$data[$i]"; } $i++; } $string=$string."