Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Move header to cope with bug in CDK

Browse source
This commit is contained in:
olwen 2000-01-15 22:06:10 +00:00
parent c8c7d51642
commit 7f9e36e47b
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
C4/InterfaceCDK.pm
View file

@ -1,3 +1,4 @@
package C4::InterfaceCDK; #asummes C4/InterfaceCDK package C4::InterfaceCDK; #asummes C4/InterfaceCDK
#uses Newt #uses Newt
@ -129,11 +130,11 @@ sub helptext {
sub titlepanel{ sub titlepanel{
my ($env,$title,$title2)=@_; my ($env,$title,$title2)=@_;
my @header; my @header;
@header[0] = fmtstr($env,$title,"L26"); @header[0] = fmtstr($env,$title,"L24");
@header[0] = @header[0].fmtstr($env, @header[0] = @header[0].fmtstr($env,
$env->{'branchname'}."-".$env->{'queue'},"C20"); $env->{'branchname'}."-".$env->{'queue'},"C28");
@header[0] = @header[0].fmtstr($env,$title2,"R26"); @header[0] = @header[0].fmtstr($env,$title2,"R24");
my $label = new Cdk::Label ('Message' =>\@header,'Ypos'=>"TOP"); my $label = new Cdk::Label ('Message' =>\@header,'Ypos'=>0,'Xpos'=>0);
$label->draw(); $label->draw();
return $label; return $label;
} }