File: finduserwork.proc

package info (click to toggle)
wims 2%3A4.29a%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 185,704 kB
  • sloc: xml: 366,687; javascript: 120,570; ansic: 62,341; java: 62,170; sh: 7,744; perl: 3,937; yacc: 3,217; cpp: 1,915; lex: 1,805; makefile: 1,084; lisp: 914; pascal: 601; python: 520; php: 318; asm: 7
file content (35 lines) | stat: -rw-r--r-- 1,217 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
!! find participant personnal work for the freework wims_read_parm
!!
!! entry wims_read_parm :
!! item 1 freework to search
!! item 2 participant login
!! output=date,time
!! userfileexists=1/0 1 if user as upload a file in one of the student zone
!! flistusersol= list of corrected file upload by supervisor

!! cfr. adm/class/freework/proc/findfile3.proc
!!
!! This file lists user deposits both for type=2 and for type=3

fw_=!item 1 of $wims_read_parm
user_=!item 2 of $wims_read_parm

listing_=!sh cd $wims_home/log/classes/$wims_class/freeworksdata/$fw_/work;\
list=`ls -d $(user_)-* $(user_).* 2>/dev/null`;\
if [ -n "$$list" ]; then for k in $$list; do stat --format="%y" $$k | awk -F"[ :]" '{b=$$1; gsub(/\-/,"",b); print b","$$2":"$$3}' ; done; fi;
listing_=!sh echo "$listing_" | sort;
!if $listing_!=$empty
  output=$(listing_[-1;])
!else
  output=0
!endif
userfile=!sh cd $wims_home/log/classes/$wims_class/freeworksdata/$fw_/work;\
ls -al $(user_)-file*/* 2>/dev/null;
!if $userfile!=$empty
  userfileexists=1
  flistusersol=!listfile $wims_home/log/classes/$wims_class/freeworksdata/$fw_/co/$(user_)-file
  flistusersol=!words2items $flistusersol
!else
  userfileexists=0
  flistusersol=$empty
!endif