Small update of the projects script to pare more student pages.

Signed-off-by: Pavel Pisa <pisa@cmp.felk.cvut.cz>

diff --git a/student/projects.pl b/student/projects.pl
index 81c988b0cd668aaae8b4ee28018f25305919fa4b..380c2559f3258c0e117cd5e9c52cc4a3c90b2663 100755 (executable)
--- a/student/projects.pl
+++ b/student/projects.pl
@@ -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 };
     }
 }