---
name: "CGI::Extratags"
section: "3pm"
platform: "linux"
package: "libcgi-extratags-perl"
version: "0.03-1"
release: "Debian 8 (Jessie)"
platforms: ["linux"]
url: "https://new.carta.tech/CGI::Extratags"
---

# CGI::Extratags(3pm)

Useful Extensions for the CGI Module

## NAME

CGI::Extratags - Useful Extensions for the CGI Module

## SYNOPSIS

```
  use CGI::Extratags;
  $cgi = new CGI::Extratags;
```

```
  print $cgi -> email ('racke@linuxia.de');
```

```
  print $cgi -> jump ('CONTACT', 'contact us');
  print $cgi -> mark ('CONTACT', $cgi -> h2 ('How to contact us'));
```

```
  print $cgi -> row ('Date', 18, 1, 1966);
  print $cgi -> recall ('Debian CD', artnum => '0-123456');
```

## DESCRIPTION

CGI::Extratags adds several useful methods to the CGI class.

- email *ADDRESS*

  ```
    print $cgi -> email ('racke@linuxia.de');
  ```

  Produces HTML code for a link to an email *ADDRESS*.

- jump *MARK* *TEXT*

  ```
    print $cgi -> jump ('CONTACT', 'contact us');
  ```

  Produces HTML code for a link pointing to a target within the current document.

- mark *NAME* *TEXT*

  ```
    print $cgi -> mark ('CONTACT', $cgi -> h2 ('How to contact us'));
  ```

  Generates target *NAME* for hyperlinks.

- row \[*ITEM* ...\]

  ```
    print $cgi -> row ('Date', 18, 1, 1966);
  ```

  Produces HTML code for a table row with *ITEM* arguments as cell contents.

- recall *TEXT* \[*NAME* \[*VALUE*\]\] ...

  ```
    foreach my $num (sort (keys %artmap))
      {
          print $cgi -> recall ($artmap{$num}, artnum => $num);
          print $cgi -> br;
      }
  ```

  Produces a link to the script itself labeled with *TEXT*. The *NAME*/*VALUE* pairs will be passed as parameters.

## AUTHOR

Stefan Hornburg, racke@linuxia.de

## SEE ALSO

[*perl*(1)](/perl/1.md), *URI::Escape*(3), *CGI*(3).