radio_group and colors

[Jerry Preston]

Hi!,

I have the following code:

print $query-radio_group( -name= 'repair_type',
   -values  = [ 'Service Contract',
'Other' ],
   -default = 'Service Contract',
   -rows= 1,
   -columns = 2
   -labels  = [ 'Service Contract',
'Other' ],
 );

On a blue screen and I want 'Service Contract', 'Other' to be display with
yellow characters.  How can I do this?

Thanks,

Jerry

RE: buttons groups

[Jerry Preston]

Sorry about that!!

group 1

print $query-button( -name='SysFail',
  -value='Failed in System',
);
print $query-button( -name='SysFail',
  -value='DOA',
);
print $query-button( -name='SysFail',
  -value='Diag Escape',
);

group 2

print $query-button( -name=Status,
  -value=GOOD',
);
print $query-button( -name=Status,
  -value='BAD',
);
print $query-button( -name='Status',
  -value='VERY_BAD',
);

group 3

print $query-submit( -name   = 'Submit',
  -value  = 'Send'
);
print $query-button( -name='PRINT',
  -value='Print',
);
print $query-reset;
print $query-submit( -name='QUIT',
  -value='Quit',
);

If I click a button in a group, the button in another group is un clicked.
How do you keep that from doing this?

Thanks,

Jerry



-Original Message-
From: [EMAIL PROTECTED] [mailto:Linux;onion.perl.org]On Behalf Of
zentara
Sent: Friday, November 08, 2002 6:14 AM
To: [EMAIL PROTECTED]
Subject: Re: buttons groups


On Thu, 7 Nov 2002 17:04:40 -0600, [EMAIL PROTECTED] (Jerry Preston)
wrote:

I have two groups of three buttons each and I want to but the on the same
screen, but they inter react with each other.  How do you keep them apart?

No one can help you unless you post the code which causes your problem.



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

buttons groups

[Jerry Preston]

Hi!

I have two groups of three buttons each and I want to but the on the same
screen, but they inter react with each other.  How do you keep them apart?

Thanks,

Jerry

Re: Need basic commands on perl programming

[Jerry Preston]

Reggy,

