[Bio] / FigKernelScripts / make_assignments_fit_initial_css.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/make_assignments_fit_initial_css.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Fri May 6 18:41:04 2005 UTC revision 1.2, Fri May 6 19:04:14 2005 UTC
# Line 7  Line 7 
7  (  (
8   ($prefix = shift @ARGV) &&   ($prefix = shift @ARGV) &&
9   ($assF    = shift @ARGV) && open(ASSF,">$assF") &&   ($assF    = shift @ARGV) && open(ASSF,">$assF") &&
  (@ARGV > 0)  
10  )  )
11      || die $usage;      || die $usage;
12    
# Line 25  Line 24 
24      ($abbr,$role) = @{$roles[$i]};      ($abbr,$role) = @{$roles[$i]};
25      print "$abbr\t$role\n";      print "$abbr\t$role\n";
26  }  }
27    print "//\n";
28    
29  $/ = "\n";  $/ = "\n";
30    
31  while (defined($_ = <STDIN>) && ($_ !~ /^\/\//))  while (defined($_ = <STDIN>) && ($_ !~ /^\/\//))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3