version 1.187, 2005/03/17 22:12:52
|
version 1.188, 2005/03/17 22:34:24
|
Line 486 ENDHEAD3
|
Line 486 ENDHEAD3
|
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
<b> |
<b> |
$lt{'sg'}: |
$lt{'sg'}: |
<input type="text" value="$csec" size="6" name="csec"> |
<input type="text" value="$csec" size="6" name="csec" /> |
<br> |
<br /> |
$lt{'fu'} |
$lt{'fu'} |
<input type="text" value="$uname" size="12" name="uname"> |
<input type="text" value="$uname" size="12" name="uname" /> |
$lt{'oi'} |
$lt{'oi'} |
<input type="text" value="$id" size="12" name="id"> |
<input type="text" value="$id" size="12" name="id" /> |
$lt{'ad'} |
$lt{'ad'} |
$chooseopt |
$chooseopt |
</b> |
</b> |
Line 797 sub assessparms {
|
Line 797 sub assessparms {
|
my $message=''; |
my $message=''; |
|
|
$csec=$ENV{'form.csec'}; |
$csec=$ENV{'form.csec'}; |
|
|
if ($udom=$ENV{'form.udom'}) { |
if ($udom=$ENV{'form.udom'}) { |
} elsif ($udom=$ENV{'request.role.domain'}) { |
} elsif ($udom=$ENV{'request.role.domain'}) { |
} elsif ($udom=$ENV{'user.domain'}) { |
} elsif ($udom=$ENV{'user.domain'}) { |
Line 902 sub assessparms {
|
Line 903 sub assessparms {
|
} |
} |
|
|
# --------------------------------------------------------- Get all assessments |
# --------------------------------------------------------- Get all assessments |
extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles); |
&extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles); |
|
|
$mapp{'0.0'} = ''; |
$mapp{'0.0'} = ''; |
$symbp{'0.0'} = ''; |
$symbp{'0.0'} = ''; |