View of /trunk/webwork/system/scripts/appendDataSet.pl

    1 #!/usr/local/bin/webwork-perl
    2 
    3 ## $Id$
    4 
    5 use lib '.'; use webworkInit; # WeBWorKInitLine
    6 use Global;
    7 
    8 # This file is  appendDataSet.pl
    9 
   10     ## Takes three command arguments. The first is the classID.
   11   ## The second is the filename (without the extension)
   12     ## of the database to be appended. The third  is the filename (without the
   13     ## extension) of the cummulative database.
   14   ## E.g. appendDataSet.pl demoCourse dbfile appenddbfile
   15 
   16   ## Note: warning messages given by -w switch can safely be ignored AKP 8/20/96
   17 
   18 if (@ARGV != 3)
   19   {print "\nSyntax is appendDataSet.pl courseID  dataSetToBeAppended cummulativeDataSet\n";
   20    print "File names are entered with or without the extension, e.g. enter s7scr or s7scr.csv \n";
   21    print "      (e.g. appendDataSet.pl MTH140A s7scr 140atotal ) \n\n";
   22    exit(0);
   23   }
   24 
   25 my($courseID, $fileName1, $fileName2)=@ARGV;
   26 $scriptDirectory   = $Global::scriptDirectory;
   27 &Global::getCourseEnvironment($courseID);
   28 $databaseDirectory = $Global::databaseDirectory;
   29 
   30 $fileName1 =~ s/\.$Global::dat$//;  ## remove dat extension if present
   31 $fileName2 =~ s/\.$Global::dat$//;  ## remove dat extension if present
   32 
   33 require "${scriptDirectory}$Global::DBglue_pl";
   34 require "${scriptDirectory}$Global::FILE_pl";
   35 require "${scriptDirectory}$Global::SCRtools_pl";
   36 require "${scriptDirectory}FILE.pl";
   37 
   38 
   39 
   40 &append_score_db($fileName2,$fileName1);