| … | |
… | |
| 3 | #################################################################### |
3 | #################################################################### |
| 4 | # Copyright @ 1995-1999 University of Rochester |
4 | # Copyright @ 1995-1999 University of Rochester |
| 5 | # All Rights Reserved |
5 | # All Rights Reserved |
| 6 | #################################################################### |
6 | #################################################################### |
| 7 | |
7 | |
|
|
8 | BEGIN { |
|
|
9 | my $useLibDir = '.'; |
|
|
10 | if ($0 =~ m|^(/.*)/|) { $useLibDir = $1; } |
|
|
11 | elsif ($0 =~ m|^(\..*)/|) { $useLibDir = $1; } |
|
|
12 | elsif ($0 =~ m|^(.+)/|) { $useLibDir = "./$1"; } |
|
|
13 | unshift @INC, $useLibDir; |
|
|
14 | } |
|
|
15 | |
| 8 | use lib '.'; use webworkInit; # WeBWorKInitLine |
16 | use webworkInit; # WeBWorKInitLine |
| 9 | |
17 | |
| 10 | # Called as |
18 | # Called as |
| 11 | # showDatabase.pl courseID |
19 | # showDatabase.pl courseID |
| 12 | |
20 | |
| 13 | use Global; |
21 | use Global; |
Parent Directory
| 
Revision Log
| 
Patch