# | Line 46 | Line 46 | print <<"END"; | |
---|---|---|
46 | <a href="http://www.i-scream.org.uk"><img border="0" src="../i-scream.gif"></a> | |
47 | ||
48 | <h2>$heading</h2> | |
49 | – | <p> </p> |
49 | ||
50 | END | |
51 | ||
52 | print `$updatecmd`; | |
53 | ||
54 | < | my $modulelist = `ls $cvsroot`; |
54 | > | my($modulelist)=$query->param('module'); |
55 | > | $modulelist = `ls $cvsroot` unless defined $modulelist; |
56 | > | |
57 | my(@modules) = split (/\s+/, $modulelist); | |
58 | ||
59 | foreach my $module (@modules) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |