Rev 16130 | Rev 16647 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 16130 | Rev 16626 | ||
|---|---|---|---|
| Line 1021... | Line 1021... | ||
| 1021 | } |
1021 | } |
| 1022 | 1022 | ||
| 1023 | /* retain initializing parameters, for use in user references */ |
1023 | /* retain initializing parameters, for use in user references */ |
| 1024 | void set_init_parm(void) |
1024 | void set_init_parm(void) |
| 1025 | { |
1025 | { |
| 1026 | char *rq, rqv[MAX_LINELEN*2+2], *u, *sh, *seedr, *exotrymax |
1026 | char *rq, rqv[MAX_LINELEN*2+2], *u, *sh, *seedr, *exotrymax; |
| 1027 | char *shname; |
1027 | char *shname; |
| 1028 | int public_sheet; |
1028 | int public_sheet; |
| 1029 | 1029 | ||
| 1030 | if(isexam) return; |
1030 | if(isexam) return; |
| 1031 | force_setvar("wims_sheet",""); force_setvar("wims_exo",""); |
1031 | force_setvar("wims_sheet",""); force_setvar("wims_exo",""); |
| Line 1042... | Line 1042... | ||
| 1042 | in the var.def of the module to be used */ |
1042 | in the var.def of the module to be used */ |
| 1043 | seedr=getvar("seedrepeat"); |
1043 | seedr=getvar("seedrepeat"); |
| 1044 | force_setvar("wims_seed_repeat",seedr); |
1044 | force_setvar("wims_seed_repeat",seedr); |
| 1045 | exotrymax=getvar("exotrymax"); |
1045 | exotrymax=getvar("exotrymax"); |
| 1046 | force_setvar("wims_exotrymax",exotrymax); |
1046 | force_setvar("wims_exotrymax",exotrymax); |
| 1047 | /* get freework number*/ |
- | |
| 1048 | freework=getvar("freework"); |
- | |
| 1049 | /* my_debug("freework %i",freework);*/ |
- | |
| 1050 | force_setvar("wims_freework",freework); |
- | |
| 1051 | /* now determine the sheet number for user */ |
1047 | /* now determine the sheet number for user */ |
| 1052 | sh=getvar(ro_name[ro_worksheet]); if(sh==NULL) return; |
1048 | sh=getvar(ro_name[ro_worksheet]); if(sh==NULL) return; |
| 1053 | if(*sh=='P') {public_sheet=1; sh++;} |
1049 | if(*sh=='P') {public_sheet=1; sh++;} |
| 1054 | shname="sheet"; |
1050 | shname="sheet"; |
| 1055 | u=getvar("wims_user"); if(u==NULL) u=""; |
1051 | u=getvar("wims_user"); if(u==NULL) u=""; |
| Line 1611... | Line 1607... | ||
| 1611 | exolog(buf); |
1607 | exolog(buf); |
| 1612 | } |
1608 | } |
| 1613 | } |
1609 | } |
| 1614 | } |
1610 | } |
| 1615 | if(var_def_buf) free(var_def_buf); |
1611 | if(var_def_buf) free(var_def_buf); |
| 1616 | } |
- | |
| 1617 | - | ||
| 1618 | void my_debug(char*s,...) |
- | |
| 1619 | { |
- | |
| 1620 | va_list vp; |
- | |
| 1621 | char buf[MAX_LINELEN+1]; |
- | |
| 1622 | - | ||
| 1623 | va_start(vp,s); |
- | |
| 1624 | vsnprintf(buf,sizeof(buf),s,vp); |
- | |
| 1625 | va_end(vp); |
- | |
| 1626 | // better with zsh, but not always install |
- | |
| 1627 | call_sh("echo -n '%s' >> /home/svn/wims/tmp/debug",buf); |
- | |
| 1628 | } |
1612 | } |