Subversion Repositories wimsdev

Rev

Rev 12057 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

!if $wims_supertype=2
        ltclassname=!sh cat $wims_home/log/classes/$wims_superclass/.subclasses | awk -F: '{print $$2}' | awk -F, '{print $$1","$$4}'
!endif

!if $wims_supertype=4
        ltclassname=!record 0 of wimshome/s2/$wims_session/ltclassname
        !if $ltclassname!=$empty
            test=!sh stat -c%Y $wims_home/log/classes/$wims_superclass/classes $wims_home/log/classes/$wims_superclass/levels $wims_home/log/classes/$wims_superclass/courses $wims_home/log/classes/$wims_superclass/programs $wims_home/log/classes/$wims_superclass/icourses | sort
            dtfile=!sh stat -c%Y $wims_home/s2/$wims_session/ltclassname
            dtsc=!line -1 of $test
            !if $dtfile > $dtsc
                !exit
            !endif
        !endif
        ltclassname=$empty
        list=classes,class\
levels,level\
courses,course\
programs,program\
icourses,icourse
        !for k=1 to 5
            tmp=!record 0 of wimshome/log/classes/$wims_superclass/$(list[$k;1])
            tmp=!linecnt $tmp
            !if $tmp>0
                    tmp=!sh cat $wims_home/log/classes/$wims_superclass/$(list[$k;1]) | awk -F, '{print "$wims_superclass/"$$1","$$3",$(list[$k;2])"}'
                ltclassname=!append line $tmp to $ltclassname
            !endif
        !next k
        !writefile wimshome/s2/$wims_session/ltclassname $ltclassname
!endif

Generated by GNU Enscript 1.6.5.90.