(no commit message)

[edu/osp-wiki.git] / student / projects.pl

diff --git a/student/projects.pl b/student/projects.pl
index 81c988b0cd668aaae8b4ee28018f25305919fa4b..cc5821b86310911b07c30f8b68c1cb9a8d7b3846 100755 (executable)
--- a/student/projects.pl
+++ b/student/projects.pl
@@ -5,7 +5,7 @@ use Data::Dumper;
 my %projects;
 
 
-foreach my $year (qw/2010 2011 2012 2013/) {
+foreach my $year (qw/2010 2011 2012 2013 2014 2015/) {
     open LIST, "projects$year";
     while (<LIST>) {
        chomp;
@@ -22,7 +22,7 @@ foreach my $year (qw/2010 2011 2012 2013/) {
                    $project = $2;
                }
            }
-           if (/(Domovská stránka projektu|Project home ?page)[:* ]*<(.*)>/) {
+           if (/(Domovská stránka projektu|Project home ?page)[:* ]*<([^<>]*)>/) {
                $url = $2;
            }
            if (/\[\[!meta title="([^"]*)"\]\]/) {
@@ -40,7 +40,9 @@ foreach my $year (qw/2010 2011 2012 2013/) {
            $projects{$project}{'students'} = [];
        }
        my $p = $projects{$project};
-       $$p{'url'} = $url;
+       if (!$$p{'url'} or $url) {
+           $$p{'url'} = $url;
+       }
        push @{$$p{'students'}}, { 'file' => $file, 'name' => $name, 'year' => $year };
     }
 }