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

Testing output changes

Browse source
This commit is contained in:
olwen 1999-11-23 06:29:10 +00:00
parent 49519f40e1
commit 203eb55017
2 changed files with 22 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
C4/Output.pm
View file

@ -156,6 +156,7 @@ sub mkform2{
while ( my ($key, $value) = each %inputs) {
my @data=split('\t',$value);
my $posn = shift(@data);
my $ltext = shift(@data);
if ($data[0] eq 'hidden'){
$string=$string."<input type=hidden name=$key value=\"$data[1]\">\n";
} else {
@ -181,7 +182,7 @@ sub mkform2{
$text=$text."</select>";
}
#$string=$string.mktablerow(2,'white',$key,$text);
@order[$posn] =mktablerow(2,'white',$key,$text);
@order[$posn] =mktablerow(2,'white',$ltext,$text);
}
}
$string=$string.join("\n",@order);

40
addborrower.pl
View file

@ -14,26 +14,26 @@ print startpage();
print startmenu();
my %inputs;
my $catlist=makelist("categories","categorycode","description");
$inputs{'cardnumber'} ="1\ttext\t";
$inputs{'surname'} ="2\ttext\t";
$inputs{'firstname'} ="3\ttext\t";
$inputs{'othernames'} ="4\ttext\t";
$inputs{'initials'} ="5\ttext\t";
$inputs{'streetaddress'}="6\ttext\t";
$inputs{'suburb'} ="7\ttext\t";
$inputs{'city'} ="8\ttext\t";
$inputs{'phone'} ="9\ttext\t";
$inputs{'emailaddress'} ="10\ttext\t";
$inputs{'faxnumber'} ="11\ttext\t";
$inputs{'altstreetaddress'}="12\ttext\t";
$inputs{'altsuburb'} ="13\ttext\t";
$inputs{'altcity'} ="14\ttext\t";
$inputs{'altphone'} ="15\ttext\t";
$inputs{'categorycode'} ="16\tselect".$catlist;
$inputs{'dateofbirth'} ="17\ttext\t";
$inputs{'contactname'} ="18\ttext\t";
$inputs{'borrowernotes'}="19\ttextarea\t";
$inputs{'type'} ="20\thidden\tborrowers";
$inputs{'cardnumber'} ="1\tCard Number\ttext\t";
$inputs{'surname'} ="2\tSurname\ttext\t";
$inputs{'firstname'} ="3\tFirst Name\ttext\t";
$inputs{'othernames'} ="4\tOther Names\ttext\t";
$inputs{'initials'} ="5\tInitials\ttext\t";
$inputs{'streetaddress'}="6\tAddress\ttext\t";
$inputs{'suburb'} ="7\tArea\ttext\t";
$inputs{'city'} ="8\tTown\ttext\t";
$inputs{'phone'} ="9\tTelephone\ttext\t";
$inputs{'emailaddress'} ="10\tEmail\ttext\t";
$inputs{'faxnumber'} ="11\tFax Number\ttext\t";
$inputs{'altstreetaddress'}="12\tAlt Address\ttext\t";
$inputs{'altsuburb'} ="13\tAlt Areat\ttext\t";
$inputs{'altcity'} ="14\tAlt Town\ttext\t";
$inputs{'altphone'} ="15\tAlt Phone\ttext\t";
$inputs{'categorycode'} ="16\tCategory\tselect".$catlist;
$inputs{'dateofbirth'} ="17\tDate of Birth\ttext\t";
$inputs{'contactname'} ="18\tContact Name\text\t";
$inputs{'borrowernotes'}="19\tNotes\ttextarea\t";
$inputs{'type'} ="20\t\thidden\tborrowers";
print mkform2('/cgi-bin/kumara/insertdata.pl',%inputs);
#print mktablehdr();
#print mktableft();