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

Diff of /trunk/webwork/system/scripts/recoverDataSet.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## $Id$ 3## $Id$
4 4
5BEGIN {
6 my $useLibDir = '.';
7 if ($0 =~ m|^(/.*)/|) { $useLibDir = $1; }
8 elsif ($0 =~ m|^(\..*)/|) { $useLibDir = $1; }
9 elsif ($0 =~ m|^(.+)/|) { $useLibDir = "./$1"; }
10 unshift @INC, $useLibDir;
11}
12
5use lib '.'; use webworkInit; # WeBWorKInitLine 13use webworkInit; # WeBWorKInitLine
6use Global; 14use Global;
7 15
8# This file is recoverDataSet.pl 16# This file is recoverDataSet.pl
9 17
10 ## Takes two command line arguments. The first is the course name. The second 18 ## Takes two command line arguments. The first is the course name. The second

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

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9