PciIds/Html/Jump.pm

   1 use strict;
   2 use warnings;
   3 use base 'Exporter';
   4
   5 our @EXPORT = qw(&jumpWindow);
   6
   7 sub jumpWindow( $$ ) {
   8         my( $req, $args ) = @_;
   9         print "<form id='jump' class='jump' name='jump' method='POST' action='".buildExcept( 'action', $args )."?action=jump".( defined $args->{'action'} ? "?origin=".$args->{'action'} : "" )."'>\n";
  10         print "<p>\n";
  11         print "<input type='text' class='jump' name='where'><input type='submit' value='Jump'>\n";
  12         print "</form>\n";
  13 }