Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
...
$userid_1 = $manageusers::LoggedOn_user_id; <-------------------------
+--------
#$userid_1 = 110;
  2. or download this
    package manageusers;

...

  $VERSION = '0.0.1';
}
  3. or download this
        my $username1 = $session->param("user_id");
    warn("username1 : '$username1'");
    $LoggedOn_user_id = $username1;  
    warn("Already logged on LoggedOn_user_id : '$LoggedOn_user_id'");