[system] / trunk / webwork / system / scripts / deleteColumns.pl Repository:
ViewVC logotype

Diff of /trunk/webwork/system/scripts/deleteColumns.pl

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

Revision 69 Revision 70
1#!/usr/local/bin/webwork-perl 1#!/usr/local/bin/webwork-perl
2 2
3 3
4BEGIN {
5 my $useLibDir = '.';
6 if ($0 =~ m|^(/.*)/|) { $useLibDir = $1; }
7 elsif ($0 =~ m|^(\..*)/|) { $useLibDir = $1; }
8 elsif ($0 =~ m|^(.+)/|) { $useLibDir = "./$1"; }
9 unshift @INC, $useLibDir;
10}
11
4use lib '.'; use webworkInit; # WeBWorKInitLine 12use webworkInit; # WeBWorKInitLine
5use Global; 13use Global;
6 14
7 15
8# This file is deleteColumns.pl 16# This file is deleteColumns.pl
9 17

Legend:
Removed from v.69  
changed lines
  Added in v.70

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9