Subversion Repositories wimsdev

Rev

Rev 16711 | Rev 16724 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16711 Rev 16717
Line 1638... Line 1638...
1638
        if(cmd_type==cmd_new || cmd_type==cmd_renew) unlink(buf);
1638
        if(cmd_type==cmd_new || cmd_type==cmd_renew) unlink(buf);
1639
        exolog(buf);
1639
        exolog(buf);
1640
      }
1640
      }
1641
      /* for auto log of exercise in freework */
1641
      /* for auto log of exercise in freework */
1642
      if(freeworklogf[0]!=0) {
1642
      if(freeworklogf[0]!=0) {
-
 
1643
        char buf[MAX_FNAME+1],*sess,*varf,*varg,c;
1643
          mkdirs(freeworklogd); exolog(freeworklogf);
1644
        mkdirs(freeworklogd);
-
 
1645
        sess=getvar("wims_session");
-
 
1646
        mkfname(buf,"%s/%s/exolog",session_dir,sess);
-
 
1647
        varg=fopen(buf, "r");
-
 
1648
        if(varg!=NULL) {
-
 
1649
          varf=fopen(freeworklogf,"w");
-
 
1650
          while ( (c=getc (varg)) != EOF)
-
 
1651
            putc (c,varf);
-
 
1652
          fclose(varg);
-
 
1653
          fclose(varf);
-
 
1654
        }
1644
      }
1655
      }
1645
    }
1656
    }
1646
  }
1657
  }
1647
  if(var_def_buf) free(var_def_buf);
1658
  if(var_def_buf) free(var_def_buf);
1648
}
1659
}