The first line is #!/usr/local/bin/perl.  You can add -w = warning or
-T = taint  (#!/usr/local/bin/perl -w)
Then you can add 'use strict'.

Jerry

reggy patagan wrote:

 Good day:

What are the basic comands in creating a perl
 programs, do i have to do it in a text editor or in a
 /usr/bin  directory where perl is installed.

I have a perl here with Version 5.6.0 and can you
 give me a simple program for just a guide?..

Thank you and more power.

  reggy

 __
 Do You Yahoo!?
 Send your FREE holiday greetings online!
 http://greetings.yahoo.com

 --
 To unsubscribe, e-mail: [EMAIL PROTECTED]
 For additional commands, e-mail: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

colors and blink

[Jerry Preston]

Hi,

I am not sure this falls under cgi, but I want to be able to wave text blink and 
different backgorund colors.

print brfont color=blueblinkTEST/blinkbrfont color=greenTESTbr;


One problem I have is that ALL the text blinks after the /blink

I no idea on how to do text background color.

Thanks for your help,

Jerry

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

CGI vars

[Jerry Preston]

Hi,

I setup a var to hold data:

  $name = $query-param('name');

I get a user input in a textfield.  

  print $query-popup_menu( -name='name',
-values  = $T_NAME{ \L$fab },
-default = ''
  );
I want to remove it

undef $name;
print $query-hidden( 'name', $name );

or 

   print $query-hidden( 'name',  );

I am unable to drop / delete / clear out the var name.

What am I doing wrong?

Thanks for your help,

Jerry

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

checkbot text field

[Jerry Preston]

Hi,

This works:

foreach $id ( keys %{ $actual_slots{ $wafer_id } } )  {
#print * id * $actual_slots{ $wafer_id }{ $id }* j *$j*br;
  if( !$table_file{ $Lot_Number }{ $j } ) {
$sw_array[ $j ] = $j;
$s = $lot_number_header$Lot_Number-$sw_array[ $j ];
my $checkbox = $query-checkbox( -name = $s,  -checked = 1 );
print tr
   th bgcolor=\cyan\
   td$checkbox/td
   /tr
;
$cnt++;
  }
}

  undef $All_Wafers_Tested;
  foreach $key ($query-param) {
undef $check_;
$check_ = $key if $key =~ $Lot_Number;
if( $check_ = 0 ) {
  ( $a1, $lot, $id ) = split( /-/, $check_ );
  $All_Wafers_Tested .= $id ;

}
  }

This seems to work, that is it pirnts to the screen:

  my @k = qw[ 0  5 10 15 20];
  my @f = qw[ 5 10 15 20 25];

  for( $j = 0; $j  25; $j++ ) {
$sw_array[ $j ] = $j+1;
  }
  for( $j = 0; $j  25; $j++ ) {
if( $sw_array[ $j ] = 0 ) {
  print bfont color=redifont size=+1$s/i/b;
  print $query-textfield( -name=$s, -size='2', length='3', -maxlength='2' );
  $t++;
}
if( $sw_array[ $j ] ) {
  if( $t == $f[ $i ] ) {
print brbr;
$i++;
  }
}
  }

This does not work:

 undef $All_Wafers_Tested;
  foreach $key ($query-param) {
undef $check_;
$check_ = $key if $key =~ /Slot/;
if( $check_ = 0 ) {
  $All_Wafers_Tested .= $check_ ;
}
  }

Any ideas?

Thanks,

Jerry

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

cookies

[Jerry Preston]

Hi!

I guess I am missing the boat.  I have read CGI::Cookie and played with the code, but 
I would think that I should be able to read the netscape cookies
file in by NT system.  My script is running on a unix server.  Is this possible.  I 
have tried to set a cookie and the read it,  no luck.  

print env $ENV{'HTTP_COOKIE'} br;


 $c = new CGI::Cookie( -name=  'Testing',
   -value   =  [ jwp, '[EMAIL PROTECTED]' ],
   -expires =  '+3M',
   -domain  =  '.xxx',
   -path=  '/'
   -secure  =  0
  );

  print Set-Cookie: $c\nbr;
  print $query-header(-cookie=$c);
  print Set-Cookie: ,$c-as_string,\nbr;

#Recovering Previous Cookies

 @defaults=$query-cookie('dm5apps.de.sc.ti.com');#'www.kitchenetc.com');

print brdefaults *@defaults*br;

 %cookies = fetch CGI::Cookie;
 foreach (keys %cookies) {
   print br$_ - ($cookies{$_})br;
 }

Thanks for YOUR help,

Jerry

Re: cookies

[Jerry Preston]

Bradley,

When I use:

 print br$_ -  . $cookie{$_}-value . br;

I get Can't call method value on an undefined value!

Any ideas?

Thanks,

Jerry

Bradley M. Handy wrote:
 
  -Original Message-
  From: Jerry Preston [mailto:[EMAIL PROTECTED]]
  Sent: Wednesday, July 11, 2001 7:29 AM
  To: cgi
  Subject: cookies
 
 
  Hi!
 
  I guess I am missing the boat.  I have read CGI::Cookie and
  played with the code, but I would think that I should be able to
  read the netscape cookies
  file in by NT system.  My script is running on a unix server.  Is
  this possible.  I have tried to set a cookie and the read it,  no luck.
 
  print env $ENV{'HTTP_COOKIE'} br;
 
 
   $c = new CGI::Cookie( -name=  'Testing',
 -value   =  [ jwp, '[EMAIL PROTECTED]' ],
 -expires =  '+3M',
 -domain  =  '.xxx',
 -path=  '/'
 -secure  =  0
);
 
print Set-Cookie: $c\nbr;
print $query-header(-cookie=$c);
print Set-Cookie: ,$c-as_string,\nbr;
 
  #Recovering Previous Cookies
 
   @defaults=$query-cookie('dm5apps.de.sc.ti.com');#'www.kitchenetc.com');
 
 The above line should be:
 @defaults = $query-cookie('Testing');  # always fetch a cookie with the
 name you gave it.
 
 
  print brdefaults *@defaults*br;
 
   %cookies = fetch CGI::Cookie;
   foreach (keys %cookies) {
 print br$_ - ($cookies{$_})br;
 
 The above line should be:
 print br$_ -  . $cookie{$_}-value . br;
 
 fetch CGI::Cookie returns a hash of CGI::Cookie objects with the key as the
 name of the cookie.
 
   }
 
  Thanks for YOUR help,
 
  Jerry