Initial Swedish translation.

CVS version numbers

swedish/events/2004/0610-wizardsofos.wml: INITIAL -> 1.1 
swedish/legal/licenses/byclass.wml: INITIAL -> 1.1 
swedish/legal/licenses/bydate.wml: INITIAL -> 1.1 
swedish/legal/licenses/byname.wml: INITIAL -> 1.1

3 files changed, 75 insertions, 0 deletions

diff --git a/swedish/legal/licenses/byclass.wml b/swedish/legal/licenses/byclass.wml
new file mode 100644
index 00000000000..d484015d247
--- /dev/null
+++ b/swedish/legal/licenses/byclass.wml
@@ -0,0 +1,36 @@
+#use wml::debian::translation-check translation="1.3"
+<define-tag pagetitle>Debians licenssammanfattningar &ndash; sorterade enligt klass</define-tag>
+#use wml::debian::template title="<pagetitle>" GEN_TIME="yes"
+#use wml::debian::legal_lists
+
+<dls-lists-page-header />
+
+<h2>DLS &ndash; sorterade enligt licensklassificering</h2>
+
+<perl>
+    my %name = (
+                yes => [ '<headline-free/>', 'free' ],
+                no => [ '<headline-non-free/>', 'non-free' ],
+                'non-dist' => [ '<headline-non-dist/>', 'non-dist' ],
+                );
+foreach (qw( yes no non-dist )) {
+    my %str = get_alphabetical_list( "$_", 'list' );
+    my ( $toc, $content );
+    
+    if (scalar keys %str > 2) {
+        print "<h3><a id=\"$name{$_}[1]\">$name{$_}[0]</a></h3>";
+    }
+    foreach my $letter (sort keys %str) {
+        if (($letter eq 'foot') || ($letter eq 'head')) {
+            next;
+        }
+        if (scalar keys %str > 12) {
+            $toc .= " [&nbsp;<a href=\"#$letter\">$letter</a>&nbsp;]";
+            $content .= "<h4><a id=\"$letter\">$letter</a></h4>\n";
+            }
+        $content .= "$str{head}$str{$letter}$str{foot}\n";
+    }
+    print "<p>$toc</p>" if $toc;
+    print $content;
+}
+</perl>
diff --git a/swedish/legal/licenses/bydate.wml b/swedish/legal/licenses/bydate.wml
new file mode 100644
index 00000000000..d8457b52cff
--- /dev/null
+++ b/swedish/legal/licenses/bydate.wml
@@ -0,0 +1,13 @@
+#use wml::debian::translation-check translation="1.2"
+<define-tag pagetitle>Debians licenssammanfattningar &ndash; datumsortering</define-tag>
+#use wml::debian::template title="<pagetitle>" GEN_TIME="yes"
+#use wml::debian::recent_list
+#use wml::debian::legal_tags
+
+<dls-lists-page-header/>
+
+<h2>DLS &ndash; sorterade efter datum</h2>
+
+<:= get_recent_list( '.', '0', '$(ENGLISHDIR)/legal/licenses', 
+   'list', 'dls-.*' ) :>
+
diff --git a/swedish/legal/licenses/byname.wml b/swedish/legal/licenses/byname.wml
new file mode 100644
index 00000000000..ddab66cdeb6
--- /dev/null
+++ b/swedish/legal/licenses/byname.wml
@@ -0,0 +1,26 @@
+#use wml::debian::translation-check translation="1.3"
+<define-tag pagetitle>Debians licenssammanfattningar &ndash; bokstavsordning</define-tag>
+#use wml::debian::template title="<pagetitle>" GEN_TIME="yes"
+#use wml::debian::legal_lists
+
+<dls-lists-page-header />
+
+<h2>DLS &ndash; bokstavsordning</h2>
+
+<perl>
+    my %str = get_alphabetical_list( '', 'list' );
+my ( $toc, $content );
+
+foreach my $letter (sort keys %str) {
+    if (($letter eq 'foot') || ($letter eq 'head')) {
+        next;
+    }
+    if (scalar keys %str > 10) {
+        $toc .= " [&nbsp;<a href=\"#$letter\">$letter</a>&nbsp;]";
+        $content .= "<h3><a id=\"$letter\">$letter</a></h3>\n";
+    }
+    $content .= "$str{head}$str{$letter}$str{foot}\n";
+}
+print "<p>$toc</p>" if $toc;
+print $content;
+</perl>