#use wml::std::tags
#use wml::debian::common_tags


# creates a link given the parameters or returns "arch: N/A" or "arch: not fixed"
# if applicable
# if $stable = "none" then not fixed is sent
# if $stable = "" then not applicable is sent

<define-tag notneeded whitespace=delete>
  <gettext>not needed</gettext>
</define-tag>
<define-tag notavailable whitespace=delete>
  <gettext>not available</gettext>
</define-tag>
<define-tag notapplicable whitespace=delete>
  <gettext>N/A</gettext>
</define-tag>
<define-tag in1_1 whitespace=delete>
  <gettext>in release 1.1</gettext>
</define-tag>
<define-tag in1_3 whitespace=delete>
  <gettext>in release 1.3</gettext>
</define-tag>
<define-tag in2_0 whitespace=delete>
  <gettext>in release 2.0</gettext>
</define-tag>
<define-tag in2_1 whitespace=delete>
  <gettext>in release 2.1</gettext>
</define-tag>
<define-tag in2_2 whitespace=delete>
  <gettext>in release 2.2</gettext>
</define-tag>

<perl>

sub fixes_link 
{
  	my ( $release, $arch, $section, $package, $version ) = @_;

	if ( $release eq "not" )
	{
		$str = "<notneeded/>";
	}
	elsif ( $release eq "buzz" )
	{
		$str = "$arch - (<in1_1/>) $version";
	}
	elsif ( $release eq "bo" )
	{
		$str = "$arch - (<in1_3/>) $version";
	}
	elsif ( $release eq "hamm" )
	{
		$str = "$arch - (<in2_0/>) ";
		if ( $version eq "not" )
		{
			$str .= "<notapplicable/>";
		}
		elsif( $version eq "none" )
		{
			$str .= "<notavailable/>";
		}
		else
		{
			if ( $section eq "" )
			{
				$str .= "$version";
			}
			else
			{
				$str .= "<a href=\"https://packages.debian.org/stable/$section/$package\">";
				$str .= "$version</a>";
			}
		}
	}
	elsif ( $release eq "slink" )
	{
		$str = "$arch - (<in2_1/>) ";
		if ( $version eq "not" )
		{
			$str .= "<notapplicable/>";
		}
		elsif( $version eq "none" )
		{
			$str .= "<notavailable/>";
		}
		else
		{
			if ( $section eq "" )
			{
				$str .= "$package-$version";
			}
			else
			{
				$str .= "<a href=\"https://packages.debian.org/frozen/$section/$package\">";
				$str .= "$package-$version</a>";
			}
		}
	}
	elsif ( $release eq "potato" )
	{
		$str = "$arch - (<in2_2/>) ";
		if ( $version eq "not" )
		{
			$str .= "<notapplicable/>";
		}
		elsif( $version eq "none" )
		{
			$str .= "<notavailable/>";
		}
		else
		{
			if ( $section eq "" )
			{
				$str .= "$package-$version";
			}
			else
			{
				$str .= "<a href=\"https://packages.debian.org/unstable/$section/$package\">";
				$str .= "$package-$version</a>";
			}
		}
	}
	else
	{
		$str = '';
	}
	return $str;
}

</perl>