tel2 has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

I'm trying to use (Merlyn's Basic Cookie Management) script, but instead of having a Logout submit button (see line 72 of his code), I'd like to have a link.  Not sure if this is more a Perl question or HTML, but could someone please advise what code I might use to get a link to achieve the same functionality (not the same look, of course)?

Thanks.

Replies are listed 'Best First'.
Re: Link instead of Submit button?
by perl_lover (Chaplain) on Dec 17, 2010 at 05:17 UTC
    Change this line 
    print startform, hidden("_logout", 1), submit("Log out"), endform;

    [download]
    to 
    print startform, hidden("_logout", 1),a({-href=>'#',-onClick=>"documen
+t.forms[1].submit()"},"Submit"), endform;

    [download]


    use Perl;
    Perl4Everything
[reply]
[d/l]
[select]

      Why require Javascript when you can keep the functionality without Javascript? A plain <a href="..." link will be processed by CGI just the same:

      print qq{<a href="?_logout=1">Log out</a>}

      [download]
[reply]
[d/l]
[select]
        That was simpler than I thought.  Thanks Corion!
[reply]

      Hi perl_lover,

      Thanks for your prompt response.

      I copied & pasted the substitution you suggested, but I can't get it to work.  When I click the "Submit" link, it seems to do nothing, except append the URL with "#".

      Here's the expanded HTML of the original form (from Firefox's Page Source option):

      <form method="post" action="/cookie_test/cookie1.pl" enctype="applicat
+ion/x-www-form-urlencoded">
<input type="hidden" name="_logout" value="1"  /><input type="submit" 
+name="Log out" value="Log out" /></form>

      [download]

      And here's yours:

      <form method="post" action="/cookie_test/cookie2.pl" enctype="applicat
+ion/x-www-form-urlencoded">
<input type="hidden" name="_logout" value="1"  /><a onclick="document.
+forms[1].submit()" href="#">Submit</a></form>

      [download]

      Any ideas what's going wrong?

[reply]
[d/l]
[select]

        This is a simple HTML issue that you can debug yourself. Perl is only very remotely involved, as it generates the HTML.

        I suggest that you first debug your HTML issue by finding out what HTML needs to be generated, and only as a second step, add the necessary print statements to your script that print the HTML.

[reply]
        In your example there is only one form. Use this piece. It should work. 
        print startform, hidden("_logout", 1),a({-href=>'#',-onClick=>"documen
+t.forms[0].submit()"},"Submit"), endform;

        [download]


        use Perl;
        Perl4Everything
[reply]
[d/l]

Back to Seekers of Perl Wisdom