Select Code to Download

#!/usr/bin/perl -w

...
    print join '', $spacer, ");\n";

}

    $f->readOnly($session{form}{cid},WebGUI::International::get(469,"W
+ebGUIProfile"));

                $f->readOnly(
                -name => $session{form}{cid},
        -label => WebGUI::International::get(469,
                -value => "WebGUIProfile",
                );