| # | 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 |