locallib.php 329 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001
  1. <?php
  2. /**
  3. * This class provides all the functionality for an ia (interactive activities).
  4. *
  5. * Release Notes:
  6. * - v 4.9.3 2020/01/16
  7. * + Several fixes to allow to move activities in a block and improvements in repository
  8. *
  9. * - v 4.9.2 2019/03/13
  10. * + Several fixes to allow iLM under HTML stack
  11. *
  12. * - v 4.9.1 2017/11/02
  13. * + Fixed a bug with iGeom script - the view was not loading the CEO with activity (resulting in an error "Erro ao gravar na base de dados")
  14. * + function view_iassign_current(): it were inserted 2 'if(substr($ilm_name,0,5)=="igeom") if($iassign_statement_activity_item->special_param1==1) $lTA=true;' to call '$ilm->view_iLM(...lTA)'
  15. *
  16. * - v 4.9 2017/03/13
  17. * + Great number of changes to allow the use o iVProgH5 (e.g. function changed: from 'applet_ilm' to 'build_ilm_tags')
  18. *
  19. * - v 4.8 2016/05/12
  20. * + Function add_to_log() is deprecated it was then rewritten to the new events API
  21. * + Resolved: the field "description" table "iassign_ilm" was being filled with the codes in HTML when importing magnet package and
  22. * due to this the language field was not being displayed because in place of the quotes was recorded in the & quot field.
  23. * ("$description_str = htmlentities(str_replace(array('<description>','</description>'), array('',''), $application_xml->description->asXML()));"
  24. * replaced by
  25. * "description_str = str_replace(array('<description>','</description>'), array('',''), $application_xml->description->asXML());")
  26. * - v 4.7 2016/02/17
  27. * + Moodle 3.X: now iAssign is working fine under version 3.X (iassign/version.php: '$module->' changed to '$plugin->'; iassign/locallib.php: 'format_text(...)' replaced 'filter_text(...)')
  28. * + Improved: now is possible to see the iGeom menus in preview (from iAssign Repository) - it depends on the version 1.3 of iAssign filter!
  29. * + Improved: new names for 'form.input.MA_POST_Archive' and 'form.input.MA_POST_Value', now: 'iLM_PARAM_ArchiveContent' and 'iLM_PARAM_ActivityEvaluation'
  30. * + BUG fixed: now it is fine the "online" edition of activities (in iAssign Repository) - inserted 'iLM_PARAM_Authoring' (iLM 2) and 'MA_POST_ArchiveTeacher' (iLM 1)
  31. * + BUG fixed: it is possible to change the name of any file in iAssign Repository - problems was in 'optional_param(...)', 'PARAM_TEXT' replaced 'PARAM_ALPHANUMEXT'
  32. * + BUG fixed: it is possible to duplicate any file in iAssign Repository - problems also in 'optional_param(...)', 'PARAM_TEXT' replaced 'PARAM_ALPHANUMEXT'
  33. * + BUG fixed: now is possible to edit an iAssign activity with no new object been created (in iGeom: turn an example in exercise)
  34. *
  35. * --------------- (code bellow was used at our MOOC 2014)
  36. * - v 4.6 2014/02/25
  37. * + Fix bugs in filter function for open applets.
  38. * - v 4.5 2014/02/24
  39. * + Fix bugs in params.
  40. * + Insert new param type.
  41. * - v 4.4 2014/01/24
  42. * + Allow select type of params.
  43. * + Insert the use of applet params specific for activities.
  44. * - v 4.3 2014/01/23
  45. * + Insert function for move activities for other iLM (ilm_settings::confirm_move_iassign, ilm_settings::move_iassign).
  46. * - v 4.2 2016/02/13
  47. * + Fixed API usage to work fine under Moodle 3.X: ilm_editor_new()
  48. * --------------- (above code used at our MOOC 2014)
  49. *
  50. * - v 4.1 2013/12/13
  51. * + Insert log in iAssign actions.
  52. * + Allow use the language in iLM description (ilm_settings::new_file_ilm, ilm_settings::new_ilm, ilm_settings::edit_ilm, ilm_settings::copy_new_version_ilm, ilm_settings::add_edit_copy_ilm, iassign_language::get_description_lang, iassign_language::get_all_lang).
  53. * + Insert class for Log actions in system.
  54. * - v 4.0 2013/10/31
  55. * + Insert support of export iLM in zip packages (ilm_settings::export_ilm).
  56. * + Insert support of import iLM from zip packages (ilm_settings::import_ilm).
  57. * + Fix bugs in message alert in iassign title and remove message alert of the description by cache error.
  58. * - v 3.9 2013/10/25
  59. * + Insert support of upgrade iLM.
  60. * + Insert support for more than one extension in iLM.
  61. * + Fix bugs in verion control.
  62. * - v 3.8 2013/09/19
  63. * + Get data of general fields in iassign statement table (iassign::add_edit_iassign).
  64. * - v 3.7 2013/09/12
  65. * + Change tag APPLET in all functions of module (ilm::view_iLM, ilm_manager::ilm_editor_new, ilm_manager::ilm_editor_update).
  66. * + Insert tool for manage aditional params for iLM (ilm_settings::add_edit_copy_param, ilm_settings::visible_param, ilm_settings::add_param, ilm_settings::edit_param, ilm_settings::copy_param, ilm_settings::delete_param).
  67. * - v 3.6 2013/09/05
  68. * + Insert function ilm_settings::applet_ilm for create APPLET html tag.
  69. * + Insert function ilm_settings::applet_filetime for get modified date of iLM file.
  70. * + Change tag APPLET in function ilm_settings::view_ilm.
  71. * - v 3.5 2013/08/26
  72. * + Fix bug in download package iassign without answers (iassign::report).
  73. * - v 3.4 2013/08/23
  74. * + Fix bug in export package iassign.
  75. * - v 3.3 2013/08/22
  76. * + Insert functions for export users answer in iassign (iassign::export_file_answer, iassign::export_package_answer, iassign::view_iassign_current, iassign::report).
  77. * + Insert function for rename iassign file (ilm_manager::rename_file_ilm, ilm_manager::view_files_ilm).
  78. * - v 3.2 2013/08/21
  79. * + Change title link with message for get file for donwload file (ilm_manager::view_files_ilm).
  80. * + Change functions for import files for ilm_manager.php.
  81. * + Create static utils class for functions system utils (iassign_utils::format_filename, iassign_utils::version_filename).
  82. * - v 3.1 2013/08/15
  83. * + Change return file selected (ilm_manager::add_ilm).
  84. * + Insert functions for import files, export files and remove selected files (ilm_manager::view_files_ilm, ilm_manager::import_files_ilm, ilm_manager::export_files_ilm, ilm_manager::delete_selected_ilm).
  85. * - v 3.0 2013/08/02
  86. * + Insert link for view informations of iLMs in teacher view, same screen of admin view but wiht some features hide (ilm_settings::list_ilm, ilm_settings::view_ilm, iassign::view_iassigns).
  87. * - v 2.9 2013/08/01
  88. * + Fix bugs in functions ilm_settings::new_file_ilm, ilm_settings::copy_new_version_ilm, ilm_settings::add_edit_copy_ilm.
  89. * - v 2.8 2013/07/25
  90. * + Insert the activity name in header of view (activity::view_dates).
  91. * + Set function default iLM in view iLMs versions (ilm_settings::default_ilm and ilm_settings::confirm_default_ilm).
  92. * - v 2.7 2013/07/24
  93. * + Create link previous and next for student view in one activity (activity::view_dates).
  94. * + Fix bugs for view error in iLM not on DB in function iassign::view_iassign_current.
  95. * - v 2.6 2013/07/23
  96. * + Fix bugs for view files in function ilm_manager::view_files_ilm.
  97. * + Fix bugs for comment on teacher view in function iassign::view_iassign_current.
  98. * - v 2.5 2013/07/12
  99. * + Change iLM settings for accept versions (ilm_settings::new_file_ilm, ilm_settings::new_ilm, ilm_settings::edit_ilm, ilm_settings::copy_new_version_ilm).
  100. * + Insert new informations in iLMs table: created date, modified date, author, version, modified date of JAR (ilm_settings::view_ilm).
  101. * + Added support for PHP 7.0 Constructors and fallback for previous Moodle Versions (<3.1) - Márcio
  102. *
  103. * @author Patricia Alves Rodrigues
  104. * @author Leônidas O. Brandão
  105. * @contributor Igor Moreira Félix (2018-)
  106. * @contributor Márcio de Lima Passos (2014)
  107. * @version v 4.9.2 2019/03/13
  108. * @version v 4.8 2016/05/12
  109. * @package mod_iassign_lib
  110. * @since 2010/09/27
  111. * @copyright iMath (http://www.matematica.br) and LInE (http://line.ime.usp.br) - Computer Science Dep. of IME-USP (Brazil)
  112. *
  113. * <b>License</b>
  114. * - http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  115. */
  116. //TODO Review: eliminate iLM JAR under MoodleData? It is necessary to HTML5 packages (like iVProgH5), anyway
  117. //TODO Whenever under HTTPS, verify if MoodleData is working, if it is not, please use iLM JAR under WWW setting $CONF_WWW = 1
  118. //TODO (under HTTPS could fail 'pluginfile', like 'https://saw.atp.usp.br/pluginfile.php/1/mod_iassign/ilm/182563135/iassign/ilm/igeom/5920/iGeom.jar"'
  119. $CONF_WWW = 1; //TODO get iLM (JAR) from WWW, avoiding MoodleData
  120. /**
  121. * Standard base class for all iAssign
  122. */
  123. class iassign {
  124. var $cm;
  125. var $course;
  126. var $iassign;
  127. var $striassign;
  128. var $striassigns;
  129. var $context;
  130. var $activity;
  131. var $iassign_up;
  132. var $iassign_down;
  133. var $action;
  134. var $iassign_submission_current;
  135. var $userid_iassign;
  136. var $bottonPost;
  137. var $write_solution;
  138. var $view_iassign;
  139. // 3.1 update PHP 7.0 compatibility for all moodle versions
  140. //D public function iassign($iassign, $cm, $course) { self::__construct($iassign, $cm, $course); }
  141. /// Constructor for the base iassign class
  142. // @calledby ./mod/iassign/view.php : $iassigninstance = new iassign($iassign, $cm, $course)
  143. // @calledby ./mod/iassign/grade.php : $iassigninstance = new iassign($iassign, $cm, $course);
  144. // @calledby ./mod/iassign/renderer.php : return $this->render(new iassign_files($context, $itemid, $filearea));
  145. function __construct ($iassign, $cm, $course) {
  146. global $COURSE, $CFG, $USER, $DB;
  147. $botton = optional_param('botton', NULL, PARAM_TEXT);
  148. $this->userid_iassign = optional_param('userid_iassign', 0, PARAM_INT);
  149. if (!is_null($botton))
  150. $USER->iassignEdit = $botton;
  151. // The Moodle function 'optional_param(...)' allow to filter GET parameters over a click that launches, e.g., './mod/iassign/view.php&userid_iassign=6'
  152. // If "$var1 = optional_param('userid_iassign', 'NOT', PARAM_TEXT);", $var1 will be set to 6 (if 'userid_iassign' is not present, $var1 will be set to 'NOT'
  153. $this->iassign_up = optional_param('iassign_up', 0, PARAM_INT); // if parameter 'iassign_up' does not exists or it is not integer => use 0 as "default"
  154. $this->iassign_down = optional_param('iassign_down', 0, PARAM_INT);
  155. $this->iassign_submission_current = optional_param('iassign_submission_current', 0, PARAM_INT);
  156. $this->write_solution = optional_param('write_solution', 0, PARAM_INT);
  157. $this->action = optional_param('action', NULL, PARAM_TEXT);
  158. $this->cm = $cm;
  159. $this->context = context_module::instance($this->cm->id);
  160. if (!has_capability('mod/iassign:evaluateiassign', $this->context, $USER->id))
  161. $this->userid_iassign = $USER->id;
  162. if ($course) {
  163. $this->course = $course;
  164. }
  165. else if ($this->cm->course == $COURSE->id) {
  166. $this->course = $COURSE;
  167. }
  168. else if (!$this->course = $DB->get_record('course', array('id' => $this->cm->course))) {
  169. print_error('invalidid', 'iassign');
  170. }
  171. $this->coursecontext = context_course::instance($this->course->id);
  172. if ($iassign) {
  173. $this->iassign = $iassign;
  174. }
  175. else if (!$this->iassign = $DB->get_record('iassign', array('id' => $this->cm->instance))) {
  176. print_error('invalidid', 'iassign');
  177. }
  178. $USER->context = context_module::instance($this->cm->id);
  179. $USER->cm = $this->cm->id;
  180. $this->iassign->cmidnumber = $this->cm->idnumber; // compatibility with modedit ia obj
  181. $this->iassign->courseid = $this->course->id; // compatibility with modedit ia obj
  182. $this->context = context_module::instance($this->cm->id);
  183. $this->striassign = get_string('modulename', 'iassign');
  184. $this->striassigns = get_string('modulenameplural', 'iassign');
  185. $this->return = $CFG->wwwroot . "/mod/iassign/view.php?id=" . $this->cm->id;
  186. $this->bottonPost = 0;
  187. $this->view_iassign = optional_param('action', false, PARAM_BOOL);
  188. $this->activity = new activity(optional_param('iassign_current', NULL, PARAM_TEXT));
  189. $this->view();
  190. } // function __construct($iassign, $cm, $course)
  191. /// Show iAssign by using the security filter (temporary data on '*_iassign_security')
  192. // This method provides the page to view each iLM with any interactive activity
  193. // @calledby view.php : $iassigninstance->view($id); that instantiate 'iassign' (constructor above)
  194. function view () { // This is an standard function for each iAssign instance (to not use parameters, it is ignored)
  195. global $USER, $DB, $OUTPUT;
  196. // $iassign_statementid = $this->iassign->iassign_statementid;
  197. if ($this->activity!=null && $this->activity->get_activity()!=null && isset($this->activity->get_activity()->id))
  198. $iassign_statementid = $this->activity->get_activity()->id;
  199. else
  200. $iassign_statementid = "";
  201. // '$this' has : iassign Object = cm ; course ; iassign ; striassign ; striassigns ; context ; activity ; iassign_up ; iassign_down ; action ; ... ; coursecontext ; return
  202. // If this user has no capability to View 'iassign': stop here
  203. require_capability('mod/iassign:view', $this->context);
  204. // Trigger module view event
  205. $event = \mod_iassign\event\course_module_viewed::create(array(
  206. 'objectid' => $this->iassign->id,
  207. 'context' => $this->context
  208. ));
  209. $event->add_record_snapshot('course', $this->course);
  210. $event->trigger();
  211. if ($this->action) { // when student do/redo activity or teacher see student solution
  212. $this->action(); // calls '$this->view_iLM();'
  213. }
  214. else {
  215. print $OUTPUT->header();
  216. $this->view_iassigns(); // show the iLM with the content
  217. print $OUTPUT->footer();
  218. }
  219. // Security: delete all records with an error loading iLM - 'iassign_security : id iassign_statementid userid file timecreated view'
  220. //D $DB->delete_records("iassign_security", array("userid" => $USER->id, "view" => 1));
  221. //D $iassign_iLM_security = $DB->get_record("iassign_security", array("iassign_statementid" => $iassign_statementid));
  222. //D foreach ($iassign_iLM_security as $item) { echo $iassign_iLM_security->id . " ; " . $iassign_iLM_security->iassign_statementid . " ; " . $iassign_iLM_security->userid . " ; " . $iassign_iLM_security->timecreated . " ; " . $iassign_iLM_security->view . " ; " . $iassign_iLM_security->file . "<br/>\n" }
  223. $DB->delete_records("iassign_security", array("userid" => $USER->id, "iassign_statementid" => $iassign_statementid));
  224. //D $iassign_iLM_security = $DB->get_record("iassign_security", array("iassign_statementid" => $iassign_statementid));
  225. //D if ($iassign_iLM_security) foreach ($iassign_iLM_security as $item) { echo $iassign_iLM_security->id . " ; " . $iassign_iLM_security->iassign_statementid . " ; " . $iassign_iLM_security->userid . " ; " . $iassign_iLM_security->timecreated . " ; " . $iassign_iLM_security->view . " ; " . $iassign_iLM_security->file . "<br/>\n" }
  226. //D else echo "Apagou!<br/>";
  227. die();
  228. } // function view()
  229. /// Execute the action from Moodle (move, make visible, register the exercise (teacher) or its answer (learner)...)
  230. function action () {
  231. global $USER;
  232. // action:
  233. // up - move up activity (mover atividade para cima)
  234. // down - move down activity (mover atividade para baixo)
  235. // visible - view/hide activity (exibir/ocultar atividade)
  236. // delete - delete activity (excluir atividade)
  237. // deleteyes - confirms exclusion of activity (confirma exclusão de atividade)
  238. // deleteno - does not erase activity (não apaga atividade)
  239. // add - add activity (adicionar atividade)
  240. // edit - edit activity (modificar atividade)
  241. $action_iassign = array(
  242. 'newcomment' => '$this->get_answer();',
  243. 'view' => '$this->view_iassign_current();',
  244. 'get_answer' => '$this->get_answer();',
  245. 'repeat' => '$this->view_iassign_current();',
  246. 'overwrite' => '$this->get_answer();',
  247. 'stats_student' => '$this->stats_students();',
  248. 'download_answer' => '$this->export_file_answer();',
  249. 'download_all_answer' => '$this->export_package_answer();');
  250. $action_iassign_limit = array(
  251. 'view' => '$this->view_iassign_current();',
  252. 'newcomment' => '$this->get_answer();',
  253. 'viewsubmission' => '$this->view_iassign_current();',
  254. 'edit_status' => '$this->edit_status();',
  255. 'edit_grade' => '$this->edit_grade();',
  256. 'export_csv' => '$this->export_csv();',
  257. 'report' => '$this->report();',
  258. 'print' => '$this->report();',
  259. 'stats' => '$this->stats();',
  260. 'printstats' => '$this->stats();');
  261. $restricted = array('firstdown' => '$this->activity->move_iassign("firstdown", $this->iassign_down, $this->return);',
  262. 'up' => '$this->activity->move_iassign("up", $this->iassign_up, $this->return);',
  263. 'down' => '$this->activity->move_iassign("down", $this->iassign_down, $this->return);',
  264. 'visible' => '$this->activity->visible_iassign($this->return);',
  265. 'delete' => '$this->activity->delete($this->return);',
  266. 'deleteno' => '$this->return_home_course("confirm_not_delete_iassign");',
  267. 'deleteyes' => '$this->activity->deleteyes($this->return, $this);',
  268. 'add' => '$this->add_edit_iassign();',
  269. 'edit' => '$this->add_edit_iassign();',
  270. 'get_answer' => '$this->get_answer();',
  271. 'duplicate_activity' => '$this->duplicate_activity();',
  272. 'move_activity' => '$this->move_activity();',
  273. 'auto_evaluate' => '$this->auto_evaluate();');
  274. $action_iassign_restricted = array_merge($restricted, $action_iassign_limit, $action_iassign);
  275. // On depends the user's capability: precedence to edit power ('editiassign'); after to analyse ('evaluateiassign'); otherwise only view (any other).
  276. if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) { //xxxxxxxxxxxxxxxxxxxxxxxxxxx
  277. // When teacher is seeing student solution. By 'viewsubmission' goes to the function 'view_iassign_current()'
  278. eval($action_iassign_restricted[$this->action]); // Now load 'view_iassign_current()' with 'viewsubmission' or 'new_iassign($param)' by '$this->add_edit_iassign()'
  279. }
  280. elseif (has_capability('mod/iassign:evaluateiassign', $this->context, $USER->id)) {
  281. eval($action_iassign_limit[$this->action]);
  282. }
  283. else { // Student reaches this point
  284. // When student do/redo activity: do => action = "view"; redo => action = "repeat"
  285. // Arrive here with: "get_answer"; "view"
  286. if (isset($action_iassign[$this->action])) // avoid error if non capable user try direct acess
  287. eval($action_iassign[$this->action]); // Now load 'view_iassign_current()' with 'view'
  288. }
  289. } // function action()
  290. /// This method runs activities auto evaluation in teacher area
  291. function auto_evaluate () {
  292. global $COURSE, $CFG, $USER, $DB, $OUTPUT;
  293. if (!has_capability('mod/iassign:runautoevaluate', $USER->context, $USER->id))
  294. exit;
  295. print $OUTPUT->header();
  296. print $OUTPUT->footer();
  297. }
  298. /// This method moves an iAssign activity
  299. function move_activity () {
  300. global $USER, $CFG, $DB, $COURSE;
  301. $iassign_id = optional_param('iassign_current', NULL, PARAM_TEXT);
  302. $iassign_destiny = optional_param('iassign_destiny', NULL, PARAM_TEXT);
  303. $update_entry_new_iassign = new stdClass();
  304. $update_entry_new_iassign->id = $iassign_id;
  305. $update_entry_new_iassign->iassignid = $iassign_destiny;
  306. // Update the iassign_statement
  307. $DB->update_record("iassign_statement", $update_entry_new_iassign);
  308. // Update file context
  309. $c_i = context_module::instance($this->cm->id);
  310. $ret = get_coursemodule_from_id("iassign", $c_i->instanceid);
  311. $course_module_info = $DB->get_record("course_modules", array("course" => $COURSE->id, "module" => $ret->module, "instance" => $iassign_destiny));
  312. $path_module = context_course::instance($COURSE->id);
  313. $context_file = $DB->get_record_sql('SELECT * FROM {context} WHERE instanceid="' . $course_module_info->id . '" AND path like "'.$path_module->path.'%"');
  314. if ($context_file) {
  315. $id_context = $context_file->id;
  316. $iassign_statement = $DB->get_record("iassign_statement", array("id" => $iassign_id));
  317. $fs = get_file_storage(); // Get reference to all files in Moodle data
  318. $files = $fs->get_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $iassign_statement->file);
  319. foreach ($files as $value) {
  320. if ($value->get_filename() != ".") {
  321. $last_id = $DB->get_record_sql('SELECT itemid FROM {files} WHERE component="mod_iassign" ORDER BY itemid DESC LIMIT 1')->itemid;
  322. $newfile = $fs->create_file_from_storedfile(array('contextid' => $id_context, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => ($last_id + 1)), $value);
  323. $updateentry = new stdClass();
  324. $updateentry->id = $iassign_id;
  325. $updateentry->file = $newfile->get_itemid();
  326. $DB->update_record("iassign_statement", $updateentry);
  327. $fs->delete_area_files(context_module::instance($this->cm->id)->id, 'mod_iassign', 'exercise', $value->get_itemid());
  328. break;
  329. }
  330. }
  331. }
  332. $this->return_home_course('moved_activity');
  333. exit;
  334. }
  335. /// This method duplicates an iAssign activity
  336. function duplicate_activity () {
  337. global $USER, $CFG, $COURSE, $DB, $OUTPUT;
  338. $id = $this->cm->id;
  339. $iassignid = optional_param('iassign_current', NULL, PARAM_TEXT);
  340. $context = context_module::instance($this->cm->id);
  341. $contextuser = context_user::instance($USER->id);
  342. // Get the the iAssign acitivity to be duplicated
  343. $iassign_statement = $DB->get_record("iassign_statement", array("id" => $iassignid));
  344. // Remove the current id of activity
  345. $iassign_statement->id=0;
  346. // Get the information about current author, and add this information in author_modified field
  347. $author = $DB->get_record("user", array('id' => $USER->id));
  348. $iassign_statement->author_modified_name = $author->firstname . '&nbsp;' . $author->lastname;
  349. $iassign_statement->author_modified = $iassign_statement->author_modified_name;
  350. // Store the activity in the table
  351. if ($id_ = $DB->insert_record("iassign_statement", $iassign_statement)) {
  352. // Duplicate activity file
  353. $fs = get_file_storage(); // Get reference to all files in Moodle data
  354. $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement->file);
  355. foreach ($files as $value) {
  356. if ($value->get_filename() != ".") {
  357. $last_id = $DB->get_record_sql('SELECT itemid FROM {files} WHERE component="mod_iassign" ORDER BY itemid DESC LIMIT 1')->itemid;
  358. $newfile = $fs->create_file_from_storedfile(array('contextid' => $context->id, 'component' => 'mod_iassign', 'filearea' => 'exercise', 'itemid' => ($last_id + 1)), $value);
  359. $updateentry = new stdClass();
  360. $updateentry->id = $id_;
  361. $updateentry->file = $newfile->get_itemid();
  362. // Update the duplicated iLM iAssign with new file id
  363. $DB->update_record("iassign_statement", $updateentry);
  364. }
  365. }
  366. }
  367. // log event --------------------------------------------------------------------------------------
  368. iassign_log::add_log('duplicate_iassign_exercise', 'name: ' . $author->firstname, $id_, $this->cm->id);
  369. $this->return_home_course('duplicated_activity');
  370. exit;
  371. }
  372. /// This method gets the content from the iLM and register it
  373. // It could be the "exercise template" (teacher) or an answer (student)
  374. function get_answer () {
  375. global $USER, $CFG, $DB, $OUTPUT;
  376. $id = $this->cm->id;
  377. $submission_comment = optional_param('submission_comment', NULL, PARAM_TEXT);
  378. $comment = false;
  379. if ($submission_comment)
  380. $comment = $this->write_comment_submission();
  381. // receives data of iLM using the current activity
  382. $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $this->activity->get_activity()->iassign_ilmid)); // has automatic evaluation?
  383. $iassign = $DB->get_record("iassign", array("id" => $this->activity->get_activity()->iassignid)); // activity
  384. // receives data of submission of current activity
  385. $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $this->activity->get_activity()->id, "userid" => $this->userid_iassign)); // data about student solution
  386. // receives post and get
  387. $iLM_PARAM_ActivityEvaluation = optional_param('iLM_PARAM_ActivityEvaluation', 0, PARAM_INT); // 1 - activity evaluated as correct / 0 - activity evaluated as incorrect
  388. $iLM_PARAM_RealGrade = optional_param('iLM_PARAM_RealGrade', 0, PARAM_FLOAT);
  389. //2016/02/16: IMPORTANTE trocar formatador para "nao formatado", pois esta destruindo o conteudo do arquivo
  390. $iLM_PARAM_ArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_RAW); // answer file (ATTENTION: do not change format, use RAW in order to ensure the correct content)
  391. $MA_POST_Info = optional_param('MA_POST_Info', NULL, PARAM_FORMAT);
  392. $MA_POST_SystemData = optional_param('MA_POST_SystemData', NULL, PARAM_FORMAT);
  393. $return_get_answer = optional_param('return_get_answer', 0, PARAM_INT);
  394. $msg = '';
  395. // Feedback
  396. // Activity status: 0 => not post 1; => post; 2 => evaluated as incorrect; 3 => evaluated as correct
  397. $str_action = "view"; // repeat
  398. if (strtolower($iassign_ilm->name) == "igeom") {
  399. }
  400. $title = get_string('evaluate_iassign', 'iassign');
  401. print $OUTPUT->header();
  402. print $OUTPUT->box_start();
  403. // Action = { view ; repeat ; viewsubmission }
  404. // * 'view' => it is impossible to re-send answer (this is correct with iGeom because its model to ensure security - do not allow the learner's access to the "answer model")
  405. // * 'repeat' => student explicitly requested to redo the activiy or enter in the last submission under iLM other then iGeom
  406. // * 'viewsubmission' => teacher/non editing teacher seeing the learner's activity
  407. $return = $CFG->wwwroot . "/mod/iassign/view.php?action=view&id=" . $id . "&iassign_submission_current=" . $this->iassign_submission_current . "&userid_iassign=" . $this->userid_iassign . "&iassign_current=" . $this->activity->get_activity()->id;
  408. $return_last = "&nbsp;<a href='" . $return . "'>" . iassign_icons::insert('return_home') . '&nbsp;' . get_string('return_iassign', 'iassign') . "</a>";
  409. $link_return = "&nbsp;<a href='" . $this->return . "'>" . iassign_icons::insert('home') . '&nbsp;' . get_string('activities_page', 'iassign') . "</a>";
  410. print '<table width=100% >';
  411. if ($iLM_PARAM_ArchiveContent == - 1 || empty($iLM_PARAM_ArchiveContent)) { // if ($iLM_PARAM_ActivityEvaluation == -1)
  412. //TODO alterar aqui???
  413. $this->write_solution = 0; // necessary in order to take note in Moodle 'grade' system
  414. // empty_answer_post = No solution was posted.
  415. if ($comment)
  416. print '<tr><td colspan=2><br>' . get_string('empty_answer_post', 'iassign') . '</br>' . get_string('confirm_add_comment', 'iassign') . '</td>';
  417. else
  418. print '<tr><td colspan=2><br>' . get_string('empty_answer_post', 'iassign') . '</td>';
  419. print '<tr><td width=40% align=right>' . $return_last . '&nbsp;' . $link_return . '</td></tr>';
  420. } else {
  421. if ($iassign_ilm->evaluate == 1 && $this->activity->get_activity()->automatic_evaluate == 1) { // iLM with automatic evaluator
  422. if (intval($iLM_PARAM_ActivityEvaluation) == 1) {
  423. // Correct answer!!
  424. //TODO apelei - o melhor e' alterar acima o 'write_solution=0'?
  425. $this->write_solution = 1; //
  426. $status = 3;
  427. $grade_student = $iLM_PARAM_RealGrade; // evaluated as correct solution submitted is assigned the note pattern of activity
  428. $msg = '<tr><td colspan=2>' . iassign_icons::insert('feedback_correct') . '<br>' . get_string('get_answer_correct', 'iassign') . '</td>';
  429. // log record
  430. $info = $iassign->name . "&nbsp;-&nbsp;" . $this->activity->get_activity()->name . "&nbsp;-&nbsp;" . get_string('feedback_correct', 'iassign') . "&nbsp;-&nbsp;" . get_string('grade_iassign', 'iassign') . ":" . $grade_student;
  431. // Trigger module viewed event.
  432. $event = \mod_iassign\event\submission_created::create(array(
  433. 'objectid' => $this->iassign->id,
  434. 'context' => $this->context,
  435. 'other' => $info
  436. ));
  437. $event->add_record_snapshot('course', $this->course);
  438. $event->trigger();
  439. } else { // else if (intval($iLM_PARAM_ActivityEvaluation) == 1)
  440. // Wrong answer...: get_answer_incorrect
  441. $status = 2;
  442. $grade_student = $iLM_PARAM_RealGrade; // evaluated as incorrect solution
  443. $msg = '<tr><td colspan=2>' . iassign_icons::insert('feedback_incorrect') . '<br>' . get_string('get_answer_incorrect', 'iassign') . '</td>';
  444. // log record
  445. $info = $iassign->name . "&nbsp;-&nbsp;" . $this->activity->get_activity()->name . "&nbsp;-&nbsp;" . get_string('feedback_incorrect', 'iassign') .
  446. '&nbsp;-&nbsp;' . get_string('grade_iassign', 'iassign') . $grade_student;
  447. // Trigger module viewed event.
  448. $event = \mod_iassign\event\submission_created::create(array(
  449. 'objectid' => $this->iassign->id,
  450. 'context' => $this->context,
  451. 'other' => $info
  452. ));
  453. $event->add_record_snapshot('course', $this->course);
  454. $event->trigger();
  455. } // else if (intval($iLM_PARAM_ActivityEvaluation) == 1)
  456. // Presents to the learner the result of the automatic evaluate?
  457. if ($this->activity->get_activity()->show_answer == 0) { // no...
  458. print '<tr><td width=60% ><strong>' . iassign_icons::insert('post') . get_string('get_answer', 'iassign') . '</strong></td>';
  459. print '<tr><td width=40% align=right>' . $return_last . '&nbsp;' . $link_return . '</td></tr>';
  460. print '<tr>';
  461. // log record
  462. $info = $iassign->name . "&nbsp;-&nbsp;" . $this->activity->get_activity()->name . "&nbsp;-&nbsp;" . get_string('get_answer', 'iassign');
  463. // Trigger module viewed event.
  464. $event = \mod_iassign\event\submission_created::create(array(
  465. 'objectid' => $this->iassign->id,
  466. 'context' => $this->context,
  467. 'other' => $info
  468. ));
  469. $event->add_record_snapshot('course', $this->course);
  470. $event->trigger();
  471. } else { // yes!!!
  472. print '<tr><td width=60% ><strong>' . get_string('auto_result', 'iassign') . '</strong></td>';
  473. print '<td width=40% align=right>' . $return_last . '&nbsp;' . $link_return . '</td></tr>';
  474. print '<tr>';
  475. print $msg;
  476. }
  477. } else { // if ($iassign_ilm->evaluate == 1 && $this->activity->get_activity()->automatic_evaluate == 1)
  478. $status = 1;
  479. $grade_student = $iLM_PARAM_RealGrade; // iLM not have automatic evaluator
  480. print '<tr><td colspan=2>' . iassign_icons::insert('post') . get_string('get_answer_post', 'iassign') . '</td>';
  481. print '<tr><td width=40% align=right>' . $return_last . '&nbsp;' . $link_return . '</td></tr>';
  482. print '<tr>';
  483. // log record
  484. $info = $iassign->name . "&nbsp;-&nbsp;" . $this->activity->get_activity()->name . "&nbsp;-&nbsp;" . get_string('get_answer_post', 'iassign');
  485. $event = \mod_iassign\event\submission_created::create(array(
  486. 'objectid' => $this->iassign->id,
  487. 'context' => $this->context,
  488. 'other' => $info
  489. ));
  490. $event->add_record_snapshot('course', $this->course);
  491. $event->trigger();
  492. } // if ($iassign_ilm->evaluate == 1)
  493. } // if ($iLM_PARAM_ActivityEvaluation == -1)
  494. print '</tr></table>';
  495. print $OUTPUT->box_end();
  496. // add or update evaluate
  497. if ($this->write_solution == 1) {
  498. $timenow = time();
  499. // new record
  500. if (!$iassign_submission) {
  501. $newentry = new stdClass();
  502. $newentry->userid = $this->userid_iassign;
  503. // $newentry->userid = $USER->id;
  504. $newentry->iassign_statementid = $this->activity->get_activity()->id;
  505. $newentry->timecreated = $timenow;
  506. $newentry->timemodified = $timenow;
  507. $newentry->answer = $iLM_PARAM_ArchiveContent;
  508. $newentry->grade = $grade_student;
  509. $newentry->status = $status;
  510. $newentry->experiment = 1;
  511. if (!$newentry->id = $DB->insert_record("iassign_submission", $newentry)) {
  512. print_error('error_insert', 'iassign');
  513. } else {
  514. // Trigger module viewed event.
  515. $event = \mod_iassign\event\submission_created::create(array(
  516. 'objectid' => $this->iassign->id,
  517. 'context' => $this->context
  518. ));
  519. $event->add_record_snapshot('course', $this->course);
  520. $event->trigger();
  521. $this->update_grade_student($newentry->userid, $newentry->iassign_statementid, $this->iassign->id);
  522. }
  523. } elseif ($iassign_submission->status != 3) {
  524. $newentry = new stdClass();
  525. $newentry->id = $iassign_submission->id;
  526. $newentry->iassign_statementid = $iassign_submission->iassign_statementid;
  527. $newentry->userid = $iassign_submission->userid;
  528. $newentry->timecreated = $iassign_submission->timecreated;
  529. $newentry->timemodified = $timenow;
  530. $newentry->answer = $iLM_PARAM_ArchiveContent;
  531. $newentry->grade = $grade_student;
  532. $newentry->status = $status;
  533. $newentry->experiment = $iassign_submission->experiment + 1;
  534. if (!$DB->update_record("iassign_submission", $newentry)) {
  535. print_error('error_update', 'iassign');
  536. //D depurar...
  537. //D $stringAux = "ia.class.php: ".$iLM_PARAM_ArchiveContent."<br/> ".utf8_encode($iLM_PARAM_ArchiveContent)."<br/>".utf8_encode(utf8_encode($iLM_PARAM_ArchiveContent))."<br/>";
  538. //D $fp = fopen("teste1.txt","w");
  539. //D fwrite($fp,$stringAux);
  540. } else {
  541. // Trigger module viewed event.
  542. $event = \mod_iassign\event\submission_updated::create(array(
  543. 'objectid' => $this->iassign->id,
  544. 'context' => $this->context
  545. ));
  546. $event->add_record_snapshot('course', $this->course);
  547. $this->update_grade_student($newentry->userid, $newentry->iassign_statementid, $this->iassign->id);
  548. }
  549. } else {
  550. if ($return_get_answer == 1) {
  551. $newentry = new stdClass();
  552. $newentry->id = $iassign_submission->id;
  553. $newentry->iassign_statementid = $iassign_submission->iassign_statementid;
  554. $newentry->userid = $iassign_submission->userid;
  555. $newentry->timecreated = $iassign_submission->timecreated;
  556. $newentry->timemodified = $timenow;
  557. $newentry->answer = $iLM_PARAM_ArchiveContent;
  558. $newentry->grade = $grade_student;
  559. $newentry->status = $status;
  560. $newentry->experiment = $iassign_submission->experiment + 1;
  561. if (!$DB->update_record("iassign_submission", $newentry))
  562. print_error('error_update', 'iassign');
  563. else {
  564. $event = \mod_iassign\event\submission_updated::create(array(
  565. 'objectid' => $this->iassign->id,
  566. 'context' => $this->context
  567. ));
  568. $event->add_record_snapshot('course', $this->course);
  569. $event->trigger();
  570. $this->update_grade_student($newentry->userid, $newentry->iassign_statementid, $this->iassign->id);
  571. print $OUTPUT->box_start();
  572. print "<p>" . get_string('iassign_update', 'iassign') . "</p>";
  573. print $OUTPUT->box_end();
  574. }
  575. } elseif ($return_get_answer == 2) {
  576. print $OUTPUT->box_start();
  577. print "<p>" . get_string('iassign_cancel', 'iassign') . "</p>";
  578. print $OUTPUT->box_end();
  579. } else {
  580. print $OUTPUT->box_start();
  581. print "
  582. <script type='text/javascript'>
  583. //<![CDATA[
  584. function overwrite () {
  585. document.formEnvio.return_get_answer.value = 1;
  586. document.formEnvio.submit();
  587. }
  588. function nooverwrite () {
  589. document.formEnvio.return_get_answer.value = 2;
  590. document.formEnvio.submit();
  591. }
  592. //]]>
  593. </script>";
  594. $param_aux = "action=overwrite&iassign_submission_current=" . $iassign_submission->id . "&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id;
  595. $get_answer_overwrite = $CFG->wwwroot . "/mod/iassign/view.php?" . $param_aux;
  596. print "<form name='formEnvio' method='post' action='$get_answer_overwrite' enctype='multipart/form-data'>";
  597. print "<p>" . get_string('last_iassign_correct', 'iassign') . "</p>";
  598. print "<p>" . get_string('update_iassign', 'iassign') . "</p>";
  599. print "<input type='hidden' name='iLM_PARAM_ArchiveContent' value='$iLM_PARAM_ArchiveContent'/>
  600. <input type='hidden' name='iLM_PARAM_ActivityEvaluation' value='$iLM_PARAM_ActivityEvaluation'/>
  601. <input type='hidden' name='MA_POST_Info' value='$MA_POST_Info'/>
  602. <input type='hidden' name='MA_POST_SystemData' value='$MA_POST_SystemData'/>
  603. <input type='hidden' name='return_get_answer'/> ";
  604. print "<input type=button value='" . get_string('yes', 'iassign') . "' onClick = 'overwrite()'
  605. title='" . get_string('message_update_iassign', 'iassign') . "'/>&nbsp;&nbsp;";
  606. print "<input type=button value='" . get_string('no', 'iassign') . "' onClick = 'nooverwrite()'
  607. title='" . get_string('message_no_update_iassign', 'iassign') . "'/>";
  608. print " </form>";
  609. print $OUTPUT->box_end();
  610. }
  611. }
  612. } // if ($this->write_solution == 1)
  613. print $OUTPUT->footer();
  614. die();
  615. } // function get_answer()
  616. /// Export in file the answer of student.
  617. function export_file_answer () {
  618. global $DB;
  619. $iassign_submission_id = optional_param('iassign_submission_id', NULL, PARAM_INT);
  620. $iassign_submission = $DB->get_record("iassign_submission", array("id" => $iassign_submission_id));
  621. $iassign_statement = $DB->get_record("iassign_statement", array("id" => $iassign_submission->iassign_statementid));
  622. $name = iassign_utils::format_filename(strip_tags($iassign_statement->name));
  623. $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $iassign_statement->iassign_ilmid));
  624. $extensions = explode(",", $iassign_ilm->extension);
  625. $iassign_user = $DB->get_record("user", array("id" => $iassign_submission->userid));
  626. $username = iassign_utils::format_filename($iassign_user->firstname . ' ' . $iassign_user->lastname);
  627. $name_answer = $username . '-' . $name . '-' . userdate($iassign_submission->timemodified, '%Y%m%d-%H%M') . '.' . $extensions[0];
  628. header("Pragma: public");
  629. header("Expires: 0");
  630. header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
  631. header("Cache-Control: private", false);
  632. header("Content-Type: document/unknown");
  633. header("Content-Disposition: attachment; filename=\"" . $name_answer . "\";");
  634. set_time_limit(0);
  635. print($iassign_submission->answer);
  636. exit;
  637. } // function export_file_answer()
  638. /// Prepare data to static exportation (with course name, iAsssing block name, and exercices names
  639. // @calledby $this->export_package_answer()
  640. //TODO Precisa terminar! //TODO_HTML
  641. function htmlcode_2_export ($course_fullname, $course_id, $iassign_block_id, $iassign_block_name, $array_iassign_name, $array_iassign_id, $userid, $username) {
  642. $str_html = "<html dir='ltr' lang='pt-br' xml:lang='pt-br'>
  643. <head>
  644. <title>" . get_string('pluginname', 'iassign') . "</title>\n"; // 'iAssign: interactive Learning Activities'
  645. $str_html .= " </head>
  646. <body>\n";
  647. $tam = sizeof($array_iassign_name);
  648. for ($ii=0; $ii<$tam; $ii++) {
  649. //TODO_HTML completar construir HTML com titulo do exercicio e talvez legar com HTML para abri-lo com o iMA
  650. }
  651. $str_html .= "
  652. </body>\n</html>";
  653. return $str_html;
  654. }
  655. /// Export an package (zip) with all answer of students
  656. // @calledby $this->action()
  657. function export_package_answer () {
  658. global $DB, $CFG, $OUTPUT;
  659. $iassign_id = optional_param('iassign_id', NULL, PARAM_INT); // ID of iAssign block of activities
  660. $iassign = $DB->get_record("iassign", array("id" => $iassign_id)); // all data from this block of iAssign activities (table '*_iassign')
  661. $iassign_block_name = iassign_utils::format_filename($iassign->name);
  662. //TODO_HTML $this->course: [fullname] => Curso teste [shortname] => cursoteste1 [idnumber]
  663. //TODO_HTML //echo "<br/>" . $iassign->name . ": <br/>";
  664. $userid = optional_param('userid', NULL, PARAM_INT);
  665. $iassign_user = $DB->get_record("user", array("id" => $userid));
  666. $username = iassign_utils::format_filename($iassign_user->firstname . '_' . $iassign_user->lastname); // user information
  667. //TODO_HTML echo "username=$username<br/>"; exit;
  668. $current_date = date('Y_m_d_H');
  669. $diretorio = $CFG->dataroot . DIRECTORY_SEPARATOR . 'temp' . DIRECTORY_SEPARATOR . 'files' . DIRECTORY_SEPARATOR; // /var/<moodledata>/temp/files/
  670. // If temporary directory under Moodle data does not exists => create it
  671. if (!is_dir($diretorio)) {
  672. mkdir($diretorio, 0755, true); // permissions: drwxr-xr-x
  673. // created directory with permissions to be seen by everyone
  674. }
  675. $zip_filename = $diretorio . 'package_iassign_' . $username . '-' . $iassign_block_name . '_' . $current_date . '.zip';
  676. if (!is_writable($diretorio)) { // send a highlighted message!
  677. print_error('error_answer_export_dir', 'iassign'); // Error: the target directory has no permission! Please, send this message to the Moodle admin!
  678. exit; // just in case
  679. }
  680. //MOOC 2014: $zip_filename = $CFG->dataroot . '/temp/ilm-' . iassign_utils::format_pathname($iassign_ilm->name . '-v' . $iassign_ilm->version) . '.ipz';
  681. $zip = new zip_archive(); // create ZIP
  682. $zip->open($zip_filename); // open ZIP using the temporary file/directory
  683. $iassign_statements = $DB->get_records("iassign_statement", array("iassignid" => $iassign_id));
  684. //TODO $vet_exerc_title = array(); //TODO to be used with 'htmlcode_2_export(...)' - missing: build the HTML and directories linking files
  685. $vet_student_filename = array();
  686. $vet_student_content = array();
  687. foreach ($iassign_statements as $iassign_statement) {
  688. $activity_name = iassign_utils::format_filename(strip_tags($iassign_statement->name));
  689. $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $iassign_statement->iassign_ilmid));
  690. //TODO_HTML $vet_exerc_title[] = $iassign_statement->name;
  691. $extensions = explode(",", $iassign_ilm->extension);
  692. $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $iassign_statement->id, "userid" => $userid));
  693. if ($iassign_submission) {
  694. $timemodified = '-' . userdate($iassign_submission->timemodified, '%Y_%m_%d_%H_%M');
  695. $student_content = $iassign_submission->answer;
  696. $student_filename = iassign_utils::format_filename($activity_name) . $timemodified . '.' . $extensions[0];
  697. $resp = $zip->add_file_from_string($student_filename, $student_content); // add file to ZIP
  698. //$resp = $zip->add_file_from_string($path_dir . $one_file, $destination . $ds . $one_file); //2 Esta versao funciona!
  699. if ($resp) {
  700. $vet_student_filename[] = $student_filename;
  701. $vet_student_content[] = $student_content;
  702. }
  703. else { // send a highlighted message!
  704. print_error('error_answer_export_file', 'iassign'); // Error: fail to insert content to the file
  705. exit; // just in case
  706. }
  707. }
  708. }
  709. $zip->close(); // close the ZIP file
  710. if (count($vet_student_filename)>0) {
  711. $vet_result = iassign_utils::register_temporary_file($zip_filename, $vet_student_filename, $vet_student_content);
  712. $result_tf = $vet_result[0];
  713. $filenameZip = $vet_result[1]->filename;
  714. }
  715. iassign_utils::download_file($zip_filename); // download the ZIP file
  716. exit;
  717. } // function export_package_answer()
  718. /// Editing status of interactive activities
  719. function edit_status () {
  720. global $USER, $DB, $OUTPUT;
  721. $newentry = new stdClass();
  722. $newentry->id = $this->iassign_submission_current;
  723. $newentry->status = optional_param('return_status', 0, PARAM_INT);
  724. $iassign_submission = $DB->get_record('iassign_submission', array('id' => $this->iassign_submission_current));
  725. if ($iassign_submission->status != 0 && $newentry->status == 0)
  726. $newentry->status = $iassign_submission->status;
  727. $newentry->teacher = $USER->id;
  728. if (!$DB->update_record('iassign_submission', $newentry))
  729. print_error('error_update', 'iassign');
  730. else {
  731. // Trigger module viewed event.
  732. $event = \mod_iassign\event\submission_updated::create(array(
  733. 'objectid' => $this->iassign->id,
  734. 'context' => $this->context
  735. ));
  736. $event->add_record_snapshot('course', $this->course);
  737. $event->trigger();
  738. $this->action = 'viewsubmission';
  739. $this->view_iassign_current();
  740. } // if (!$DB->update_record('iassign_submission', $newentry))
  741. } // function edit_status()
  742. /// Editing grade of interactive activities
  743. function edit_grade () {
  744. global $USER, $DB, $OUTPUT;
  745. $newgrade = optional_param('return_grade', 0, PARAM_INT);
  746. if ($newgrade && $newgrade >= 0) {
  747. $newentry = new stdClass();
  748. $newentry->id = $this->iassign_submission_current;
  749. $newentry->grade = optional_param('return_grade', 0, PARAM_INT);
  750. $newentry->teacher = $USER->id;
  751. if (!$DB->update_record('iassign_submission', $newentry))
  752. print_error('error_update', 'iassign');
  753. else {
  754. // Trigger module viewed event.
  755. $event = \mod_iassign\event\submission_updated::create(array(
  756. 'objectid' => $this->iassign->id,
  757. 'context' => $this->context
  758. ));
  759. $event->add_record_snapshot('course', $this->course);
  760. $event->trigger();
  761. }
  762. } // if ($newgrade >= 0)
  763. $this->action = 'viewsubmission';
  764. $this->view_iassign_current();
  765. }
  766. /// Add or Edit interactive activities
  767. // @calledby $this->action()
  768. function add_edit_iassign () {
  769. global $USER, $CFG, $COURSE, $DB, $OUTPUT;
  770. require_once('iassign_form.php');
  771. $id = $this->cm->id;
  772. $iassignid = $this->iassign->id;
  773. $param = new stdClass();
  774. $param->action = $this->action; // oculto
  775. $param->id = $id; // oculto
  776. $COURSE->cm = $id;
  777. $COURSE->iassignid = $iassignid;
  778. $COURSE->iassign_file_id = NULL;
  779. $context = context_module::instance($this->cm->id);
  780. $contextuser = context_user::instance($USER->id);
  781. $component = 'mod_iassign';
  782. $filearea = 'exercise';
  783. if (!empty($this->iassign_current))
  784. $COURSE->iassign_id = $this->iassign_current;
  785. else
  786. $COURSE->iassign_id = 0;
  787. $total_of_activities = 0; // get the total number of activities in this iAssign block
  788. if ($this->action == 'add') {
  789. $iassign_data = $DB->get_record("iassign", array('id' => $iassignid));
  790. $total_of_activities = count($iassign_data);
  791. $params = array('iassignid' => $iassignid);
  792. $query_str = "SELECT s.id, s.name, s.dependency FROM {iassign_statement} s WHERE s.iassignid = :iassignid ORDER BY s.position ASC";
  793. $iassign_statement = $DB->get_records_sql($query_str, $params); //
  794. $param->iassignid = $iassignid;
  795. $param->name = "";
  796. $param->oldname = "";
  797. $param->type_iassign = 3;
  798. $param->proposition = "";
  799. $author = $DB->get_record("user", array("id" => $USER->id));
  800. $param->author_name = $author->firstname . '&nbsp;' . $author->lastname;
  801. $param->author_modified_name = $author->firstname . '&nbsp;' . $author->lastname;
  802. $param->author = $param->author_name;
  803. $param->author_modified = $param->author_modified_name;
  804. $COURSE->iassign_list = array();
  805. $param->iassign_list = array();
  806. if ($iassign_statement) {
  807. foreach ($iassign_statement as $iassign) {
  808. $iassignid = $iassign->id;
  809. $param->iassign_list[$iassignid] = 0;
  810. $COURSE->iassign_list[$iassignid] = new stdClass();
  811. $COURSE->iassign_list[$iassignid]->id = $iassignid;
  812. $COURSE->iassign_list[$iassignid]->name = $iassign->name;
  813. $COURSE->iassign_list[$iassignid]->enable = 1;
  814. } // foreach ($iassign_statement as $iassign)
  815. }
  816. $param->iassign_ilmid = 0;
  817. //echo "locallib.php: add_edit_iassign(): add<br/>";
  818. $param->file = 0;
  819. $param->fileold = 0;
  820. $param->filename = "";
  821. $param->grade = $iassign_data->grade;
  822. $param->timemodified = time();
  823. $param->timecreated = time();
  824. $param->timeavailable = $iassign_data->timeavailable;
  825. $param->timedue = $iassign_data->timedue;
  826. $param->preventlate = $iassign_data->preventlate;
  827. $param->test = $iassign_data->test;
  828. $param->special_param1 = 0;
  829. $param->visible = 1;
  830. $param->max_experiment = $iassign_data->max_experiment;
  831. $param->dependency = 0;
  832. $param->automatic_evaluate = 1;
  833. $param->show_answer = 1;
  834. } // if ($this->action == 'add')
  835. elseif ($this->action == 'edit') {
  836. $COURSE->iassign_list = array();
  837. $this_activity = $this->activity->get_activity();
  838. if ($this_activity != null) {
  839. //2019 $iassign_statement_current = $DB->get_record("iassign_statement", array("id" => $this_activity->id));
  840. $iassign_statement_current = $this_activity; // $DB->get_record("iassign_statement", array("id" => $this_activity->id));
  841. $param->iassign_id = $iassign_statement_current->id; // oculto
  842. $param->iassignid = $iassign_statement_current->iassignid; // oculto
  843. $param->name = $iassign_statement_current->name;
  844. $param->oldname = $iassign_statement_current->name;
  845. $param->type_iassign = $iassign_statement_current->type_iassign;
  846. //2019: Moodle 3 uses proposition in 'textarea' as "('text' => <text>, 'format' => '')
  847. //2019 $param->proposition = $iassign_statement_current->proposition;
  848. $param->proposition = array('text' => $iassign_statement_current->proposition, ''); //'format' => $instance->introformat
  849. $param->author_name = $iassign_statement_current->author_name; // oculto
  850. $param->author = $iassign_statement_current->author_name;
  851. $author = $DB->get_record("user", array('id' => $USER->id));
  852. $param->author_modified_name = $author->firstname . '&nbsp;' . $author->lastname;
  853. $param->author_modified = $param->author_modified_name;
  854. $dependency = explode(';', $iassign_statement_current->dependency);
  855. $param->iassign_list = array();
  856. $str_query = "SELECT * FROM {iassign_statement} s WHERE s.iassignid = '$iassignid' AND s.id!='$iassign_statement_current->id' AND s.dependency!=0";
  857. $iassign_statement_dependency = $DB->get_records_sql($str_query);
  858. $array_dependency = array();
  859. $subdependency = "";
  860. $sub_subdependency = "";
  861. // dependent on this exercise
  862. if ($iassign_statement_dependency) {
  863. $subdependency .= $this->search_dependency($iassign_statement_current->id, $iassign_statement_dependency);
  864. // to whom this exercise depends
  865. foreach ($inter as $tmp)
  866. $sub_subdependency .= $this->search_sub_dependency($tmp);
  867. $list_dependency = $subdependency . $sub_subdependency;
  868. $array_dependency = explode(";", $list_dependency);
  869. }
  870. // Get all activity with the same iLM - iassignid
  871. $str_query = "SELECT id, name FROM {iassign_statement} s WHERE s.iassignid = '$iassignid' AND s.id!='$iassign_statement_current->id' ORDER BY s.position ASC";
  872. $all_others_iassign_statement = $DB->get_records_sql($str_query);
  873. $total_of_activities = count($all_others_iassign_statement) + 1;
  874. $inter = array();
  875. if ($all_others_iassign_statement) {
  876. foreach ($all_others_iassign_statement as $iassign)
  877. if (in_array($iassign->id, $dependency))
  878. $inter[] = $iassign->id;
  879. }
  880. if ($all_others_iassign_statement) {
  881. foreach ($all_others_iassign_statement as $iassign) {
  882. $iassignid = $iassign->id;
  883. $COURSE->iassign_list[$iassignid] = new stdClass();
  884. $COURSE->iassign_list[$iassignid]->name = $iassign->name;
  885. $COURSE->iassign_list[$iassignid]->id = $iassignid;
  886. if (in_array($iassignid, $dependency))
  887. $param->iassign_list[$iassignid] = 1;
  888. else
  889. $param->iassign_list[$iassignid] = 0;
  890. if (in_array($iassignid, $array_dependency))
  891. $COURSE->iassign_list[$iassignid]->enable = 0;
  892. else
  893. $COURSE->iassign_list[$iassignid]->enable = 1;
  894. } // foreach ($all_others_iassign_statement as $iassign)
  895. }
  896. $param->iassign_ilmid = $iassign_statement_current->iassign_ilmid;
  897. $param->fileold = 0;
  898. $param->file = 0; //TODO Criar campo 'iassign_statement.filesid' para registar 'files.id' - abaixo faz '$file->get_id();'
  899. $param->filename = '';
  900. $param->grade = $iassign_statement_current->grade;
  901. $param->timecreated = $iassign_statement_current->timecreated; // oculto
  902. $param->timeavailable = $iassign_statement_current->timeavailable;
  903. $param->timedue = $iassign_statement_current->timedue;
  904. $param->preventlate = $iassign_statement_current->preventlate;
  905. $param->test = $iassign_statement_current->test;
  906. $param->special_param1 = $iassign_statement_current->special_param1;
  907. $param->position = $iassign_statement_current->position; // oculto
  908. $param->visible = $iassign_statement_current->visible;
  909. $param->max_experiment = $iassign_statement_current->max_experiment;
  910. $param->automatic_evaluate = $iassign_statement_current->automatic_evaluate;
  911. $param->show_answer = $iassign_statement_current->show_answer;
  912. $fs = get_file_storage(); // Get reference to all files in Moodle data
  913. $files = $fs->get_area_files($context->id, $component, $filearea, $iassign_statement_current->file);
  914. if ($files) {
  915. foreach ($files as $file) {
  916. if ($file->get_filename() != '.') {
  917. $param->filename = $file->get_filename();
  918. $param->file = $file->get_id();
  919. $param->fileold = $file->get_id();
  920. $COURSE->iassign_file_id = $file->get_id();
  921. }
  922. }
  923. }
  924. //TODO //MOOC2014 -- inicio
  925. //D $iassign_ilm_configs = $DB->get_records('iassign_statement_config', array('iassign_statementid' => $iassign_statement_current->id));
  926. //D if ($iassign_ilm_configs) {
  927. //D foreach ($iassign_ilm_configs as $iassign_ilm_config)
  928. //D $param->{'param_'.$iassign_ilm_config->iassign_ilm_configid} = $iassign_ilm_config->param_value;
  929. //D } //MOOC2014 -- fim
  930. } // if ($this_activity != null)
  931. } // elseif ($this->action == 'edit')
  932. // Get all iActivity in the iAssign block with id = $this->iassign->id
  933. // It could be used to define dependency of the current activity (considering those list $iassign_list)
  934. $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array($this->iassign->id), 'position ASC');
  935. //D echo "locallib.php: add_edit_iassign(): this->iassign->id=" . $this->iassign->id . "<br/>";
  936. //D foreach ($iassign_list as $item) echo " - id=" . $item->id . ", name=" . $item->name . ", iassignid=" . $item->iassignid . ", type_iassign=" . $item->type_iassign . "<br/>";
  937. // if ($iassign_list) { $end_list = array_pop($iassign_list); $param->position = $end_list->position + 1; } else $param->position = 1;
  938. $param->position = $total_of_activities;
  939. $mform = new mod_iassign_form(null, null, null, null, array('id'=>'mform1'));
  940. $mform->set_data($param);
  941. if ($mform->is_cancelled()) {
  942. $this->return_home_course('iassign_cancel');
  943. exit;
  944. }
  945. else { // if ($mform->is_cancelled())
  946. $result = $mform->get_data();
  947. // echo "locallib.php: add_edit_iassign(): result="; print_r($result); echo "<br/>";
  948. if ($result) {
  949. $result->context = $context;
  950. if ($result->type_iassign == 1 || $result->type_iassign == 2)
  951. $result->grade = 0;
  952. if ($result->type_iassign == 1) {
  953. $result->automatic_evaluate = 0;
  954. $result->show_answer = 0;
  955. }
  956. elseif ($result->automatic_evaluate == 0)
  957. $result->show_answer = 0;
  958. // $_POST['iassign_list']
  959. $result->iassign_list = optional_param_array('iassign_list', array(), PARAM_RAW);
  960. if ($result->iassign_list) {
  961. foreach ($result->iassign_list as $key => $value)
  962. $result->dependency .= $key . ';';
  963. }
  964. else
  965. $result->dependency = 0;
  966. //TODO I used in 'iassign_form.php' '<select name='iassign_ilmid'...>' with 'optgroup' by hand! But MoodleForm clear/do not register the 'iassign_ilmid'
  967. //TODO Then get it directly from the form data $_POST!
  968. //TODO See: 'iassign_form.php' field 'iassign_ilmid' and here 'function new_iassign($param)'
  969. if (!isset($result->iassign_ilmid) && isset($_POST['iassign_ilmid']))
  970. $result->iassign_ilmid = $_POST['iassign_ilmid'];
  971. $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $result->iassign_ilmid));
  972. if ($this->action == 'add') {
  973. $iassign_statement_name = $DB->get_records('iassign_statement', array('iassignid' => $result->iassignid, 'name' => $result->name));
  974. if ($iassign_statement_name) {
  975. $this->return_home_course('error_iassign_name');
  976. die();
  977. }
  978. // Really insert the new iActivity in table '*_iassign_statement'
  979. $iassignid = $this->activity->new_iassign($result); // class activity : function new_iassign($param)
  980. $this->activity->add_calendar($iassignid); ///line 3584 of /mod/iassign/locallib.php: call to calendar_event::create()
  981. // Trigger module viewed event.
  982. $event = \mod_iassign\event\iassign_created::create(array(
  983. 'objectid' => $iassignid,
  984. 'context' => $context
  985. ));
  986. $event->add_record_snapshot('course', $this->course);
  987. $event->trigger();
  988. $this->return_home_course('iassign_add');
  989. } // if ($this->action == 'add')
  990. elseif ($this->action == 'edit') {
  991. $iassignid = $this->activity->update_iassign($result);
  992. $this->activity->update_calendar($iassignid, $result->oldname);
  993. // Trigger module viewed event.
  994. $event = \mod_iassign\event\iassign_updated::create(array(
  995. 'objectid' => $iassignid,
  996. 'context' => $context
  997. ));
  998. $event->add_record_snapshot('course', $this->course);
  999. $event->trigger();
  1000. $this->return_home_course('iassign_update');
  1001. } // elseif ($this->action == 'edit')
  1002. die();
  1003. } // if ($result)
  1004. } // else if ($mform->is_cancelled())
  1005. print $OUTPUT->header();
  1006. $mform->display();
  1007. print $OUTPUT->footer();
  1008. die();
  1009. } // function add_edit_iassign()
  1010. /// Search for dependencies
  1011. function search_dependency ($search_iassing_id, $iassign_statement) {
  1012. global $DB, $OUTPUT;
  1013. $dependency = "";
  1014. if ($iassign_statement)
  1015. foreach ($iassign_statement as $iassign) {
  1016. $inter_dependency = explode(';', $iassign->dependency);
  1017. if (in_array($search_iassing_id, $inter_dependency)) {
  1018. $dependency .= $iassign->id . ";";
  1019. $dependency .= $this->search_dependency($iassign->id, $iassign_statement);
  1020. } // if (in_array($search_iassing_id, $inter_dependency))
  1021. } // foreach ($iassign_statement as $iassign)
  1022. return $dependency;
  1023. }
  1024. /// Search for "sub"dependency
  1025. function search_sub_dependency ($search_iassing_id) {
  1026. global $DB, $OUTPUT;
  1027. $iassign_statement = $DB->get_record("iassign_statement", array("id" => $search_iassing_id));
  1028. $dependency = "";
  1029. if ($iassign_statement) {
  1030. $inter_dependency = explode(';', $iassign_statement->dependency);
  1031. foreach ($inter_dependency as $tmp) {
  1032. if ($tmp != 0)
  1033. $dependency .= $tmp . ";";
  1034. $dependency .= $this->search_sub_dependency($tmp);
  1035. } // foreach ($inter_dependency as $tmp)
  1036. } // if ($iassign_statement)
  1037. return $dependency;
  1038. }
  1039. // Warning message
  1040. static function warning_message_iassign ($strcode) {
  1041. return "<div class='warning' style='display:inline; font-weight: bold; color:#a00'>" . get_string($strcode, 'iassign') . "</div>\n";
  1042. }
  1043. /// Update grade of iAssign
  1044. // Called always any iAssign activity is created
  1045. // @see /mod/iassign/view.php: call to iassign->iassign(): starting point
  1046. static function update_grade_iassign ($iassignid) {
  1047. global $USER, $CFG, $COURSE, $DB, $OUTPUT;
  1048. require_once($CFG->libdir . '/gradelib.php');
  1049. //D $sum_grade = $DB->get_records_sql ( "SELECT SUM(grade) as total
  1050. //D FROM {$CFG->prefix}iassign_statement s WHERE s.iassignid = '$iassignid' AND s.type_iassign=3" );
  1051. //TODO: REVIEW: wich one is more efficienty, '$DB->get_records' geting objects or '$DB->get_records' with 'foreach'?
  1052. // Each iAssign item is associated with one item on the "gradebook"
  1053. // Sum all '*_iassign_statement' associated with one item in '*_grade_items': iassignid AND type_iassign=3
  1054. //$sum_grade = 0;
  1055. //$grade = $DB->get_records('iassign_statement', array('iassignid' => $iassignid, 'type_iassign' => 3));
  1056. //foreach($grade as $tmp) {
  1057. // $sum_grade += $tmp->grade;
  1058. // }
  1059. //1 Solution 1
  1060. //1 $grade = $DB->get_records('iassign_statement', array('iassignid' => $iassignid, 'type_iassign' => 3)); //1
  1061. //1 $sum_grade = 0; //1
  1062. //1 foreach ($grade as $tmp) { $sum_grade += $tmp->grade; } //1
  1063. //2 Solution 2
  1064. $array_sum_grade = $DB->get_records_sql("SELECT SUM(grade) as total FROM {iassign_statement} s WHERE s.iassignid = '$iassignid' AND s.type_iassign=3"); //2
  1065. //2 foreach ($array_sum_grade as $array_item) { $sum_grade = $array_item->total; break; } // nao necessario, basta 'key(...)' abaixo
  1066. if (key($array_sum_grade))
  1067. $sum_grade = key($array_sum_grade); //2
  1068. else
  1069. $sum_grade = 0; //2
  1070. $grade_iassign = $DB->get_record("iassign", array("id" => $iassignid));
  1071. $grades = NULL;
  1072. $params = array('itemname' => $grade_iassign->name);
  1073. $params['iteminstance'] = $iassignid;
  1074. $params['gradetype'] = GRADE_TYPE_VALUE;
  1075. //2016 if ($sum_grade != 0) {
  1076. $params['grademax'] = $sum_grade;
  1077. $params['rawgrademax'] = $sum_grade;
  1078. //2016 } else { $params['grademax'] = 0; $params['rawgrademax'] = 0; }
  1079. $params['grademin'] = 0;
  1080. // @calls /lib/gradelib.php: call to grade_item->insert()
  1081. //TODO: is there any error here in Moodle version 3.0?
  1082. //TODO: Incorrect property 'grademax' found when inserting grade object
  1083. //TODO: line 899 of /mod/iassign/locallib.php: call to grade_update()
  1084. grade_update('mod/iassign', $grade_iassign->course, 'mod', 'iassign', $iassignid, 0, $grades, $params);
  1085. }
  1086. /// Update grade of student
  1087. function update_grade_student ($userid, $iassign_statementid, $iassignid) {
  1088. global $CFG, $DB, $OUTPUT;
  1089. require_once($CFG->libdir . '/gradelib.php');
  1090. $grade_iassign = $DB->get_record('iassign', array('id' => $iassignid));
  1091. // Review all the student submission for this iAssign activity
  1092. $grade_iassign_statements = $DB->get_records('iassign_statement', array('iassignid' => $iassignid));
  1093. $total_grade = 0;
  1094. foreach ($grade_iassign_statements as $grade_iassign_statement) {
  1095. $iassign_submission = $DB->get_record('iassign_submission', array('iassign_statementid' => $grade_iassign_statement->id, 'userid' => $userid));
  1096. if ($iassign_submission)
  1097. $total_grade += $iassign_submission->grade;
  1098. } // foreach ($grade_iassign_statements as $grade_iassign_statement)
  1099. //D $sum_grade = $DB->get_records_sql("SELECT SUM(grade) as total
  1100. //D FROM {$CFG->prefix}iassign_statement s WHERE s.iassignid = '$iassignid' AND s.type_iassign=3" );
  1101. //TODO: REVIEW: wich one is more efficienty, '$DB->get_records' geting objects or '$DB->get_records' with 'foreach'?
  1102. //1 $sum_grade = 0; $grade = $DB->get_records('iassign_statement', array('iassignid' => $iassignid, 'type_iassign' => 3));
  1103. //1 foreach ($grade as $tmp) { $sum_grade += $tmp->grade; }
  1104. $array_sum_grade = $DB->get_records_sql("SELECT SUM(grade) as total FROM {iassign_statement} s WHERE s.iassignid = '$iassignid' AND s.type_iassign=3"); //2
  1105. if (key($array_sum_grade))
  1106. $sum_grade = key($array_sum_grade); //2
  1107. else
  1108. $sum_grade = 0; //2
  1109. $grades['userid'] = $userid;
  1110. $grades['rawgrade'] = $total_grade; // sum of all submissions for this iAssign activity
  1111. $params = array('itemname' => $grade_iassign->name);
  1112. $params['iteminstance'] = $iassignid;
  1113. $params['gradetype'] = GRADE_TYPE_VALUE;
  1114. //2016 if ($sum_grade != 0) { // depois eliminar comentario
  1115. $params['grademax'] = $sum_grade;
  1116. $params['rawgrademax'] = $sum_grade;
  1117. //2016 } else { $params['grademax'] = 0; $params['rawgrademax'] = 0; }
  1118. grade_update('mod/iassign', $grade_iassign->course, 'mod', 'iassign', $iassignid, 0, $grades, $params);
  1119. }
  1120. /// Display caption of icons
  1121. function view_legend_icons () {
  1122. global $USER, $CFG, $DB, $OUTPUT;
  1123. $id = $this->cm->id;
  1124. if ($this->action == 'print')
  1125. print '<table border=1 width=100%><tr>';
  1126. else
  1127. print '<table width=100%><tr>';
  1128. print '<td >';
  1129. if ($this->action != 'print')
  1130. print $OUTPUT->help_icon('legend', 'iassign');
  1131. // helpbutton('legend', get_string('legend', 'iassign'), 'iassign', $image = true, $linktext = false, $text = '', $return = false,
  1132. // $imagetext = '');
  1133. print '<strong>' . get_string('legend', 'iassign') . '</strong>';
  1134. print '&nbsp;' . iassign_icons::insert('correct') . '&nbsp;' . get_string('correct', 'iassign');
  1135. print '&nbsp;' . iassign_icons::insert('incorrect') . '&nbsp;' . get_string('incorrect', 'iassign');
  1136. print '&nbsp;' . iassign_icons::insert('post') . '&nbsp;' . get_string('post', 'iassign');
  1137. print '&nbsp;' . iassign_icons::insert('not_post') . '&nbsp;' . get_string('not_post', 'iassign');
  1138. print '&nbsp;' . iassign_icons::insert('comment_unread') . '&nbsp;' . get_string('comment_unread', 'iassign');
  1139. if (has_capability('mod/iassign:viewreport', $this->context, $USER->id) && $this->action == 'report') {
  1140. print '&nbsp;' . iassign_icons::insert('comment_read') . '&nbsp;' . get_string('comment_read', 'iassign');
  1141. print '</td>' . "\n";
  1142. if ($this->action != 'print') {
  1143. $link_print = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=print&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('print') . '&nbsp;' . get_string('print', 'iassign') . "</a>";
  1144. $link_stats = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=stats&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('results') . '&nbsp;' . get_string('graphic', 'iassign') . "</a>";
  1145. $link_export = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=export_csv&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('export_ilm') . '&nbsp;' . get_string('export_csv', 'iassign') . "</a>";
  1146. $link_auto_evaluate = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=auto_evaluate&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('correct') . '&nbsp;' . get_string('auto_evaluate_reprocess', 'iassign') . "</a>";
  1147. print '<td width=15% align="right">' . $link_stats . '</td>' . "\n";
  1148. print '<td width=15% align="right">' . $link_export . '</td>' . "\n";
  1149. print '<td width=15% align="right">' . $link_auto_evaluate . '</td>' . "\n";
  1150. print '<td width=15% align="right">' . $link_print . '</td>' . "\n";
  1151. } // if ($this->action != 'print')
  1152. print '</tr></table>' . "\n";
  1153. } // if (has_capability('mod/iassign:viewreport', $this->context, $USER->id) && $this->action == 'report')
  1154. elseif (has_capability('mod/iassign:submitiassign', $this->context, $USER->id)) {
  1155. $link_stats = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=stats_student&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('results') . '&nbsp;' . get_string('results', 'iassign') . "</a>";
  1156. print '<td width=15% align="right">' . $link_stats . '</td>' . "\n";
  1157. print '</tr></table>' . "\n";
  1158. } // elseif (has_capability('mod/iassign:submitiassign', $this->context, $USER->id))
  1159. else
  1160. print '</td></tr></table>' . "\n";
  1161. } // function view_legend_icons()
  1162. /// Display activity current
  1163. // @calledby view() -> action() : when student do/redo activity and teacher see student answer
  1164. function view_iassign_current () {
  1165. global $USER, $CFG, $COURSE, $DB, $OUTPUT;
  1166. $id = $this->cm->id;
  1167. $iassignid = $this->iassign->id;
  1168. $only_one_send_button = 0; // to avoid to put 2 copies of comments (area to send and see comments between teacher and student)
  1169. $iassign = $DB->get_record("iassign", array("id" => $iassignid)); // from table '*_iassign': id course name intro introformat activity_group grade timeavailable timedue preventlate test max_experiment
  1170. // Get data of current activity : table '*_iassign_statement' = id name iassignid type_iassign proposition author_name author_modified_name iassign_ilmid file grade timemodified timecreated ...
  1171. $iassign_statement_activity_item = $this->activity->get_activity(); // search data of current activity: the teacher activity model
  1172. $ilm = new ilm($iassign_statement_activity_item->iassign_ilmid);
  1173. $ilm_name = strtolower($ilm->ilm->name); // class ilm has a unique property ('ilm'), get the iLM name
  1174. // Do not allow the learner resent his solution only is iGeom iLM ("igeom") - why? iGeom acitivity "model answer" is not sent with the learner solution
  1175. $allow_resubmission = (substr($ilm_name, 0, 5) != "igeom" ? 1 : 0);
  1176. // log record
  1177. $info = $iassign->name . ":" . $iassign_statement_activity_item->name;
  1178. //Trigger module viewed event.
  1179. $event = \mod_iassign\event\submission_viewed::create(array(
  1180. 'objectid' => $iassign->id,
  1181. 'context' => $this->context,
  1182. 'other' => $info
  1183. ));
  1184. $event->add_record_snapshot('course', $this->course);
  1185. $event->trigger();
  1186. print $OUTPUT->header();
  1187. // Search of iLM data used in the current activity
  1188. $iassign_ilm = $DB->get_record("iassign_ilm", array("id" => $iassign_statement_activity_item->iassign_ilmid));
  1189. if ($this->action == 'viewsubmission') {
  1190. if (!empty($this->iassign_submission_current) || $this->iassign_submission_current != 0)
  1191. $iassign_submission = $DB->get_record("iassign_submission", array("id" => $this->iassign_submission_current)); // data about activity current
  1192. else
  1193. $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $this->activity->get_activity()->id, "userid" => $this->userid_iassign)); // data about student solution
  1194. } else {
  1195. $iassign_submission = $DB->get_record("iassign_submission", array("iassign_statementid" => $this->activity->get_activity()->id, "userid" => $this->userid_iassign)); // data about student solution
  1196. }
  1197. if ($iassign_submission)
  1198. $this->update_comment($iassign_submission->id);
  1199. $file = $iassign_statement_activity_item->file;
  1200. // 1 when open previous file; 2 when the activity is redone!; 3 when the teacher enter in the activity
  1201. // 1 => locallib.php: view_iassign_current(): action=view will set write_solution=0!!!!!
  1202. // 2 => locallib.php: view_iassign_current(): action=repeat will set write_solution=0!!!!!
  1203. // 3 => locallib.php: view_iassign_current(): action=viewsubmission will set write_solution=0!!!!!
  1204. $this->bottonPost = 0; // hide submit button
  1205. //xxx $this->write_solution = 0; // disable recording solution (however, iVProg allow the learner to edit previou solution)
  1206. $this->view_iassign = false; // disable visualization of activity
  1207. $repeat = "";
  1208. $last_iassign = "";
  1209. $student_answer = "";
  1210. $comment = "";
  1211. // *** Teacher access (view learner's submission)
  1212. if (($this->action != 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id)) {
  1213. //TODO leo Verificar se o correto eh '$this->context' ou '$USER->context' como deixei
  1214. // It is not 'viewsubmission' and it is teacher or 'non editing teacher'?
  1215. // ---> access teacher for test
  1216. if ($iassign_statement_activity_item->type_iassign != 1) // type_iassign=1 => activity of type "example" - not submit button for submission
  1217. $this->bottonPost = 1;
  1218. print $OUTPUT->box('<p><strong>' . get_string('area_specific_teacher', 'iassign') . '</strong></p>');
  1219. $this->activity->view_dates();
  1220. $USER->iassignEdit = $this->bottonPost;
  1221. $this->activity->show_info_iassign();
  1222. if ($iassign_submission) {
  1223. //xxx $param_aux = "action=get_answer&iassign_submission_current=" . $iassign_submission->id . "&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id;
  1224. $param_aux = "action=get_answer&iassign_submission_current=" . $iassign_submission->id . "&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&userid_iassign=" . $USER->id;
  1225. } else {
  1226. //xxx $param_aux = "action=get_answer&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id;
  1227. $param_aux = "action=get_answer&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&userid_iassign=" . $USER->id;
  1228. }
  1229. $enderecoPOST = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . $param_aux;
  1230. //if ($ilm->confirms_jar($iassign_statement_activity_item->file, $iassign_ilm->file_jar, $this->cm->id))
  1231. // Prepare tags to present the iLM
  1232. print $OUTPUT->box($ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, true));
  1233. } // if (($this->action != 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id))
  1234. // *** (end) Teacher access (view the activity)
  1235. // *** Teacher access (view learner's submission to the activity)
  1236. elseif (($this->action == 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id)) {
  1237. // It is teacher or 'nonediting teacher' that can evaluate
  1238. // ----> area teacher evaluate
  1239. $row = optional_param('row', 0, PARAM_INT);
  1240. $column = optional_param('column', 0, PARAM_INT);
  1241. $link_next = iassign_icons::insert('right_disable');
  1242. $link_previous = iassign_icons::insert('left_disable');
  1243. $link_up = iassign_icons::insert('up_disable');
  1244. $link_down = iassign_icons::insert('down_disable');
  1245. // next_activity
  1246. if ($USER->matrix_iassign[$row][$column]->iassign_next != - 1) {
  1247. $url_next = "view.php?action=viewsubmission&id=$id&iassign_submission_current=" . $USER->matrix_iassign[$row][$column + 1]->iassign_submission_current . "&userid_iassign=$this->userid_iassign&iassign_current=" . $USER->matrix_iassign[$row][$column]->iassign_next . "&view_iassign=report&row=" . ($row) . "&column=" . ($column + 1);
  1248. $link_next = "<a href='" . $url_next . "'>" . (iassign_icons::insert('next_activity')) . "</a>";
  1249. }
  1250. // previous_activity
  1251. if ($USER->matrix_iassign[$row][$column]->iassign_previous != - 1) {
  1252. $url_previous = "view.php?action=viewsubmission&id=$id&iassign_submission_current=" . $USER->matrix_iassign[$row][$column - 1]->iassign_submission_current . "&userid_iassign=$this->userid_iassign&iassign_current=" . $USER->matrix_iassign[$row][$column]->iassign_previous . "&view_iassign=report&row=" . ($row) . "&column=" . ($column - 1);
  1253. $link_previous = "<a href='" . $url_previous . "'>" . (iassign_icons::insert('previous_activity')) . "</a>";
  1254. }
  1255. // previous_student
  1256. if ($USER->matrix_iassign[$row][$column]->user_next != - 1) {
  1257. $url_down = "view.php?action=viewsubmission&id=$id&iassign_submission_current=" . $USER->matrix_iassign[$row + 1][$column]->iassign_submission_current . "&userid_iassign=" . $USER->matrix_iassign[$row][$column]->user_next . "&iassign_current=" . $this->activity->get_activity()->id . "&view_iassign=report&row=" . ($row + 1) . "&column=" . ($column);
  1258. $link_down = "<a href='" . $url_down . "'>" . (iassign_icons::insert('previous_student')) . "</a>";
  1259. }
  1260. // next_student
  1261. if ($USER->matrix_iassign[$row][$column]->user_previous != - 1) {
  1262. $url_up = "view.php?action=viewsubmission&id=$id&iassign_submission_current=" . $USER->matrix_iassign[$row - 1][$column]->iassign_submission_current . "&userid_iassign=" . $USER->matrix_iassign[$row][$column]->user_previous . "&iassign_current=" . $this->activity->get_activity()->id . "&view_iassign=report&row=" . ($row - 1) . "&column=" . ($column);
  1263. $link_up = "<a href='" . $url_up . "'>" . (iassign_icons::insert('next_student')) . "</a>";
  1264. }
  1265. if ($iassign_submission) {
  1266. $student_answer = $iassign_submission->answer;
  1267. }
  1268. $last_iassign = get_string('last_iassign', 'iassign');
  1269. $user_data = $DB->get_record("user", array('id' => $this->userid_iassign));
  1270. // Messages related to due date (and user role)
  1271. $this->activity->view_dates();
  1272. print $OUTPUT->box_start();
  1273. print '<table width=100% border=0 valign="top"><tr>' . "\n";
  1274. print '<td width=80%><font color="blue"><strong>' . get_string('area_available', 'iassign') . '</strong></font><br>' . "\n";
  1275. print $OUTPUT->user_picture($user_data);
  1276. print '&nbsp;' . $user_data->firstname . '&nbsp;' . $user_data->lastname;
  1277. print '</td>' . "\n";
  1278. print '<td width=20% align=right>' . "\n";
  1279. print '<table width=50 cellpadding="0">';
  1280. print '<tr><td colspan=2 align=center>' . $link_up . '</td></tr>' . "\n";
  1281. print '<tr><td align=center>' . $link_previous . '</td>' . "\n";
  1282. print '<td align=center>' . $link_next . '</td></tr>' . "\n";
  1283. print '<td colspan=2 align=center>' . $link_down . '</td></tr>' . "\n";
  1284. print '</table>' . "\n";
  1285. print '</td></tr></table>' . "\n";
  1286. print $OUTPUT->box_end();
  1287. print $OUTPUT->box_start();
  1288. print '<table width=100% border=0 valign="top"><tr>' . "\n";
  1289. print '<td width=60% valign="top">' . "\n";
  1290. print '<strong>' . get_string('proposition', 'iassign') . '</strong>' . "\n";
  1291. print '<p>' . $iassign_statement_activity_item->proposition . '</p>' . "\n";
  1292. if ($iassign_statement_activity_item->automatic_evaluate == 1)
  1293. $resp = get_string('yes');
  1294. else
  1295. $resp = get_string('no');
  1296. print '<p>' . get_string('automatic_evaluate', 'iassign') . '&nbsp;' . $resp . '</p>' . "\n";
  1297. if ($iassign_statement_activity_item->show_answer == 1)
  1298. $resp = get_string('yes');
  1299. else
  1300. $resp = get_string('no');
  1301. print '<p>' . get_string('show_answer', 'iassign') . '&nbsp;' . $resp . '</p>' . "\n";
  1302. print '</td>';
  1303. if ($iassign_statement_activity_item->type_iassign == 3) { // type_iassign=3 => activity of type "exercise" - submit button and automatic evaluation
  1304. print '<td width=40% valign="top" align="left">';
  1305. print '<strong>' . get_string('status', 'iassign') . '</strong>' . "\n";
  1306. // check status of solution sent by the student
  1307. if ($iassign_submission) {
  1308. switch ($iassign_submission->status) {
  1309. case 3 :
  1310. print iassign_icons::insert('correct') . '&nbsp;' . get_string('correct', 'iassign') . '&nbsp;' . $comment;
  1311. break;
  1312. case 2 :
  1313. print iassign_icons::insert('incorrect') . '&nbsp;' . get_string('incorrect', 'iassign') . '&nbsp;' . $comment;
  1314. break;
  1315. case 1 :
  1316. print iassign_icons::insert('post') . '&nbsp;' . get_string('post', 'iassign') . '&nbsp;' . $comment;
  1317. break;
  1318. default :
  1319. print iassign_icons::insert('not_post') . '&nbsp;' . get_string('not_post', 'iassign') . '&nbsp;' . $comment;
  1320. $last_iassign = get_string('no_iLM_PARAM_ArchiveContent', 'iassign');
  1321. } // switch ($iassign_submission->status)
  1322. }
  1323. else { // if ($iassign_submission)
  1324. print iassign_icons::insert('not_post') . '&nbsp;' . get_string('not_post', 'iassign') . '&nbsp;' . $comment;
  1325. $last_iassign = get_string('no_iLM_PARAM_ArchiveContent', 'iassign');
  1326. }
  1327. // update_status
  1328. if ($iassign_submission && $iassign_submission->experiment > 0) {
  1329. $edit_status = $CFG->wwwroot . "/mod/iassign/view.php?action=edit_status&id=" . $id . "&userid_iassign=" . $this->userid_iassign . "&iassign_current=" . $this->activity->get_activity()->id . "&iassign_submission_current=" . $this->iassign_submission_current . "&row=" . ($row) . "&column=" . ($column);
  1330. print " <script type='text/javascript'>
  1331. //<![CDATA[
  1332. function overwriteStatus (newstatus) {
  1333. if (confirm('" . get_string('confirm_change_situation', 'iassign') . "')) {
  1334. document.formEditStatus.return_status.value=newstatus;
  1335. document.formEditStatus.submit();
  1336. }
  1337. else
  1338. document.formEditStatus.return_status.value=-1;
  1339. }
  1340. //]]>
  1341. </script>";
  1342. print "<form name='formEditStatus' method='post' action='$edit_status' enctype='multipart/form-data'>\n";
  1343. print ' <font color="blue"><strong>' . get_string('changeto', 'iassign') . "</strong></font>\n";
  1344. print " <select name='status' onchange= 'overwriteStatus(this.value)'>\n" . " <option value=\"3\">" . get_string('correct', 'iassign') . "</option>\n" . " <option value=\"2\">" . get_string('incorrect', 'iassign') . "</option>\n" . " <option value=\"1\">" . get_string('post', 'iassign') . "</option>\n" . " <option value=\"0\">" . get_string('not_post', 'iassign') . "</option>\n" . " <option value=\"-1\" selected>" . get_string('newsituation', 'iassign') . "</option>\n" . " </select>\n";
  1345. print " <input type='hidden' name='return_status'>\n";
  1346. print "</form>\n";
  1347. print '<p><strong>' . get_string('grade_student', 'iassign') . '</strong>&nbsp;' . $iassign_submission->grade . "</p>\n";
  1348. print '<p><strong>' . get_string('grade_iassign', 'iassign') . '</strong>&nbsp;' . $iassign_statement_activity_item->grade . "</p>\n";
  1349. $edit_grade = $CFG->wwwroot . "/mod/iassign/view.php?action=edit_grade&id=" . $id . "&userid_iassign=" . $this->userid_iassign . "&iassign_current=" . $this->activity->get_activity()->id . "&iassign_submission_current=" . $this->iassign_submission_current . "&row=" . ($row) . "&column=" . ($column);
  1350. print "
  1351. <script type='text/javascript'>
  1352. //<![CDATA[
  1353. function overwriteGrade (newgrade,maxgrade) {
  1354. if (newgrade<0 || newgrade>maxgrade) {
  1355. alert('" . get_string('erro_grade', 'iassign') . " '+maxgrade)
  1356. document.formEditGrade.return_grade.value=-1;
  1357. document.formEditGrade.submit();
  1358. }
  1359. else {
  1360. document.formEditGrade.return_grade.value=newgrade;
  1361. document.formEditGrade.submit();
  1362. }
  1363. }
  1364. //]]>
  1365. </script>";
  1366. print "<form name='formEditGrade' method='post' action='$edit_grade' enctype='multipart/form-data'>\n";
  1367. print ' <font color="blue"><strong>' . get_string('changeto', 'iassign') . "</strong></font>" . "\n";
  1368. print " <input type='text' name='grade' size='6'>";
  1369. print " <input type='hidden' name='return_grade'> ";
  1370. print " <input type=button value='" . get_string('confirm', 'iassign') . "' onClick = 'overwriteGrade(grade.value," . $iassign_statement_activity_item->grade . ")' " . " title='" . get_string('confirm_new_grade', 'iassign') . "'>\n";
  1371. print "</form>";
  1372. $url_answer = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . "action=download_answer&iassign_submission_id=" . $iassign_submission->id . "&id=" . $id;
  1373. print '<p><strong>' . get_string('experiment', 'iassign') . '</strong>&nbsp;' . $iassign_submission->experiment . ' <a href="' . $url_answer . '">' . iassign_icons::insert('download_assign') . '</a></p>';
  1374. print '<p><strong>' . get_string('timemodified', 'iassign') . '</strong>&nbsp;' . userdate($iassign_submission->timemodified) . '</p>';
  1375. $teacher = $DB->get_record("user", array('id' => $iassign_submission->teacher));
  1376. if ($teacher)
  1377. print '<p><strong>' . get_string('last_modification', 'iassign') . '</strong>&nbsp;' . $teacher->firstname . '</p>' . "\n";
  1378. } // if ($iassign_submission->experiment > 0)
  1379. print '</td>';
  1380. } // if ($iassign_statement_activity_item->type_iassign == 3)
  1381. print '</tr></table>';
  1382. print $OUTPUT->box_end();
  1383. $USER->iassignEdit = $this->bottonPost;
  1384. if ($iassign_submission && $allow_resubmission) {
  1385. // Put the iLM to
  1386. print $OUTPUT->box_start();
  1387. print '<p><strong>' . $last_iassign . '</strong></p>';
  1388. //d if ($ilm->confirms_jar ( $iassign_statement_activity_item->file, $iassign_ilm->file_jar, $this->cm->id )) {
  1389. $enderecoPOST = "";
  1390. // Prepare tags to present the iLM
  1391. print $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, false);
  1392. //d } // if ($this->confirms_jar($iassign_statement_activity_item->file, $iassign_ilm->file_jar))
  1393. print $OUTPUT->box_end();
  1394. } else { // if ($iassign_submission && $allow_resubmission) - techer view student answer
  1395. // ATTENTION: exception used by iGeom (exercise with "script")
  1396. $loadTeacherActivity = false; // use 'true' whenever 'special_param1 == 1'
  1397. if (substr($ilm_name, 0, 5)=="igeom") {
  1398. if ($iassign_statement_activity_item->special_param1 == 1) // if 1 => use the teacher activity with some complement from the student (in iGeom = GEO + SCR)
  1399. $loadTeacherActivity = true;
  1400. }
  1401. print $OUTPUT->box('<p><strong>' . $last_iassign . '</strong></p>' . "\n");
  1402. if (!isset($enderecoPOST)) $enderecoPOST = "";
  1403. // Prepare tags to present the iLM
  1404. print $OUTPUT->box($ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $loadTeacherActivity));
  1405. }
  1406. //2020 Eliminei daqui o codigo para colocar o quadro com area para enivar e ler comentarios
  1407. //2020 Estava subordinado ao: elseif (($this->action == 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id))
  1408. //2020 e com isso NAO permitia aluno ter o quadro para envio!
  1409. //2020 Foi para final dessa funcao 'view_iassign_current()'
  1410. } // elseif (($this->action == 'viewsubmission') && has_capability('mod/iassign:evaluateiassign', $USER->context, $USER->id))
  1411. // *** (end) Teacher access (view learner's submission to the activity)
  1412. // *** Student access (view the activity)
  1413. elseif (has_capability('mod/iassign:submitiassign', $USER->context, $USER->id)) {
  1414. // It could be the learner (he could send or resend the activity)
  1415. // ---> access student
  1416. $time_now = time();
  1417. if ($iassign_statement_activity_item->type_iassign == 1) { // type_iassign=1 => activity of type "exemple" - no submit button
  1418. // activity of type example - not submit button for submission
  1419. $this->view_iassign = true;
  1420. //TODO rever esta condicao para iMA que nao fazem autoavaliacao
  1421. } elseif ($iassign_statement_activity_item->type_iassign == 2 && $iassign_ilm->evaluate == 1) {
  1422. // activity of type test - iLM automatic evaluator - submit button for submission
  1423. if ($iassign_statement_activity_item->timeavailable < $time_now && $iassign_statement_activity_item->timedue > $time_now) { // activity within of deadline
  1424. $this->bottonPost = 1;
  1425. $this->view_iassign = true;
  1426. } else
  1427. $this->view_iassign = false;
  1428. } elseif ($iassign_statement_activity_item->type_iassign == 3) { // type_iassign=3 => activity of type "exercise" - submit button and automatic evaluation
  1429. // activity of type exercise (learner can send his answer, if yet open...)
  1430. $this->view_iassign = true;
  1431. if ($iassign_statement_activity_item->timeavailable > $time_now) // due date expired
  1432. $this->view_iassign = false;
  1433. elseif ($iassign_statement_activity_item->timedue > $time_now || $iassign_statement_activity_item->preventlate == 1) { // activity within due date
  1434. $this->bottonPost = 1; // allow the submit button
  1435. // Look at table 'iassign_submission' ('iassign_submission.experiment' is the number of submissions)
  1436. $repeat_title = ' title="' . get_string('repeat_alt', 'iassign') . '" '; // 'Use this button to redo the activity'
  1437. if (!$iassign_submission || $this->action == 'repeat' || ($iassign_submission && $allow_resubmission)) {
  1438. if (!$iassign_submission) {
  1439. $str_iassign_submission_id = '';
  1440. $str_iassign_submission_answer = '';
  1441. }
  1442. else {
  1443. $str_iassign_submission_id = $iassign_submission->id;
  1444. $str_iassign_submission_answer = $iassign_submission->answer;
  1445. }
  1446. if ($this->action != 'repeat') {
  1447. $repeat = "<a href='view.php?action=repeat&id="
  1448. . $id . "&userid_iassign=" . $USER->id . "&iassign_current="
  1449. . $this->activity->get_activity()->id . "&iassign_submission_current="
  1450. . $str_iassign_submission_id . "'" . $repeat_title . ">"
  1451. . iassign_icons::insert('repeat') . '&nbsp;' . get_string('repeat', 'iassign') . "</a>\n";
  1452. }
  1453. $this->bottonPost = 1;
  1454. $this->write_solution = 1; // can register his submission
  1455. $student_answer = $str_iassign_submission_answer;
  1456. }
  1457. else { // if (!$iassign_submission || $this->action == 'repeat' || ($iassign_submission && $allow_resubmission))
  1458. // In 'class ilm : view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view)'
  1459. $last_iassign = get_string('last_iassign', 'iassign');
  1460. if ($iassign_submission) {
  1461. $repeat = "<a href='view.php?action=repeat&id=" . $id . "&userid_iassign=$USER->id&iassign_current=" . $this->activity->get_activity()->id .
  1462. "&iassign_submission_current=" . $iassign_submission->id . "'" . $repeat_title . ">" . iassign_icons::insert('repeat') . '&nbsp;' . get_string('repeat', 'iassign') . "</a>\n";
  1463. $student_answer = $iassign_submission->answer;
  1464. } else {
  1465. $repeat = "<a href='view.php?action=repeat&id=" . $id . "&userid_iassign=$USER->id&iassign_current=" . $this->activity->get_activity()->id .
  1466. "'" . $repeat_title . ">" . iassign_icons::insert('repeat') . '&nbsp;' . get_string('repeat', 'iassign') . "</a>\n";
  1467. }
  1468. }
  1469. } elseif ($iassign_statement_activity_item->test == 1) { // allowed to test after expired due date
  1470. if ($this->action == 'repeat' || ($iassign_submission && $iassign_submission->experiment < 1)) {
  1471. $this->bottonPost = 1;
  1472. $this->write_solution = 0; // if iVProg it is valid to the learner to edit previous solution
  1473. } else {
  1474. $last_iassign = get_string('last_iassign', 'iassign');
  1475. if ($iassign_submission) {
  1476. $repeat = "<a href='view.php?action=repeat&id=" . $id . "&userid_iassign=$USER->id&iassign_current=" . $this->activity->get_activity()->id .
  1477. "&iassign_submission_current=" . $iassign_submission->id . "'" . $repeat_title . ">" . iassign_icons::insert('repeat') . '&nbsp;' . get_string('repeat', 'iassign') . "</a>\n";
  1478. $student_answer = $iassign_submission->answer;
  1479. } else {
  1480. // Symbol of "redo activity"
  1481. $repeat = "<a href='view.php?action=repeat&id=" . $id . "&userid_iassign=$USER->id&iassign_current=" . $this->activity->get_activity()->id .
  1482. "'" . $repeat_title . ">" . iassign_icons::insert('repeat') . '&nbsp;' . get_string('repeat', 'iassign') . "</a>\n";
  1483. }
  1484. }
  1485. } // elseif ($iassign_statement_activity_item->test == 1)
  1486. elseif ($iassign_statement_activity_item->test == 0)
  1487. $this->view_iassign = false;
  1488. } // elseif ($iassign_statement_activity_item->type_iassign == 3)
  1489. if ($iassign_submission)
  1490. $param_aux = "action=get_answer&iassign_submission_current=" . $iassign_submission->id . "&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id .
  1491. "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id;
  1492. else
  1493. $param_aux = "action=get_answer&id=" . $id . "&iassign_current=" . $this->activity->get_activity()->id . "&write_solution=" . $this->write_solution . "&userid_iassign=" . $USER->id;
  1494. $enderecoPOST = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . $param_aux;
  1495. $this->view_legend_icons();
  1496. $this->activity->view_dates();
  1497. if ($this->view_iassign) { // Box 5 to 'proposition' - open
  1498. print $OUTPUT->box_start();
  1499. print '<table width=100% border=0 valign="top">' . "\n";
  1500. print '<tr><td width=60% valign="top">' . "\n";
  1501. print '<strong>' . get_string('proposition', 'iassign') . '</strong>' . "\n";
  1502. print '<p>' . $iassign_statement_activity_item->proposition . '</p>' . "\n";
  1503. $flag_dependency = true;
  1504. if ($iassign_statement_activity_item->type_iassign == 3) {
  1505. if ($iassign_statement_activity_item->dependency == 0) {
  1506. print '<strong>' . get_string('independent_activity', 'iassign') . '</strong>' . "\n";
  1507. } else {
  1508. $dependencys = explode(';', $iassign_statement_activity_item->dependency);
  1509. print '<p><strong>' . get_string('dependency', 'iassign') . '</strong></p>' . "\n";
  1510. foreach ($dependencys as $dependency) {
  1511. if ($dependency) {
  1512. $dependencyiassign = $DB->get_record("iassign_statement", array("id" => $dependency));
  1513. $dependencysubmissions = $DB->get_record("iassign_submission", array("iassign_statementid" => $dependencyiassign->id, 'userid' => $USER->id));
  1514. if ($dependencysubmissions) {
  1515. if ($dependencysubmissions->status == 3)
  1516. $icon = iassign_icons::insert('correct');
  1517. elseif ($dependencysubmissions->status == 2) {
  1518. $icon = iassign_icons::insert('incorrect');
  1519. $flag_dependency = false;
  1520. } elseif ($dependencysubmissions->status == 1) {
  1521. $icon = iassign_icons::insert('post');
  1522. $flag_dependency = false;
  1523. } elseif ($dependencysubmissions->status == 0) {
  1524. $icon = iassign_icons::insert('not_post');
  1525. $flag_dependency = false;
  1526. }
  1527. } else {
  1528. $icon = iassign_icons::insert('not_post');
  1529. $flag_dependency = false;
  1530. } // if ($dependencysubmissions)
  1531. print '<p>&nbsp;' . $icon . $dependencyiassign->name . '</p>' . "\n";
  1532. } // if ($dependency)
  1533. } // foreach ($dependencys as $dependency)
  1534. } // if ($iassign_statement_activity_item->dependency == 0)
  1535. } // if ($iassign_statement_activity_item->type_iassign == 3)
  1536. if ($flag_dependency == false) {
  1537. print '<strong>' . get_string('message_dependency', 'iassign') . '</strong>' . "\n";
  1538. $this->view_iassign = false;
  1539. print '</tr></table>' . "\n";
  1540. }
  1541. else {
  1542. $this->view_iassign = true;
  1543. print '</td>' . "\n";
  1544. } // if ($flag_dependency == false)
  1545. if ($this->view_iassign) { // it is already inside 'if ($this->view_iassign)' but the dependency check could had change its value (above)
  1546. if ($iassign_statement_activity_item->type_iassign == 3) { // activity is present only if exercise
  1547. // receiver=1 - message to teacher
  1548. // receiver=2 - message to student
  1549. if ($iassign_submission) {
  1550. $verify_message = $DB->get_record('iassign_submission_comment', array('iassign_submissionid' => $iassign_submission->id, 'return_status' => 0, 'receiver' => 2));
  1551. if ($verify_message)
  1552. $comment = iassign_icons::insert('comment_unread');
  1553. }
  1554. print '<td width=40% valign="top" align="left">';
  1555. print '<strong>' . get_string('status', 'iassign') . '</strong>' . "\n";
  1556. if ($iassign_statement_activity_item->show_answer == 1) {
  1557. // check status of solution sent by the student
  1558. if ($iassign_submission) {
  1559. switch ($iassign_submission->status) {
  1560. case 3 :
  1561. print iassign_icons::insert('correct') . '&nbsp;' . get_string('correct', 'iassign') . '&nbsp;' . $comment;
  1562. break;
  1563. case 2 :
  1564. print iassign_icons::insert('incorrect') . '&nbsp;' . get_string('incorrect', 'iassign') . '&nbsp;' . $comment;
  1565. break;
  1566. case 1 :
  1567. print iassign_icons::insert('post') . '&nbsp;' . get_string('post', 'iassign') . '&nbsp;' . $comment;
  1568. break;
  1569. default :
  1570. print iassign_icons::insert('not_post') . '&nbsp;' . get_string('not_post', 'iassign') . '&nbsp;' . $comment;
  1571. $repeat = "";
  1572. $last_iassign = "";
  1573. } // switch ($iassign_submission->status)
  1574. } else {
  1575. print iassign_icons::insert('not_post') . '&nbsp;' . get_string('not_post', 'iassign') . '&nbsp;' . $comment;
  1576. $repeat = "";
  1577. $last_iassign = "";
  1578. }
  1579. if ($iassign_submission && $iassign_submission->experiment > 0) {
  1580. print '<p><strong>' . get_string('grade_student', 'iassign') . ':</strong>&nbsp;' . $iassign_submission->grade;
  1581. print '&nbsp;&nbsp;(' . get_string('grade_iassign', 'iassign') . ':&nbsp;' . $iassign_statement_activity_item->grade . ')</p>' . "\n";
  1582. print '<p><strong>' . get_string('experiment_student', 'iassign') . '</strong>&nbsp;' . $iassign_submission->experiment;
  1583. if ($iassign_statement_activity_item->max_experiment == 0)
  1584. print '&nbsp;&nbsp(' . get_string('experiment_iassign', 'iassign') . '&nbsp;' . get_string('ilimit', 'iassign') . ')</p>' . "\n";
  1585. else {
  1586. print '&nbsp;&nbsp(' . get_string('experiment_iassign', 'iassign') . '&nbsp;' . $iassign_statement_activity_item->max_experiment . ')</p>' . "\n";
  1587. if ($iassign_submission->experiment >= $iassign_statement_activity_item->max_experiment) {
  1588. $repeat = "";
  1589. $last_iassign .= "&nbsp;<font color=red>" . get_string('attempts_exhausted', 'iassign') . '</font>' . "\n";
  1590. $this->bottonPost = 0;
  1591. $this->write_solution = 0;
  1592. }
  1593. } // else if ($iassign_statement_activity_item->max_experiment == 0)
  1594. print '<p><strong>' . get_string('timemodified', 'iassign') . '</strong>&nbsp;' . userdate($iassign_submission->timemodified) . '</p>' . "\n";
  1595. $teacher = $DB->get_record("user", array('id' => $iassign_submission->teacher));
  1596. if ($teacher)
  1597. print '<p><strong>' . get_string('last_modification', 'iassign') . '</strong>&nbsp;' . $teacher->firstname . '</p>' . "\n"; // "
  1598. } // if ($iassign_submission && $iassign_submission->experiment > 0)
  1599. } // if ($iassign_statement_activity_item->show_answer==1)
  1600. else {
  1601. if (!isset($iassign_submission) || $iassign_submission->status == 0) {
  1602. print iassign_icons::insert('not_post') . '&nbsp;' . get_string('not_post', 'iassign') . '&nbsp;' . $comment;
  1603. $repeat = "";
  1604. $last_iassign = "";
  1605. } elseif ($iassign_submission->status == 1) {
  1606. print iassign_icons::insert('post') . '&nbsp;' . get_string('post', 'iassign') . '&nbsp;' . $comment;
  1607. }
  1608. }
  1609. print '</td>';
  1610. } // if ($iassign_statement_activity_item->type_iassign == 3)
  1611. print '</tr></table>' . "\n";
  1612. // Presents the iLM
  1613. print '<table width=100% border=0 valign="top">' . "\n";
  1614. print '<td width=80% align="left">';
  1615. print '<strong>' . $last_iassign . ' ' . get_string('repeat_msg', 'iassign') . '</strong></td>' . "\n"; // If you want to do this activity from the beginning again, use the \"Redo button\".
  1616. print '<td width=20% align="rigth">';
  1617. //D $ilm_name = strtolower($this->ilm->name); //if (substr($ilm_name, 0, 5) == "igeom") ; // is iGeom exercise
  1618. print $repeat; // symbol of "redo activity"
  1619. print '</td></tr></table>' . "\n";
  1620. //2019 print $OUTPUT->box_end(); // closing Box 5 but sometimes it does reach this point - see it at the end of 'if ($this->view_iassign)'
  1621. $output = '';
  1622. if (!$iassign_ilm) {
  1623. $iassign_ilm = new stdClass();
  1624. $iassign_ilm->file_jar = "";
  1625. }
  1626. $output .= $OUTPUT->box_start();
  1627. $USER->iassignEdit = $this->bottonPost;
  1628. // ---
  1629. // Presents the iLM
  1630. // Prepare tags to present the iLM
  1631. if (!$iassign_submission || $this->action == 'repeat') { // or $iassign_submission->answer==0
  1632. $student_answer = ""; //?
  1633. $output .= $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, true); // presents iLM and true => see the teacher file
  1634. } elseif ($iassign_submission && $iassign_submission->answer == '0') {
  1635. $student_answer = "";
  1636. $output .= $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, true); // presents iLM
  1637. } else {
  1638. // When student is redoing his activity
  1639. // ATTENTION: exception used by iGeom (exercise with "script")
  1640. $loadTeacherActivity = false; // trocar para 'true' se 'special_param1 == 1'
  1641. if (substr($ilm_name, 0, 5)=="igeom") {
  1642. if ($iassign_statement_activity_item->special_param1 == 1) // if 1 => use the teacher activity with some complement from the student (in iGeom = GEO + SCR)
  1643. $loadTeacherActivity = true;
  1644. }
  1645. $output .= $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $loadTeacherActivity); // presents iLM
  1646. }
  1647. if ($iassign_statement_activity_item->type_iassign == 3) {
  1648. $history_comment = '';
  1649. if ($iassign_submission) {
  1650. $history_comment = $this->search_comment_submission($iassign_submission->id);
  1651. }
  1652. if (!empty($history_comment)) {
  1653. $output .= "\n <table id='outlinetable' class='generaltable boxaligncenter' cellpadding='5' width='100%'>\n" .
  1654. " <tr><th>" . get_string('history_comments', 'iassign') . "</th></tr>\n"; //
  1655. $output .= $history_comment;
  1656. $output .= "</table>\n";
  1657. }
  1658. $output .= "</form></center>\n";
  1659. $output .= $OUTPUT->box_end();
  1660. print $output;
  1661. $only_one_send_button = 1; // avoid put comment frame again (bellow)
  1662. } else { // if ($iassign_statement_activity_item->type_iassign == 3)
  1663. $output .= $OUTPUT->box_end();
  1664. print $output;
  1665. }
  1666. } // if ($this->view_iassign)
  1667. print $OUTPUT->box_end(); // Box 5 to 'proposition' - close
  1668. } // if ($this->view_iassign)
  1669. } // elseif (has_capability('mod/iassign:submitiassign', $USER->context, $USER->id))
  1670. else
  1671. if (isguestuser()) { // else of elseif (has_capability('mod/iassign:submitiassign', $USER->context, $USER->id))
  1672. print($OUTPUT->notification(get_string('no_permission_iassign', 'iassign'), 'notifyproblem'));
  1673. print '<table width=100% border=0 valign="top">' . "\n";
  1674. print '<tr><td width=60% valign="top">' . "\n";
  1675. print '<strong>' . get_string('proposition', 'iassign') . '</strong>' . "\n";
  1676. print '<p>' . $iassign_statement_activity_item->proposition . '</p>' . "\n";
  1677. print '</tr></table>' . "\n";
  1678. $student_answer = "";
  1679. $enderecoPOST = "";
  1680. // Prepare tags to present the iLM
  1681. $output = $ilm->view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, true);
  1682. print $output;
  1683. }
  1684. //2020 Quadro com area para enivar e ler comentarios veio para este ponto para permitir todos o terem
  1685. // $only_one_send_button is to avoid to put 2 copies of comments (area to send and see comments between teacher and student)
  1686. if ($only_one_send_button==0 && $iassign_statement_activity_item->type_iassign == 3) { // type_iassign=3 => activity of type "exercise" - submit button and automatic evaluation
  1687. // Put a block with area to sent/answer comments
  1688. $output = '';
  1689. $history_comment = '';
  1690. $row = optional_param('row', 0, PARAM_INT);
  1691. $column = optional_param('column', 0, PARAM_INT);
  1692. if ($iassign_submission) {
  1693. $enderecoPOSTcomment = "" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=newcomment&iassign_current=" . $this->activity->get_activity()->id .
  1694. "&iassign_submission_current=" . $iassign_submission->id . "&userid_iassign=" . $this->userid_iassign . "&row=" . ($row) . "&column=" . ($column);
  1695. $history_comment = $this->search_comment_submission($iassign_submission->id);
  1696. }
  1697. else {
  1698. $enderecoPOSTcomment = "" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=newcomment&iassign_current=" . $this->activity->get_activity()->id .
  1699. "&userid_iassign=" . $this->userid_iassign . "&row=" . ($row) . "&column=" . ($column);
  1700. }
  1701. $output .= $OUTPUT->box_start();
  1702. $output .= "<center><form name='formEnvioComment' id='formEnvioComment1' method='post' action='$enderecoPOSTcomment' enctype='multipart/form-data'>\n";
  1703. $output .= "<p><textarea rows='2' cols='60' name='submission_comment'></textarea></p>\n";
  1704. $output .= "<p><input type=submit value='" . get_string('submit_comment', 'iassign') . "'\></p>\n";
  1705. $output .= "</form></center>\n";
  1706. if (!empty($history_comment)) {
  1707. $output .= " <table id='outlinetable' class='generaltable boxaligncenter' cellpadding='5' width='100%'> \n";
  1708. $output .= " <tr><th>" . get_string('history_comments', 'iassign') . "</th></tr>";
  1709. $output .= $history_comment;
  1710. $output .= "</table>";
  1711. }
  1712. $output .= $OUTPUT->box_end();
  1713. print $output;
  1714. } // if ($iassign_statement_activity_item->type_iassign == 3)
  1715. // final block 'studant'
  1716. print $OUTPUT->footer();
  1717. die();
  1718. } // function view_iassign_current()
  1719. /// Export the data from performance report into CSV file format
  1720. function export_csv () {
  1721. global $USER, $CFG, $DB, $OUTPUT;
  1722. $str = "";
  1723. $fields = "student_id, student_name";
  1724. // Finding all iassign activities for the iassign:
  1725. $id = $this->cm->id;
  1726. $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array('iassignid' => $this->iassign->id), "position ASC");
  1727. $c = 1;
  1728. foreach ($iassign_list as $iassign) {
  1729. $fields .= ", activity_id_$c, activity_name_$c, total_submissions_activity_$c, grade_activity_$c"
  1730. . ", status_activity_$c, ilm_id_activity_$c, ilm_name_activity_$c";
  1731. $c ++;
  1732. }
  1733. // Finding enrolled students:
  1734. $params = array('shortname' => 'student');
  1735. $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {role} s WHERE s.shortname = :shortname", $params);
  1736. $context = context_course::instance($this->course->id);
  1737. $params = array('contextid' => $context->id, 'roleid' => $role->id);
  1738. $students = $DB->get_records_sql(
  1739. "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " .
  1740. " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " .
  1741. " ORDER BY a.firstname ASC,a.lastname ASC", $params);
  1742. foreach ($students as $student) {
  1743. $str .= $student->userid . ',';
  1744. $str .= '"' . $student->firstname . ' ' . $student->lastname . '"';
  1745. foreach ($iassign_list as $iassign) {
  1746. $str .= ',' . $iassign->id . ',';
  1747. $str .= '"' . $iassign->name . '",';
  1748. $student_submissions = $DB->get_record("iassign_submission", array('iassign_statementid' => $iassign->id, 'userid' => $student->userid));
  1749. $str .= $student_submissions->experiment . ',';
  1750. $str .= $student_submissions->grade . ',';
  1751. switch ($student_submissions->status) {
  1752. case 3:
  1753. $str .= '"correct",';
  1754. break;
  1755. case 2:
  1756. $str .= '"incorrect",';
  1757. break;
  1758. case 1:
  1759. $str .= '"post",';
  1760. break;
  1761. case 0:
  1762. $str .= '"not_post",';
  1763. break;
  1764. }
  1765. $str .= $iassign->iassign_ilmid . ',';
  1766. $ilm_activity = $DB->get_record("iassign_ilm", array('id' => $iassign->iassign_ilmid));
  1767. $str .= '"' . $ilm_activity->name . '"';
  1768. }
  1769. $str .= "\n";
  1770. }
  1771. $str = $fields . "\n" . $str;
  1772. header("Content-disposition: attachment; filename=report.csv");
  1773. header("Pragma: no-cache");
  1774. header("Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0");
  1775. header('Content-Length: ' . strlen($str));
  1776. header('Connection: close');
  1777. print $str;
  1778. flush();
  1779. } // function export_csv()
  1780. /// Display report of performance
  1781. function report () {
  1782. global $USER, $CFG, $DB, $OUTPUT;
  1783. $id = $this->cm->id;
  1784. $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array('iassignid' => $this->iassign->id), "position ASC");
  1785. if ($this->action != 'print') {
  1786. $title = get_string('report', 'iassign');
  1787. print $OUTPUT->header();
  1788. } // if ($this->action != 'print')
  1789. print $OUTPUT->box_start();
  1790. $this->view_legend_icons();
  1791. print '<p>' . get_string('ps_experiment', 'iassign') . '</p>';
  1792. print '<p>' . get_string('ps_comment', 'iassign') . '</p>';
  1793. print $OUTPUT->box_end();
  1794. if ($this->action == 'print')
  1795. print '<table border=1 width="100%">' . "\n";
  1796. else
  1797. print '<table id="outlinetable" class="generaltable boxaligncenter" cellpadding="5" width="100%">' . "\n";
  1798. print '<tr><th colspan=2 class="header c1">' . iassign_utils::remove_code_message($this->iassign->name) . '</th></tr>' . "\n";
  1799. // $num = array();
  1800. $i = 1;
  1801. $num = array();
  1802. foreach ($iassign_list as $iassign) {
  1803. $test_exercise = "";
  1804. $iassign_submission = $DB->get_records("iassign_submission", array("iassign_statementid" => $iassign->id));
  1805. if (($iassign_submission) && $iassign->type_iassign < 3) {
  1806. $test_exercise = "&nbsp;<b>(" . get_string('iassign_exercise', 'iassign') . ")</b>";
  1807. } // if (($iassign_submission) && $iassign->type_iassign < 3)
  1808. if ($iassign->type_iassign == 3 || ($iassign_submission)) {
  1809. $num[$i] = new stdClass();
  1810. $num[$i]->name = $iassign->name;
  1811. $num[$i]->id = $i;
  1812. $num[$i]->iassignid = $iassign->id;
  1813. print ' <tr >' . "\n";
  1814. print " <td class=\"cell c1 numviews\" width=5% align='center'><strong>" . $num[$i]->id . "</strong></td>\n";
  1815. print "<td class=\"cell c0 actvity\">";
  1816. print '&nbsp;' . $num[$i]->name . '&nbsp;' . $test_exercise . "</td>";
  1817. print ' </tr>' . "\n";
  1818. $i ++;
  1819. } // if ($iassign->type_iassign == 3 || ($iassign_submission))
  1820. } // foreach ($iassign_list as $iassign)
  1821. print "</table>";
  1822. print "<p></p>";
  1823. if ($this->action == 'print')
  1824. print '<table border=1 width="100%">' . "\n";
  1825. else
  1826. print '<table id="outlinetable" class="generaltable boxaligncenter" cellpadding="5" width="100%">' . "\n";
  1827. $context = context_course::instance($this->course->id);
  1828. if ($i > 1) {
  1829. // $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {$CFG->prefix}role s WHERE s.shortname = 'student'");
  1830. $params = array('shortname' => 'student');
  1831. $role = $DB->get_record_sql(
  1832. "SELECT s.id, s.shortname FROM {role} s " .
  1833. " WHERE s.shortname = :shortname", $params);
  1834. // $students = $DB->get_records_sql("SELECT s.userid, a.firstname, a.lastname FROM {$CFG->prefix}role_assignments s, {$CFG->prefix}user a WHERE s.contextid = '$context->id' AND s.userid = a.id AND s.roleid = '$role->id' ORDER BY a.firstname ASC,a.lastname ASC");
  1835. $params = array('contextid' => $context->id, 'roleid' => $role->id);
  1836. $students = $DB->get_records_sql(
  1837. "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " .
  1838. " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " .
  1839. " ORDER BY a.firstname ASC,a.lastname ASC", $params);
  1840. print '<tr><th class="header c1">' . get_string('students', 'iassign') . '</th>' . "\n";
  1841. for ($j = 1; $j < $i; $j ++) {
  1842. $sum_iassign_correct[$j] = 0;
  1843. print '<th class="header c1" scope="col">' . $num[$j]->id . '</th>' . "\n"; // <th class="header c1" scope="col">
  1844. }
  1845. print '<th class="header c1" width=5%> ' . get_string('functions', 'iassign') . '</th>';
  1846. $sum_iassign = $j - 1;
  1847. print '</tr>' . "\n";
  1848. $total = 0;
  1849. $sum_student = 0;
  1850. $comment = iassign_icons::insert('comment_read');
  1851. $sum_comment = 0;
  1852. $sum_correct_iassign = array();
  1853. $sum_correct_student = array();
  1854. $USER->matrix_iassign = array();
  1855. if ($students) {
  1856. $w = 0;
  1857. foreach ($students as $tmp) {
  1858. $users_array[$w] = $tmp;
  1859. $w ++;
  1860. }
  1861. for ($x = 0; $x < $w; $x ++) {
  1862. print '<tr>' . "\n";
  1863. $sum_student ++;
  1864. $name = $users_array[$x]->firstname . '&nbsp;' . $users_array[$x]->lastname;
  1865. print ' <td >' . $name . '</td>' . "\n";
  1866. $total_student = 0;
  1867. $tentativas = 0;
  1868. for ($j = 1; $j < $i; $j ++) {
  1869. $sum_comment = 0;
  1870. $student_submissions = $DB->get_record("iassign_submission", array('iassign_statementid' => $num[$j]->iassignid, 'userid' => $users_array[$x]->userid)); // data about student solution
  1871. print ' <td valign="bottom" align="center">' . "\n";
  1872. if ($student_submissions) {
  1873. $last_solution_submission = " title=\"" . userdate($student_submissions->timemodified) . "\" "; // timemodified: time of the last student solution
  1874. $tentativas = $student_submissions->experiment;
  1875. // $student_submissions_comment = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {$CFG->prefix}ia_assign_submissions_comment WHERE iassign_submissionid = '$student_submissions->id'");
  1876. $params = array('iassign_submissionid' => $student_submissions->id);
  1877. $student_submissions_comment = $DB->get_record_sql(
  1878. "SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " .
  1879. "WHERE iassign_submissionid = :iassign_submissionid", $params);
  1880. if ($student_submissions_comment)
  1881. foreach ($student_submissions_comment as $tmp)
  1882. $sum_comment = $tmp;
  1883. // informations to previous activities
  1884. if ($j - 1 < 1 || $j == $i)
  1885. $iassign_previous = "-1";
  1886. else
  1887. $iassign_previous = $num[$j - 1]->iassignid;
  1888. if ($x - 1 < 0 || $x == $w)
  1889. $user_previous = "-1";
  1890. else
  1891. $user_previous = $users_array[$x - 1]->userid;
  1892. // next
  1893. if ($i - 1 > $j)
  1894. $iassign_next = $num[$j + 1]->iassignid;
  1895. else
  1896. $iassign_next = "-1";
  1897. if ($w - 1 > $x)
  1898. $user_next = $users_array[$x + 1]->userid;
  1899. else
  1900. $user_next = "-1";
  1901. $position = "&row= $x&column=$j";
  1902. $url = "" . $CFG->wwwroot . "/mod/iassign/view.php?action=viewsubmission&id=" . $id . "&iassign_submission_current=" . $student_submissions->id .
  1903. "&userid_iassign=" . $users_array[$x]->userid . "&iassign_current=" . $num[$j]->iassignid . "&view_iassign=" . $this->view_iassign;
  1904. $url .= $position;
  1905. // receiver=1 - message to teacher
  1906. // receiver=2 - message to student
  1907. // $verify_message = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {$CFG->prefix}ia_assign_submissions_comment " .
  1908. // "WHERE iassign_submissionid = '$student_submissions->id' AND return_status='0' AND receiver='1'");
  1909. $params = array('iassign_submissionid' => $student_submissions->id, 'return_status' => '0', 'receiver' => '1');
  1910. $verify_message = $DB->get_record_sql(
  1911. "SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " .
  1912. "WHERE iassign_submissionid = :iassign_submissionid " .
  1913. " AND return_status= :return_status " .
  1914. " AND receiver= :receiver", $params);
  1915. if ($verify_message)
  1916. foreach ($verify_message as $tmp)
  1917. $sum_verify_message = $tmp;
  1918. if ($sum_verify_message > 0)
  1919. $comment = iassign_icons::insert('comment_unread');
  1920. else
  1921. $comment = iassign_icons::insert('comment_read');
  1922. if ($student_submissions->status == 3) {
  1923. $sum_iassign_correct[$j] ++;
  1924. $total_student ++;
  1925. $feedback = iassign_icons::insert('correct');
  1926. }
  1927. elseif ($student_submissions->status == 2) {
  1928. $feedback = iassign_icons::insert('incorrect');
  1929. }
  1930. elseif ($student_submissions->status == 1) {
  1931. $feedback = iassign_icons::insert('post');
  1932. }
  1933. elseif ($student_submissions->status == 0) {
  1934. $feedback = iassign_icons::insert('not_post');
  1935. }
  1936. if ($this->action != 'print') {
  1937. print '<table><tr>';
  1938. if ($tentativas > 0)
  1939. print '<td> <a href="' . $url . '" ' . $last_solution_submission . '>' . $feedback . '</a> &nbsp;(' . $tentativas . ')</td>' . "\n";
  1940. else
  1941. print '<td> <a href="' . $url . '" ' . $last_solution_submission . '>' . $feedback . '</a> </td>' . "\n";
  1942. print '<td> &nbsp; </td>';
  1943. print '</tr>' . "\n";
  1944. if ($sum_comment > 0 && $sum_verify_message > 0)
  1945. print '<tr><td colspan="2"> <a href="' . $url . '"> ' . $comment . '</a> &nbsp;(' . $sum_verify_message . '/' . $sum_comment . ') </td></tr>' . "\n";
  1946. else if ($sum_comment > 0)
  1947. print '<tr><td colspan="2"> <a href="' . $url . '"> ' . $comment . '</a> &nbsp;(' . $sum_comment . ') </td></tr>' . "\n";
  1948. print '</table>' . "\n";
  1949. }
  1950. if ($this->action == 'print')
  1951. print $feedback . '&nbsp;(' . $tentativas . ')<br>' . $comment . '&nbsp;(' . $sum_comment . ')&nbsp;' . "\n";
  1952. } // if ($student_submissions)
  1953. else { // if ($student_submissions)
  1954. // informations to browse previous activities
  1955. if ($j - 1 < 1 || $j == $i)
  1956. $iassign_previous = "-1";
  1957. else
  1958. $iassign_previous = $num[$j - 1]->iassignid;
  1959. if ($x - 1 < 0 || $x == $w)
  1960. $user_previous = "-1";
  1961. else
  1962. $user_previous = $users_array[$x - 1]->userid;
  1963. // next
  1964. if ($i - 1 > $j)
  1965. $iassign_next = $num[$j + 1]->iassignid;
  1966. else
  1967. $iassign_next = "-1";
  1968. if ($w - 1 > $x)
  1969. $user_next = $users_array[$x + 1]->userid;
  1970. else
  1971. $user_next = "-1";
  1972. $position = "&row= $x&column=$j";
  1973. $url = $CFG->wwwroot . "/mod/iassign/view.php?action=viewsubmission&id=" . $id . "&userid_iassign=" . $users_array[$x]->userid .
  1974. "&iassign_current=" . $num[$j]->iassignid . "&view_iassign=" . $this->view_iassign;
  1975. $url .= $position;
  1976. $feedback = iassign_icons::insert('not_post');
  1977. if ($this->action == 'print')
  1978. print $feedback . '&nbsp;(0)<br>' . $comment . '&nbsp;(' . $sum_comment . ')&nbsp;' . "\n";
  1979. else {
  1980. print '<table><tr>';
  1981. print '<td> <a href="' . $url . '">' . $feedback . '</a> </td>' . "\n";
  1982. print '<td> &nbsp; </td>';
  1983. print '</tr><tr>' . "\n";
  1984. print '<td> &nbsp;</td>';
  1985. if ($sum_comment > 0)
  1986. print '<td> <a href="' . $url . '">' . $comment . '</a> &nbsp;(' . $sum_comment . ') </td>' . "\n";
  1987. else
  1988. print '<td> &nbsp;</td>';
  1989. print '</tr></table>';
  1990. }
  1991. } // else if ($student_submissions)
  1992. $USER->matrix_iassign[$x][$j] = new stdClass();
  1993. $USER->matrix_iassign[$x][$j]->iassign_previous = $iassign_previous;
  1994. $USER->matrix_iassign[$x][$j]->user_previous = $user_previous;
  1995. $USER->matrix_iassign[$x][$j]->iassign_next = $iassign_next;
  1996. $USER->matrix_iassign[$x][$j]->user_next = $user_next;
  1997. if ($student_submissions)
  1998. $USER->matrix_iassign[$x][$j]->iassign_submission_current = $student_submissions->id;
  1999. else
  2000. $USER->matrix_iassign[$x][$j]->iassign_submission_current = 0;
  2001. print '</td>' . "\n";
  2002. } // for ($j=1; $j<$i; $j++)
  2003. $total = $total + $total_student;
  2004. $porcentagem = ($total_student / ($j - 1)) * 100;
  2005. if ($tentativas != 0 && $tentativas != null) {
  2006. $url_answer = "" . $CFG->wwwroot . "/mod/iassign/view.php?" . "action=download_all_answer&iassign_id=" . $this->iassign->id . "&userid=" . $users_array[$x]->userid . "&id=" . $id;
  2007. print ' <td align="center"><a href="' . $url_answer . '">' . iassign_icons::insert('download_all_assign') . '</a></td>' . "\n";
  2008. }
  2009. else {
  2010. print ' <td align="center">' . iassign_icons::insert('download_all_assign_disabled') . '</td>' . "\n";
  2011. }
  2012. print '</tr>' . "\n";
  2013. $sum_correct_student[$sum_student] = new stdClass();
  2014. $sum_correct_student[$sum_student]->name = $name;
  2015. $sum_correct_student[$sum_student]->sum = $total_student;
  2016. } // for ($x = 0; $x < $w; $x ++)
  2017. for ($i = 1; $i < $j; $i ++) {
  2018. if (is_null($sum_iassign_correct[$i]))
  2019. $sum_iassign_correct[$i] = 0;
  2020. $sum_correct_iassign[$i] = new stdClass();
  2021. $sum_correct_iassign[$i]->sum = $sum_iassign_correct[$i];
  2022. $sum_correct_iassign[$i]->name = $num[$i]->name;
  2023. }
  2024. // print '</tr></table>' . "\n";
  2025. }
  2026. } // if ($i>1)
  2027. else {
  2028. print_string('no_activity', 'iassign');
  2029. }
  2030. print "</table>\n";
  2031. if ($this->action != 'print')
  2032. print $OUTPUT->footer();
  2033. die();
  2034. } // function report()
  2035. /// Display graphics of performance
  2036. function stats () {
  2037. global $USER, $CFG, $DB, $OUTPUT;
  2038. $id = $this->cm->id;
  2039. $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array('iassignid' => $this->iassign->id), "position ASC");
  2040. if ($this->action != 'printstats')
  2041. $title = get_string('graphic', 'iassign');
  2042. $num = array();
  2043. $sum_correct_iassign = array();
  2044. $sum_correct_student = array();
  2045. $sum_student = 0;
  2046. $i = 1;
  2047. foreach ($iassign_list as $iassign) {
  2048. $iassign_submission = $DB->get_records("iassign_submission", array("iassign_statementid" => $iassign->id));
  2049. if ($iassign->type_iassign == 3) { // || ($iassign_submission)
  2050. $sum_iassign_correct[$i] = 0;
  2051. $num[$i] = new stdClass();
  2052. $num[$i]->name = $iassign->name;
  2053. $num[$i]->id = $i;
  2054. $num[$i]->iassignid = $iassign->id;
  2055. $i ++;
  2056. } // if ($iassign->type_iassign == 3)
  2057. } // foreach ($iassign_list as $iassign)
  2058. $sum_iassign = $i - 1;
  2059. $context = context_course::instance($this->course->id);
  2060. if ($i > 1) {
  2061. // $role = $DB->get_record_sql("SELECT s.id, s.shortname FROM {$CFG->prefix}role s WHERE s.shortname = 'student'");
  2062. $params = array('shortname' => 'student');
  2063. $role = $DB->get_record_sql(
  2064. "SELECT s.id, s.shortname FROM {role} s " .
  2065. " WHERE s.shortname = :shortname", $params);
  2066. // $students = $DB->get_records_sql("SELECT s.userid, a.firstname, a.lastname FROM {$CFG->prefix}role_assignments s, {$CFG->prefix}user a WHERE s.contextid = '$context->id' AND s.userid = a.id AND s.roleid = '$role->id' ORDER BY a.firstname ASC,a.lastname ASC");
  2067. $params = array('contextid' => $context->id, 'roleid' => $role->id);
  2068. $students = $DB->get_records_sql(
  2069. "SELECT s.userid, a.firstname, a.lastname FROM {role_assignments} s, {user} a " .
  2070. " WHERE s.contextid = :contextid AND s.userid = a.id AND s.roleid = :roleid " .
  2071. " ORDER BY a.firstname ASC,a.lastname ASC", $params);
  2072. $total = 0;
  2073. $sum_student = 0;
  2074. $j = 0;
  2075. $sum_correct_iassign = array();
  2076. $sum_correct_student = array();
  2077. $sum_experiment = array();
  2078. if ($students) {
  2079. foreach ($students as $users) {
  2080. $sum_student ++;
  2081. $name = $users->firstname . '&nbsp;' . $users->lastname;
  2082. // rows
  2083. $total_student = 0;
  2084. for ($j = 1; $j < $i; $j ++) {
  2085. $total_experiment = 0;
  2086. $student_submissions = $DB->get_record("iassign_submission", array('iassign_statementid' => $num[$j]->iassignid, 'userid' => $users->userid)); // data about student solution
  2087. if ($student_submissions) {
  2088. if ($student_submissions->status == 3) {
  2089. $sum_iassign_correct[$j] ++;
  2090. $total_student ++;
  2091. } // if ($student_submissions->status == 3)
  2092. $total_experiment += $student_submissions->experiment;
  2093. }
  2094. $sum_experiment[$j] = $total_experiment;
  2095. } // for ($j=1; $j<$i; $j++)
  2096. $total = $total + $total_student;
  2097. $sum_correct_student[$sum_student] = new stdClass();
  2098. $sum_correct_student[$sum_student]->name = $name;
  2099. $sum_correct_student[$sum_student]->sum = $total_student;
  2100. } // foreach ($students as $users)
  2101. }
  2102. for ($i = 1; $i < $j; $i ++) {
  2103. if (is_null($sum_iassign_correct[$i]))
  2104. $sum_iassign_correct[$i] = 0;
  2105. $sum_correct_iassign[$i] = new stdClass();
  2106. $sum_correct_iassign[$i]->sum = $sum_iassign_correct[$i];
  2107. $sum_correct_iassign[$i]->name = $num[$i]->name;
  2108. $sum_correct_iassign[$i]->experiment = $sum_experiment[$i];
  2109. } // for ($i = 1; $i < $j; $i++)
  2110. } // if ($i > 1)
  2111. if ($this->action != 'printstats') {
  2112. $title = get_string('graphic', 'iassign');
  2113. print $OUTPUT->header();
  2114. $link_report = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=report&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('view_report') . '&nbsp;' . get_string('report', 'iassign') . "</a>";
  2115. $link_print_stats = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=printstats&&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('print') . '&nbsp;' . get_string('print', 'iassign') . "</a>";
  2116. print '<table width=100%><tr>';
  2117. print '<td align="right">' . $link_print_stats . '</td>' . "\n";
  2118. print '<td width=15% align="right">' . $link_report . '</td>';
  2119. print '</td></tr></table>' . "\n";
  2120. print "<br><br>";
  2121. print '<table id="outlinetable" class="generaltable boxaligncenter" cellpadding="5" width="100%">' . "\n";
  2122. print '<tr><th colspan=5 class="header c1">' . get_string('distribution_activity', 'iassign') . '</th></tr>' . "\n";
  2123. print '<tr><td class=\'cell c0 actvity\' width=35%><strong>' . iassign_utils::remove_code_message($this->iassign->name) . '</strong></td>' . "\n";
  2124. print '<td class=\'cell c0 actvity\' width=35%><strong>' . get_string('percentage_correct', 'iassign') . '</strong></td>' . "\n";
  2125. print '<td class=\'cell c0 actvity\' width=10% align="right"><strong>' . get_string('proportion_correct', 'iassign') . '</strong>' . "\n";
  2126. print '<td class=\'cell c0 actvity\' width=10% align="right"><strong>' . get_string('sum_experiment', 'iassign') . '</strong></td>' . "\n";
  2127. print '<td class=\'cell c0 actvity\' width=10% align="right"><strong>' . get_string('avg_experiment', 'iassign') . '</strong></td>' . "\n";
  2128. print '</tr>' . "\n";
  2129. $sum_correct = 0;
  2130. if ($sum_correct_iassign) {
  2131. foreach ($sum_correct_iassign as $iassign) {
  2132. if (is_null($iassign->experiment))
  2133. $iassign->experiment = 0;
  2134. $bar = "";
  2135. $sum = $iassign->sum;
  2136. $percent = ($sum / $sum_student) * 100;
  2137. $text = number_format($percent, 1) . '%';
  2138. $sum_correct += $sum;
  2139. if ($sum > 0) {
  2140. for ($i = 1; $i < $percent * 2; $i ++)
  2141. $bar .= iassign_icons::insert('hbar_blue');
  2142. $bar .= iassign_icons::insert('hbar_blue_r');
  2143. } // if ($sum > 0)
  2144. print '<tr ><td class=\'cell c0 actvity\'width=35%>' . $iassign->name . '</td>' . "\n";
  2145. print ' <td class=\'cell c0 actvity\' width=35%>' . $bar . '&nbsp;' . $text . '</td>' . "\n";
  2146. print ' <td class=\'cell c0 actvity\' width=10% align="right">' . $sum . '/' . $sum_student . '</td>' . "\n";
  2147. print ' <td class=\'cell c0 actvity\' width=10% align="right">' . $iassign->experiment . '</td>' . "\n";
  2148. print ' <td class=\'cell c0 actvity\' width=10% align="right">' . number_format($iassign->experiment / $sum_iassign, 1) . '</td>' . "\n";
  2149. print '</tr>' . "\n";
  2150. } // foreach ($sum_correct_iassign as $iassign)
  2151. }
  2152. print "</table>";
  2153. print "<br><br>";
  2154. print '<table id="outlinetable" class="generaltable boxaligncenter" cellpadding="5" width="100%">' . "\n";
  2155. print '<tr><th colspan=3 class="header c1">' . get_string('distribution_student', 'iassign') . '</th></tr>' . "\n";
  2156. print '<tr><td class=\'cell c0 actvity\' width=50%><strong>' . iassign_utils::remove_code_message($this->iassign->name) . '</strong></td>' . "\n";
  2157. print ' <td class=\'cell c0 actvity\' width=40%><strong>' . get_string('percentage_correct', 'iassign') . '</strong></td>';
  2158. print ' <td class=\'cell c0 actvity\' width=10% align="right"><strong>' . get_string('sum_correct', 'iassign') . '</strong></td>';
  2159. print '</tr>' . "\n";
  2160. $sum_correct = 0;
  2161. foreach ($sum_correct_student as $student) {
  2162. $bar = "";
  2163. $sum = $student->sum;
  2164. $percent = ($sum / $sum_iassign) * 100;
  2165. $text = number_format($percent, 1) . '%';
  2166. $sum_correct += $sum;
  2167. if ($sum > 0) {
  2168. for ($i = 1; $i < $percent * 2; $i ++)
  2169. $bar .= iassign_icons::insert('hbar_blue');
  2170. $bar .= iassign_icons::insert('hbar_blue_r');
  2171. } // if ($sum > 0)
  2172. print '<tr ><td class=\'cell c0 actvity\'width=50%>' . $student->name . '</td>' . "\n";
  2173. print '<td class=\'cell c0 actvity\' width=40%>' . $bar . '&nbsp;' . $text . '</td>' . "\n";
  2174. print '<td class=\'cell c0 actvity\' width=10% align="right">' . $sum . '/' . $sum_iassign . '</td>' . "\n";
  2175. print '</tr>' . "\n";
  2176. } // foreach ($sum_correct_student as $student)
  2177. print "</table>\n";
  2178. print "<br><br>\n";
  2179. $var = 0;
  2180. $cv = 0;
  2181. $dv = 0;
  2182. $avg = 0;
  2183. if ($sum_correct_student) {
  2184. $avg = $sum_correct / $sum_student;
  2185. if ($avg > 0) {
  2186. foreach ($sum_correct_student as $student)
  2187. $var += pow($student->sum - $avg, 2);
  2188. $var = $var / $sum_student;
  2189. $dv = sqrt($var);
  2190. $cv = ($dv / $avg) * 100;
  2191. }
  2192. }
  2193. print '<table id="outlinetable" class="generaltable boxaligncenter" cellpadding="5" width="100%">' . "\n";
  2194. print '<tr><th colspan=5 class="header c1">' . get_string('statistics', 'iassign') . '</th></tr>' . "\n";
  2195. print '<tr><td class=\'cell c0 actvity\' width=20% align="center"><strong>' . get_string('sum_activity', 'iassign') . '</strong></td>' . "\n";
  2196. print ' <td class=\'cell c0 actvity\' width=20% align="center"><strong>' . get_string('sum_student', 'iassign') . '</strong></td>' . "\n";
  2197. print ' <td class=\'cell c0 actvity\' width=20% align="center"><strong>' . get_string('mean_score', 'iassign') . '</strong></td>' . "\n";
  2198. print ' <td class=\'cell c0 actvity\' width=20% align="center"><strong>' . get_string('standard_deviation', 'iassign') . '</strong></td>' . "\n";
  2199. print ' <td class=\'cell c0 actvity\' width=20% align="center"><strong>' . get_string('coefficient_variation', 'iassign') . '</strong></td></tr>' . "\n";
  2200. print '<tr><td class=\'cell c0 actvity\' width=20% align="center">' . $sum_iassign . '</td>' . "\n";
  2201. print ' <td class=\'cell c0 actvity\' width=20% align="center">' . $sum_student . '</td>' . "\n";
  2202. print ' <td class=\'cell c0 actvity\' width=20% align="center">' . number_format($avg, 1) . '</td>' . "\n";
  2203. print ' <td class=\'cell c0 actvity\' width=20% align="center">' . number_format($dv, 1) . '</td>' . "\n";
  2204. print ' <td class=\'cell c0 actvity\' width=20% align="center">' . number_format($cv, 1) . '%</td></tr>' . "\n";
  2205. print "</table>\n";
  2206. print $OUTPUT->footer();
  2207. } else {
  2208. print "<STYLE TYPE='text/css'>
  2209. <!--
  2210. .boldtable {
  2211. font-family:sans-serif;
  2212. font-size:10pt;
  2213. }
  2214. -->
  2215. </STYLE>\n";
  2216. print '<table border=1 width=100%>' . "\n";
  2217. print '<tr><td colspan=3 align="center"><strong>' . get_string('distribution_activity', 'iassign') . '</strong></td></tr>' . "\n";
  2218. print '<tr><td width=50%><strong>' . iassign_utils::remove_code_message($this->iassign->name) . '</strong></td>' . "\n";
  2219. print '<td width=40%><strong>' . get_string('percentage_correct', 'iassign') . '</strong></td>';
  2220. print '<td width=10% align="right"><strong>' . get_string('sum_correct', 'iassign') . '</strong></td>';
  2221. print '</tr>' . "\n";
  2222. $sum_correct = 0;
  2223. foreach ($sum_correct_iassign as $iassign) {
  2224. $bar = "";
  2225. $sum = $iassign->sum;
  2226. $percent = ($sum / $sum_student) * 100;
  2227. $text = number_format($percent, 1) . '%';
  2228. $sum_correct += $sum;
  2229. if ($sum > 0) {
  2230. for ($i = 1; $i < $percent * 2; $i ++)
  2231. $bar .= iassign_icons::insert('hbar_blue');
  2232. $bar .= iassign_icons::insert('hbar_blue_r');
  2233. } // if ($sum > 0)
  2234. print '<tr><td width=50%>' . $iassign->name . '</td>' . "\n";
  2235. print '<td width=40%>' . $bar . '&nbsp;' . $text . '</td>';
  2236. print '<td width=10% align="right">' . $sum . '/' . $sum_student . '</td>';
  2237. print '</tr>' . "\n";
  2238. } // foreach ($sum_correct_iassign as $iassign)
  2239. print "</table>";
  2240. print "<br><br>";
  2241. print '<table border=1 class="boldtable" width=100%>' . "\n";
  2242. print '<tr><td colspan=3 align="center" ><strong>' . get_string('distribution_student', 'iassign') . '</strong></td></tr>' . "\n";
  2243. print '<tr><td width=50%><strong>' . iassign_utils::remove_code_message($this->iassign->name) . '</strong></td>' . "\n";
  2244. print '<td width=40%><strong>' . get_string('percentage_correct', 'iassign') . '</strong></td>';
  2245. print '<td width=10% align="right"><strong>' . get_string('sum_correct', 'iassign') . '</strong></td>';
  2246. print '</tr>' . "\n";
  2247. $sum_correct = 0;
  2248. foreach ($sum_correct_student as $student) {
  2249. $bar = "";
  2250. $sum = $student->sum;
  2251. $percent = ($sum / $sum_iassign) * 100;
  2252. $text = number_format($percent, 1) . '%';
  2253. $sum_correct += $sum;
  2254. if ($sum > 0) {
  2255. for ($i = 1; $i < $percent * 2; $i ++)
  2256. $bar .= iassign_icons::insert('hbar_blue');
  2257. $bar .= iassign_icons::insert('hbar_blue_r');
  2258. } // if ($sum > 0)
  2259. print "<tr><td width=50%>" . $student->name . "</td>\n";
  2260. print ' <td width=40%>' . $bar . '&nbsp;' . $text . '</td>' . "\n";
  2261. print ' <td width=10% align="right">' . $sum . '/' . $sum_iassign . '</td>' . "\n";
  2262. print '</tr>' . "\n";
  2263. } // foreach ($sum_correct_student as $student)
  2264. print "</table>\n";
  2265. print "<br/><br/>\n";
  2266. $var = 0;
  2267. $cv = 0;
  2268. $dv = 0;
  2269. $avg = 0;
  2270. if ($sum_correct_student) {
  2271. $avg = $sum_correct / $sum_student;
  2272. if ($avg > 0) {
  2273. foreach ($sum_correct_student as $student)
  2274. $var += pow($student->sum - $avg, 2);
  2275. $var = $var / $sum_student;
  2276. $dv = sqrt($var);
  2277. $cv = ($dv / $avg) * 100;
  2278. }
  2279. }
  2280. print '<table border=1 class="boldtable" width=100%>' . "\n";
  2281. print '<tr><td colspan=5 align="center"><strong>' . get_string('statistics', 'iassign') . '</strong></th></tr>' . "\n";
  2282. print '<tr><td width=20% align="center"><strong>' . get_string('sum_activity', 'iassign') . '</strong></td>' . "\n";
  2283. print '<td width=20% align="center"><strong>' . get_string('sum_student', 'iassign') . '</strong></td>' . "\n";
  2284. print '<td width=20% align="center"><strong>' . get_string('mean_score', 'iassign') . '</strong></td>' . "\n";
  2285. print '<td width=20% align="center"><strong>' . get_string('standard_deviation', 'iassign') . '</strong></td>' . "\n";
  2286. print '<td width=20% align="center"><strong>' . get_string('coefficient_variation', 'iassign') . '</strong></td></tr>' . "\n";
  2287. print '<tr><td width=20% align="center">' . $sum_iassign . '</td>' . "\n";
  2288. print '<td width=20% align="center">' . $sum_student . '</td>' . "\n";
  2289. print '<td width=20% align="center">' . number_format($avg, 1) . '</td>' . "\n";
  2290. print '<td width=20% align="center">' . number_format($dv, 1) . '</td>' . "\n";
  2291. print '<td width=20% align="center">' . number_format($cv, 1) . '%</td></tr>' . "\n";
  2292. print "</table>\n";
  2293. } // if ($this->action != 'printstats')
  2294. die();
  2295. }
  2296. /// Display graphics of performance for students
  2297. function stats_students () {
  2298. global $USER, $CFG, $DB, $OUTPUT;
  2299. $id = $this->cm->id;
  2300. $iassign_statement_list = $DB->get_records_sql("SELECT * FROM {iassign_statement} s " .
  2301. " WHERE s.iassignid = '{$this->iassign->id}' AND s.type_iassign=3 ORDER BY s.position");
  2302. $title = get_string('results', 'iassign');
  2303. $sum_correct = 0;
  2304. $sum_incorrect = 0;
  2305. $sum_post = 0;
  2306. $sum_nopost = 0;
  2307. $sum_iassign = count($iassign_statement_list);
  2308. $bar_nopost = "";
  2309. $bar_correct = "";
  2310. $bar_incorrect = "";
  2311. $bar_post = "";
  2312. $text_nopost = "";
  2313. $text_correct = "";
  2314. $text_incorrect = "";
  2315. foreach ($iassign_statement_list as $iassign_statement_activity_item) {
  2316. $iassign_submission = $DB->get_record("iassign_submission", array('iassign_statementid' => $iassign_statement_activity_item->id, 'userid' => $USER->id)); // data about student solution
  2317. if ($iassign_submission) {
  2318. if ($iassign_submission->status == 3)
  2319. $sum_correct ++;
  2320. elseif ($iassign_submission->status == 2)
  2321. $sum_incorrect ++;
  2322. elseif ($iassign_submission->status == 1)
  2323. $sum_post ++;
  2324. elseif ($iassign_submission->status == 0 || !$iassign_submission)
  2325. $sum_nopost ++;
  2326. } // if ($iassign_submission)
  2327. } // foreach ($iassign_statement_list as $iassign_statement_activity_item)
  2328. if ($sum_iassign > 0) {
  2329. $percent_correct = ($sum_correct / $sum_iassign) * 100;
  2330. $text_correct = number_format($percent_correct, 1) . '%';
  2331. }
  2332. if ($sum_correct > 0) {
  2333. for ($i = 1; $i < $percent_correct * 2; $i ++)
  2334. $bar_correct .= iassign_icons::insert('hbar_green');
  2335. $bar_correct .= iassign_icons::insert('hbar_green_r');
  2336. } // if ($sum_correct > 0)
  2337. if ($sum_iassign > 0) {
  2338. $percent_incorrect = ($sum_incorrect / $sum_iassign) * 100;
  2339. $text_incorrect = number_format($percent_incorrect, 1) . '%';
  2340. }
  2341. if ($sum_incorrect > 0) {
  2342. for ($i = 1; $i < $percent_incorrect * 2; $i ++)
  2343. $bar_incorrect .= iassign_icons::insert('hbar_red');
  2344. $bar_incorrect .= iassign_icons::insert('hbar_red_r');
  2345. } // if ($sum_incorrect > 0)
  2346. if ($sum_iassign > 0) {
  2347. $percent_post = ($sum_post / $sum_iassign) * 100;
  2348. $text_post = number_format($percent_post, 1) . '%';
  2349. }
  2350. if ($sum_post > 0) {
  2351. for ($i = 1; $i < $percent_post * 2; $i ++)
  2352. $bar_post .= iassign_icons::insert('hbar_blue');
  2353. $bar_post .= iassign_icons::insert('hbar_blue_r');
  2354. } // if ($sum_post > 0)
  2355. if ($sum_iassign > 0) {
  2356. $percent_nopost = ($sum_nopost / $sum_iassign) * 100;
  2357. $text_nopost = number_format($percent_nopost, 1) . '%';
  2358. }
  2359. if ($sum_nopost > 0) {
  2360. for ($i = 1; $i < $percent_nopost * 2; $i ++)
  2361. $bar_nopost .= iassign_icons::insert('hbar_orange');
  2362. $bar_nopost .= iassign_icons::insert('hbar_orange_r');
  2363. } // if ($sum_nopost > 0)
  2364. print $OUTPUT->header();
  2365. $link_return = "&nbsp;<a href='" . $this->return . "'>" . iassign_icons::insert('home') . get_string('activities_page', 'iassign') . "</a>";
  2366. print '<table width=100%><tr>';
  2367. print '<td align="right">' . $link_return . '</td>' . "\n";
  2368. print '</td></tr></table>' . "\n";
  2369. print "<br/><br/>\n";
  2370. print '<table id="outlinetable" class="generaltable box aligncenter" cellpadding="5" width="100%">' . "\n";
  2371. print '<tr><th colspan=3 class="header c1">' . "\n";
  2372. // helpbutton('legend', get_string('legend', 'iassign'), 'iassign', $image = true, $linktext = false, $text = '', $return = false,
  2373. // $imagetext = '');
  2374. print iassign_utils::remove_code_message($this->iassign->name) . '</th></tr>' . "\n";
  2375. print '<tr ><td class=\'cell c0 actvity\'width=50%>' . get_string('correct', 'iassign') . '</td>' . "\n";
  2376. print '<td class=\'cell c0 actvity\' width=40%>' . $bar_correct . '&nbsp;' . $text_correct . '</td>';
  2377. print '<td class=\'cell c0 actvity\' width=10% align="right">' . $sum_correct . '/' . $sum_iassign . '</td>';
  2378. print '</tr>' . "\n";
  2379. print '<tr ><td class=\'cell c0 actvity\'width=50%>' . get_string('incorrect', 'iassign') . '</td>' . "\n";
  2380. print '<td class=\'cell c0 actvity\' width=40%>' . $bar_incorrect . '&nbsp;' . $text_incorrect . '</td>';
  2381. print '<td class=\'cell c0 actvity\' width=10% align="right">' . $sum_incorrect . '/' . $sum_iassign . '</td>';
  2382. print '</tr>' . "\n";
  2383. if ($sum_post) {
  2384. print '<tr ><td class=\'cell c0 actvity\'width=50%>' . get_string('post', 'iassign') . '</td>' . "\n";
  2385. print '<td class=\'cell c0 actvity\' width=40%>' . $bar_post . '&nbsp;' . $text_post . '</td>';
  2386. print '<td class=\'cell c0 actvity\' width=10% align="right">' . $sum_post . '/' . $sum_iassign . '</td>';
  2387. print '</tr>' . "\n";
  2388. } // if ($sum_post)
  2389. print '<tr ><td class=\'cell c0 actvity\'width=50%>' . get_string('not_post', 'iassign') . '</td>' . "\n";
  2390. print '<td class=\'cell c0 actvity\' width=40%>' . $bar_nopost . '&nbsp;' . $text_nopost . '</td>';
  2391. print '<td class=\'cell c0 actvity\' width=10% align="right">' . $sum_nopost . '/' . $sum_iassign . '</td>';
  2392. print '</tr>' . "\n";
  2393. print "</table>";
  2394. print "<br><br>";
  2395. print '<table id="outlinetable" class="generaltable boxaligncenter" cellpadding="5" width="100%">' . "\n";
  2396. print '<tr><th colspan=3 class="header c1">' . get_string('grades', 'iassign') . '</th></tr>' . "\n";
  2397. print '<tr><td class=\'cell c0 actvity\' width=50%><strong>' . iassign_utils::remove_code_message($this->iassign->name) . '</strong></td>' . "\n";
  2398. print '<td class=\'cell c0 actvity\' width=25% align=right><strong>' . get_string('grade_student', 'iassign') . '</strong></td>' . "\n";
  2399. print '<td class=\'cell c0 actvity\' width=25% align=right><strong>' . get_string('grade_iassign', 'iassign') . '</strong></tr>' . "\n";
  2400. $sum_grade = 0;
  2401. $sum_grade_student = 0;
  2402. $avg = 0;
  2403. foreach ($iassign_statement_list as $iassign_statement_activity_item) {
  2404. $iassign_submission = $DB->get_record("iassign_submission", array('iassign_statementid' => $iassign_statement_activity_item->id, 'userid' => $USER->id));
  2405. if (!$iassign_submission) {
  2406. $iassign_submission = new stdClass();
  2407. $iassign_submission->grade = 0;
  2408. }
  2409. print '<tr ><td class=\'cell c0 actvity\'width=50%>' . $iassign_statement_activity_item->name . '</td>' . "\n";
  2410. print '<td class=\'cell c0 actvity\' width=25% align=right>' . $iassign_submission->grade . '</td>';
  2411. print '<td class=\'cell c0 actvity\' width=25% align=right>' . $iassign_statement_activity_item->grade . '</td>';
  2412. print '</tr>' . "\n";
  2413. $sum_grade += $iassign_statement_activity_item->grade;
  2414. $sum_grade_student += $iassign_submission->grade;
  2415. } // foreach ($iassign_statement_list as $iassign_statement_activity_item)
  2416. if ($sum_grade > 0)
  2417. $avg = $sum_grade_student / $sum_grade * 100;
  2418. print '<tr><td class=\'cell c0 actvity\' width=50%><strong>' . get_string('total', 'iassign') . '</strong></td>' . "\n";
  2419. print '<td class=\'cell c0 actvity\' width=25% align=right><strong>' . $sum_grade_student . '</strong></td>' . "\n";
  2420. print '<td class=\'cell c0 actvity\' width=25% align=right><strong>' . $sum_grade . '</strong></tr>' . "\n";
  2421. print '<tr><td class=\'cell c0 actvity\' width=25% align=left><strong>' . get_string('percentage_correct', 'iassign') . '</strong></td>' . "\n";
  2422. print '<td colspan=2 class=\'cell c0 actvity\' align=right><strong>' . number_format($avg, 1) . '%</strong></tr>' . "\n";
  2423. print "</table>";
  2424. print $OUTPUT->footer();
  2425. die();
  2426. } // function stats_students()
  2427. /// Display page of iAssign's activity
  2428. function view_iassigns () {
  2429. global $USER, $CFG, $COURSE, $DB, $OUTPUT;
  2430. $id = $this->cm->id;
  2431. $iassign_list = $DB->get_records_list('iassign_statement', 'iassignid', array('iassignid' => $this->iassign->id), 'position ASC');
  2432. $notice = optional_param('notice', '', PARAM_TEXT);
  2433. if (strpos($notice, 'error'))
  2434. print($OUTPUT->notification(get_string($notice, 'iassign'), 'notifyproblem'));
  2435. else if ($notice != '')
  2436. print($OUTPUT->notification(get_string($notice, 'iassign'), 'notifysuccess'));
  2437. print $OUTPUT->box_start();
  2438. print '<table width=100% border=0><tr>' . "\n";
  2439. $url_help = new moodle_url('/mod/iassign/settings_ilm.php', array('action' => 'list', 'ilm_id' => 1));
  2440. $action_help = new popup_action('click', $url_help, 'iplookup', array('title' => get_string('help_ilm', 'iassign'), 'width' => 1200, 'height' => 700));
  2441. $link_help = $OUTPUT->action_link($url_help, iassign_icons::insert('help_ilm') . get_string('help_ilm', 'iassign'), $action_help);
  2442. $link_add = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=add&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('add_iassign') . get_string('add_iassign', 'iassign') . "</a>";
  2443. $link_report = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=report&iassignid=" . $this->iassign->id . "'>" . iassign_icons::insert('view_report') . get_string('report', 'iassign') . "</a>";
  2444. // TODO: esta consulta esta sendo feita novamente na linha +/- 2258
  2445. if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) {
  2446. // could be "has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)"
  2447. // Has capability to see "report": teacher or up
  2448. print '<td width=10% align="left">' . "\n";
  2449. print $link_help;
  2450. print '</td>' . "\n";
  2451. print '<td width=10% align="left">' . "\n";
  2452. print $link_report;
  2453. print '</td>' . "\n";
  2454. } // if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id))
  2455. if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) {
  2456. print '<td width=15% align="left">' . "\n";
  2457. print $link_add;
  2458. print "</td>\n";
  2459. } // if (has_capability('mod/iassign:editiassign', $this->context, $USER->id))
  2460. if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) {
  2461. if ($iassign_list) {
  2462. print '<td align="right">' . "\n";
  2463. // $USER->iassignEdit == 0 view 'Turn editing off'
  2464. // $USER->iassignEdit == 1 view 'Turn editing on'
  2465. if (!isset($USER->iassignEdit))
  2466. $USER->iassignEdit = 0;
  2467. if ($USER->iassignEdit == 0) {
  2468. $bottonEdit_message = get_string('turneditingon', 'iassign');
  2469. $botton = 1;
  2470. } // if ($USER->iassignEdit == 0)
  2471. elseif ($USER->iassignEdit == 1) {
  2472. $bottonEdit_message = get_string('turneditingoff', 'iassign');
  2473. $botton = 0;
  2474. } // elseif ($USER->iassignEdit == 1)
  2475. $editPost = "" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&botton=" . $botton;
  2476. print "\n<form name='formEditPost' id='formEditPost' method='post' action='$editPost' enctype='multipart/form-data'>\n";
  2477. print " <input type=submit value='$bottonEdit_message'/>\n";
  2478. print "</form>\n";
  2479. print "</td>\n";
  2480. } // if ($iassign_list)
  2481. }
  2482. print '</tr></table>' . "\n";
  2483. if (has_capability('mod/iassign:submitiassign', $this->context, $USER->id))
  2484. $this->view_legend_icons();
  2485. print $OUTPUT->box_end();
  2486. $iassign_array_exercise = array();
  2487. $i_exercise = 0;
  2488. $iassign_array_test = array();
  2489. $i_test = 0;
  2490. $iassign_array_example = array();
  2491. $i_example = 0;
  2492. $iassign_array_general = array();
  2493. $i_general = 0;
  2494. if ($iassign_list) {
  2495. if ($this->iassign->activity_group == 0) {
  2496. foreach ($iassign_list as $iassign) {
  2497. $iassign_array_general[$i_general] = $iassign;
  2498. $i_general ++;
  2499. }
  2500. } // if ($this->iassign->activity_group == 0)
  2501. else {
  2502. foreach ($iassign_list as $iassign) {
  2503. if ($iassign->type_iassign == 3) {
  2504. $iassign_array_exercise[$i_exercise] = $iassign;
  2505. $i_exercise ++;
  2506. } // if ($iassign->type_iassign == 3)
  2507. if ($iassign->type_iassign == 2) {
  2508. $iassign_array_test[$i_test] = $iassign;
  2509. $i_test ++;
  2510. } // if ($iassign->type_iassign == 2)
  2511. if ($iassign->type_iassign == 1) {
  2512. $iassign_array_example[$i_example] = $iassign;
  2513. $i_example ++;
  2514. } // if ($iassign->type_iassign == 1)
  2515. }
  2516. }
  2517. if ($iassign_array_exercise) {
  2518. $title = get_string('exercise', 'iassign');
  2519. $this->show_iassign($title, $iassign_array_exercise, $i_exercise);
  2520. }
  2521. if ($iassign_array_test) {
  2522. $title = get_string('test', 'iassign');
  2523. $this->show_iassign($title, $iassign_array_test, $i_test);
  2524. }
  2525. if ($iassign_array_example) {
  2526. $title = get_string('example', 'iassign');
  2527. $this->show_iassign($title, $iassign_array_example, $i_example);
  2528. }
  2529. if ($iassign_array_general) {
  2530. $title = "";
  2531. $this->show_iassign($title, $iassign_array_general, $i_general);
  2532. }
  2533. } else { // if ($iassign_list)
  2534. print $OUTPUT->notification(get_string('no_activity', 'iassign'), 'notifysuccess');
  2535. }
  2536. if (count($iassign_list) > 5 && !(has_capability('mod/iassign:submitiassign', $this->context, $USER->id))) {
  2537. if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) {
  2538. print $OUTPUT->box_start();
  2539. print '<table width=100% border=0><tr>' . "\n";
  2540. print '<td width=10% align="left">' . "\n";
  2541. print $link_report;
  2542. print '</td>' . "\n";
  2543. print '</tr></table>' . "\n";
  2544. print $OUTPUT->box_end();
  2545. } // if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id))
  2546. if (has_capability('mod/iassign:editiassign', $this->context, $USER->id)) {
  2547. print $OUTPUT->box_start();
  2548. print '<table width=100% border=0><tr>' . "\n";
  2549. print '<td align="left">' . "\n";
  2550. print $link_add;
  2551. print '</td>' . "\n";
  2552. print '</tr></table>' . "\n";
  2553. print $OUTPUT->box_end();
  2554. } // if (has_capability('mod/iassign:editiassign', $this->context, $USER->id))
  2555. } // if (count($iassign_list) > 5 && !(has_capability('mod/iassign:submitiassign', $this->context, $USER->id)))
  2556. } // function view_iassigns()
  2557. /// Display all iAssigns
  2558. function show_iassign ($title, $iassign_array, $i) {
  2559. global $USER, $CFG, $DB, $OUTPUT, $PAGE;
  2560. $id = $this->cm->id;
  2561. print $OUTPUT->box_start();
  2562. print " <script type='text/javascript'>
  2563. //<![CDATA[
  2564. function validate_move () {
  2565. var radios = document.getElementsByName('iassign_destiny');
  2566. var formValid = false;
  2567. //alert('aqui validate_move()');
  2568. var i = 0;
  2569. while (!formValid && i < radios.length) {
  2570. if (radios[i].checked) formValid = true;
  2571. i++;
  2572. }
  2573. if (!formValid) {
  2574. document.getElementById('move_dest').classList.add('alert-danger');
  2575. }
  2576. return formValid;
  2577. }
  2578. var modal;
  2579. function load_move(id_ias) {
  2580. document.form_move_activity.iassign_current.value = id_ias;
  2581. modal.style.display = 'block';
  2582. var radios = document.getElementsByName('iassign_destiny');
  2583. var i = 0;
  2584. while (i < radios.length) {
  2585. radios[i].checked = false;
  2586. i++;
  2587. }
  2588. document.getElementById('move_dest').classList.remove('alert-danger');
  2589. }
  2590. function load_modal_elements() {
  2591. modal = document.getElementById('myModal');
  2592. var span = document.getElementById('close_modal');
  2593. span.onclick = function() {
  2594. modal.style.display = 'none';
  2595. }
  2596. window.onclick = function(event) {
  2597. if (event.target == modal) {
  2598. modal.style.display = 'none';
  2599. }
  2600. }
  2601. }
  2602. window.onload = load_modal_elements;
  2603. //]]>
  2604. </script>\n";
  2605. print " <div id='myModal' class='modal'>\n <div class='modal-content'>\n <span id='close_modal'>&times;</span>\n" .
  2606. " <div id='modal_title' class='moodle-dialogue-hd yui3-widget-hd'>" . get_string('move_activity', 'iassign') . "</div>\n" .
  2607. " <div style='padding: 10px; padding-left: 20px;' id='move_dest'>" . get_string('move_destination', 'iassign') . ":\n <div style='margin: 5px;'>";
  2608. $ccm = get_coursemodule_from_id('iassign', optional_param('id', 0, PARAM_INT));
  2609. $radio_buttons = " <form name='form_move_activity'><input type='hidden' name='action' value='move_activity' />
  2610. <input type='hidden' name='id' value='" . optional_param('id', NULL, PARAM_TEXT) . "' />
  2611. <input type='hidden' name='iassign_current' value='' />";
  2612. $course_sections = get_fast_modinfo($PAGE->course->id)->get_section_info_all();
  2613. $section = $course_sections[0];
  2614. $ids_sections = array_keys($section->__get('modinfo')->get_sections());
  2615. for ($k = 0; $k < count($ids_sections); $k++) {
  2616. $radio_buttons .= get_section_name($PAGE->course->id, $ids_sections[$k]). "<ul style='list-style-type: none'>";
  2617. for($j = 0; $j < count($section->__get('modinfo')->get_sections()[$ids_sections[$k]]); $j++) {
  2618. $c_cm = get_coursemodule_from_id('iassign', $section->__get('modinfo')->get_sections()[$ids_sections[$k]][$j]);
  2619. if ($c_cm) {
  2620. if ($ccm->instance == $c_cm->instance) {
  2621. $radio_buttons .= " <li><input type='radio' disabled='disabled' id='radio_" . $c_cm->instance . "' name='iassign_destiny' value='" . $c_cm->instance . "'>
  2622. <label for='radio_" . $c_cm->instance . "'>" . $c_cm->name . "</label></li>\n";
  2623. }
  2624. else {
  2625. $radio_buttons .= " <li><input type='radio' id='radio_" . $c_cm->instance . "' name='iassign_destiny' value='" . $c_cm->instance . "'>
  2626. <label class='input_move' for='radio_" . $c_cm->instance . "'>" . $c_cm->name . "</label></li>\n";
  2627. }
  2628. }
  2629. }
  2630. $radio_buttons .= "</ul>";
  2631. }
  2632. print $radio_buttons . " <center><input type='submit' value='OK' onClick='return validate_move();' />\n &nbsp;
  2633. <input type='button' value='" . get_string('cancel', 'iassign') . "' onClick='modal.style.display = \'none\';' /></center>
  2634. </form>
  2635. </div></div> </div></div>\n";
  2636. print " <style>.modal {
  2637. display: none;
  2638. position: fixed;
  2639. z-index: 1;
  2640. left: 0;
  2641. top: 0;
  2642. width: 100%;
  2643. height: 100%;
  2644. overflow: scroll;
  2645. background-color: rgb(0,0,0);
  2646. background-color: rgba(0,0,0,0.4);
  2647. }
  2648. .modal-content {
  2649. background-color: #fefefe;
  2650. margin: 15% auto;
  2651. padding: 10px 10px;
  2652. border: 1px solid #888;
  2653. width: 50%;
  2654. }
  2655. #close_modal {
  2656. color: #aaa;
  2657. float: right;
  2658. font-size: 28px;
  2659. font-weight: bold;
  2660. margin-top: -15px;
  2661. margin-right: -3px;
  2662. }
  2663. #close_modal:hover,
  2664. #close_modal:focus {
  2665. color: black;
  2666. text-decoration: none;
  2667. cursor: pointer;
  2668. }
  2669. #modal_title {
  2670. min-height: 3rem;
  2671. color: initial;
  2672. background: initial;
  2673. font-size: 1.5rem;
  2674. line-height: 1.5;
  2675. padding: 15px;
  2676. border-bottom: 1px solid #e5e5e5;
  2677. }
  2678. .input_move {
  2679. width: 90%;
  2680. padding: 2px;
  2681. }
  2682. .input_move:hover {
  2683. background: #eff0ef;
  2684. }
  2685. </style>";
  2686. if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id)) {
  2687. print "<p><font color='#0000aa'><strong>" . $title . "</strong></font></p>";
  2688. for ($j = 0; $j < $i; $j ++) {
  2689. $iassign_current = $iassign_array[$j]->id;
  2690. // receiver=1 - message to teacher
  2691. // receiver=2 - message to student
  2692. $sum_comment = 0;
  2693. $iassign_submissions = $DB->get_records('iassign_submission', array('iassign_statementid' => $iassign_current));
  2694. foreach ($iassign_submissions as $iassign_submission) {
  2695. $params = array('iassign_submissionid' => $iassign_submission->id, 'return_status' => '0', 'receiver' => '1');
  2696. $verify_message = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " .
  2697. " WHERE iassign_submissionid = :iassign_submissionid AND return_status= :return_status AND receiver= :receiver", $params);
  2698. if ($verify_message)
  2699. foreach ($verify_message as $tmp)
  2700. $sum_comment += $tmp;
  2701. } // foreach ($iassign_submissions as $iassign_submission)
  2702. if ($sum_comment == 0)
  2703. $comment_unread = "";
  2704. else {
  2705. $comment_unread_message = get_string('comment_unread', 'iassign');
  2706. if ($sum_comment == 1)
  2707. $comment_unread_message = get_string('comment_unread_one', 'iassign');
  2708. $comment_unread = "&nbsp;<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $id . "&action=report&iassignid=" . $this->iassign->id . "'><font color='red'>" .
  2709. iassign_icons::insert('comment_unread') . "&nbsp;($sum_comment&nbsp;" . $comment_unread_message . ")</font></a>";
  2710. }
  2711. if ($j == $i - 1)
  2712. $iassign_down = $iassign_array[$j]->id;
  2713. else
  2714. $iassign_down = $iassign_array[$j + 1]->id;
  2715. if ($j > 0)
  2716. $iassign_up = $iassign_array[$j - 1]->id;
  2717. else
  2718. $iassign_up = $iassign_array[$j]->id;
  2719. if ($iassign_array[$j]->visible == 0)
  2720. $links = "&nbsp;<a href='view.php?id=$id&userid_iassign=$USER->id&action=view&iassign_current=$iassign_current'><font color='#bbbbbb'>" . $iassign_array[$j]->name . "</font></a>";
  2721. else
  2722. $links = "&nbsp;<a href='view.php?id=$id&userid_iassign=$USER->id&action=view&iassign_current=$iassign_current'>" . $iassign_array[$j]->name . "</a>";
  2723. $links .= $comment_unread;
  2724. if (has_capability('mod/iassign:editiassign', $this->context, $USER->id) && $USER->iassignEdit == 1) {
  2725. //D echo "id=$id, iassign_current=$iassign_current, iassign_up=$iassign_up, iassign_down=$iassign_down<br/>";
  2726. $str_aux = "&id=$id&iassign_current=$iassign_current&iassign_up=$iassign_up&iassign_down=$iassign_down";
  2727. $link_up = "&nbsp;<a href='view.php?action=up$str_aux'>" . iassign_icons::insert('move_up_iassign') . "</a>";
  2728. if ($j==0) // first activity
  2729. $link_down = "&nbsp;<a href='view.php?action=firstdown$str_aux'>" . iassign_icons::insert('move_down_iassign') . "</a>";
  2730. else
  2731. $link_down = "&nbsp;<a href='view.php?action=down$str_aux'>" . iassign_icons::insert('move_down_iassign') . "</a>";
  2732. $link_delete = "&nbsp;<a href='view.php?action=delete$str_aux'>" . iassign_icons::insert('delete_iassign') . "</a>";
  2733. $link_visible_hide = "&nbsp;<a href='view.php?action=visible$str_aux'>" . iassign_icons::insert('hide_iassign') . "</a>";
  2734. $link_visible_show = "&nbsp;<a href='view.php?action=visible$str_aux'>" . iassign_icons::insert('show_iassign') . "</a>";
  2735. $link_edit = "&nbsp;<a href='view.php?action=edit$str_aux'>" . iassign_icons::insert('edit_iassign') . "</a>";
  2736. $link_duplicate_activity = "&nbsp;<a href='view.php?action=duplicate_activity$str_aux' >" . iassign_icons::insert('duplicate_iassign') . "</a>\n";
  2737. $link_move_activity = "&nbsp;<a href='#' onclick='load_move($iassign_current); return false;' >" . iassign_icons::insert('move_activity') . "</a>\n";
  2738. if (count($iassign_array) > 1) {
  2739. if ($j == 0)
  2740. $links .= $link_down;
  2741. elseif ($j == $i - 1)
  2742. $links .= $link_up;
  2743. else
  2744. $links .= $link_up . $link_down;
  2745. } // if (count($iassign_array) > 1)
  2746. $links .= $link_edit . $link_delete;
  2747. if ($iassign_array[$j]->visible == 0)
  2748. $links .= $link_visible_show;
  2749. else
  2750. $links .= $link_visible_hide;
  2751. $links .= $link_duplicate_activity . $link_move_activity;
  2752. } // if ($USER->iassignEdit == 1 && has_capability('mod/iassign:editiassign', $this->context, $USER->id))
  2753. print '<p>' . $links . '</p>' . "\n";
  2754. }
  2755. } // if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id))
  2756. elseif (has_capability('mod/iassign:submitiassign', $this->context, $USER->id)) { // student
  2757. print '<table width=100% ><tr>' . "\n";
  2758. print "<td width=70% align='left'><font color='#0000aa'><strong>" . $title . "</strong></font></td>" . "\n";
  2759. print '</tr></table>' . "\n";
  2760. for ($j = 0; $j < $i; $j ++) {
  2761. $icon_status = "";
  2762. $icon_comment = "";
  2763. if ($iassign_array[$j]->visible == 1) {
  2764. $iassign_current = $iassign_array[$j]->id;
  2765. $iassign_submission = $DB->get_record('iassign_submission', array('iassign_statementid' => $iassign_current, 'userid' => $USER->id));
  2766. $links = "&nbsp;<a href='view.php?id=$id&userid_iassign=$USER->id&action=view&iassign_current=$iassign_current'>" . $iassign_array[$j]->name . "</a>";
  2767. $icon_status = "";
  2768. $icon_comment = "";
  2769. if ($iassign_submission) {
  2770. // receiver=1 - message to teacher
  2771. // receiver=2 - message to student
  2772. // $verify_message = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {$CFG->prefix}ia_assign_submissions_comment WHERE iassign_submissionid = '$iassign_submission->id' and return_status= 0 and receiver=2");
  2773. $params = array('iassign_submissionid' => $iassign_submission->id, 'return_status' => '0', 'receiver' => '2');
  2774. $verify_message = $DB->get_record_sql(
  2775. "SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " .
  2776. " WHERE iassign_submissionid = :iassign_submissionid AND return_status= :return_status AND receiver= :receiver", $params);
  2777. if ($verify_message)
  2778. foreach ($verify_message as $tmp)
  2779. $sum_comment = $tmp;
  2780. if ($sum_comment > 0) {
  2781. $comment_unread_message = get_string('comment_unread', 'iassign');
  2782. if ($sum_comment == 1)
  2783. $comment_unread_message = get_string('comment_unread_one', 'iassign');
  2784. $icon_comment = "&nbsp;<font color='red'>" . iassign_icons::insert('comment_unread') . "&nbsp;($sum_comment&nbsp;" . $comment_unread_message . ")</font>";
  2785. }
  2786. // $icon_comment = iassign_icons::insert('comment_unread');
  2787. if ($iassign_array[$j]->type_iassign == 3) {
  2788. if ($iassign_array[$j]->show_answer == 1) {
  2789. if ($iassign_submission->status == 3)
  2790. $icon_status = iassign_icons::insert('correct');
  2791. elseif ($iassign_submission->status == 2)
  2792. $icon_status = iassign_icons::insert('incorrect');
  2793. elseif ($iassign_submission->status == 1)
  2794. $icon_status = iassign_icons::insert('post');
  2795. elseif ($iassign_submission->status == 0)
  2796. $icon_status = iassign_icons::insert('not_post');
  2797. } // if ($iassign_array[$j]->show_answer==1)
  2798. else {
  2799. if ($iassign_submission->status == 0)
  2800. $icon_status = iassign_icons::insert('not_post');
  2801. else
  2802. $icon_status = iassign_icons::insert('post');
  2803. }
  2804. } // if ($iassign_array[$j]->type_iassign == 3)
  2805. } // if ($iassign_submission)
  2806. elseif ($iassign_array[$j]->type_iassign == 3) {
  2807. $icon_status = iassign_icons::insert('not_post');
  2808. } // if ($iassign_array[$j]->type_iassign == 3)
  2809. print '<p>' . $icon_status . '&nbsp;' . $links . '&nbsp;' . $icon_comment . '</p>' . "\n";
  2810. } // if ($iassign_array[$j]->visible == 1)
  2811. } // for ($j = 0; $j < $i; $j++)
  2812. } else if (isguestuser()) {
  2813. print($OUTPUT->notification(get_string('no_permission_iassign', 'iassign'), 'notifyproblem'));
  2814. print '<table width=100% ><tr>' . "\n";
  2815. print "<td width=70% align='left'><font color='#0000aa'><strong>" . $title . "</strong></font></td>" . "\n";
  2816. print '</tr></table>' . "\n";
  2817. for ($j = 0; $j < $i; $j ++) {
  2818. $icon_status = "";
  2819. $icon_comment = "";
  2820. if ($iassign_array[$j]->visible == 1) {
  2821. $iassign_current = $iassign_array[$j]->id;
  2822. $links = "&nbsp;<a href='view.php?id=$id&userid_iassign=$USER->id&action=view&iassign_current=$iassign_current'>" . $iassign_array[$j]->name . "</a>";
  2823. print '<p>' . $links . '</p>' . "\n";
  2824. } // if ($iassign_array[$j]->visible == 1)
  2825. }
  2826. }
  2827. print $OUTPUT->box_end();
  2828. } // function show_iassign($title, $iassign_array, $i)
  2829. /// Show message of return
  2830. function return_home_course ($message) {
  2831. //D global $DB, $OUTPUT;
  2832. //D $link_return = "&nbsp;<a href='" . $this->return . "'>" . iassign_icons::insert('home') . get_string('activities_page', 'iassign') . "</a>";
  2833. //D echo $OUTPUT->box_start();
  2834. //D echo '<table width=100% border=0 valign="top">' . "\n";
  2835. //D echo '<tr><td align="left"><strong>' . "\n";
  2836. //D print_string($message, 'iassign');
  2837. //D echo '</strong></td>' . "\n";
  2838. //D echo '<td width=20% align="right">' . "\n";
  2839. //D echo $link_return;
  2840. //D echo '</td></tr></table>' . "\n";
  2841. //D echo $OUTPUT->box_end();
  2842. //D // echo $OUTPUT->footer();
  2843. redirect(new moodle_url($this->return . '&notice=' . $message));
  2844. exit;
  2845. }
  2846. /// Search comment of activity
  2847. function search_comment_submission ($iassign_submissionid) {
  2848. global $USER, $DB, $OUTPUT, $COURSE;
  2849. // $context = context_course::instance($COURSE->id);
  2850. $colorEdit1 = "#a7bede"; // "#dce7ec"
  2851. $colorEdit2 = "#b7ceee";
  2852. $has_capability = 0;
  2853. $comments = $DB->get_records_list('iassign_submission_comment', 'iassign_submissionid', array('iassign_submissionid' => $iassign_submissionid), 'timecreated DESC'); // 'ORDER BY "timecreated" ASC'
  2854. $text = "";
  2855. if ($comments) {
  2856. $even = 1;
  2857. foreach ($comments as $tmp) {
  2858. $user_data = $DB->get_record("user", array('id' => $tmp->comment_authorid));
  2859. // if (has_capability('mod/iassign:editiassign', $context, $tmp->comment_authorid)) {
  2860. // $text .= "<tr><td bgcolor='#fee7ae'><b> $user_data->firstname</b>&nbsp;(" . userdate($tmp->timecreated) . ")</br>\n";
  2861. // $text .= $tmp->comment . "</td></tr>";
  2862. //} else {
  2863. // $text .= "<tr><td bgcolor='#dce7ec'>&raquo;<b>" . $user_data->firstname . "</b>&nbsp;(" . userdate($tmp->timecreated) . "</br>\n";
  2864. if ($even) {
  2865. $text .= "<tr><td bgcolor='" . $colorEdit1 . "'>&raquo;<b>" . $user_data->firstname . "</b>&nbsp;(" . userdate($tmp->timecreated) . ")</br>\n";
  2866. $even = 0;
  2867. } else {
  2868. $text .= "<tr><td bgcolor='" . $colorEdit2 . "'>&raquo;<b>" . $user_data->firstname . "</b>&nbsp;(" . userdate($tmp->timecreated) . ")</br>\n";
  2869. $even = 1;
  2870. }
  2871. $text .= $tmp->comment . "</td></tr>\n";
  2872. } // foreach ($comments as $tmp)
  2873. }
  2874. return $text;
  2875. }
  2876. /// Update comment of activity
  2877. function update_comment ($iassign_submissionid) {
  2878. global $USER, $DB, $OUTPUT;
  2879. if (!has_capability('mod/iassign:submitiassign', $this->context, $USER->id) || is_siteadmin())
  2880. $receiver = 1; // student message to teacher
  2881. else
  2882. $receiver = 2; // teacher message to student
  2883. $verify_message = $DB->get_records('iassign_submission_comment', array('iassign_submissionid' => $iassign_submissionid)); //
  2884. if ($verify_message) {
  2885. foreach ($verify_message as $message) {
  2886. if ($message->receiver == $receiver) {
  2887. $newentry = new stdClass();
  2888. $newentry->id = $message->id;
  2889. $newentry->return_status = 1;
  2890. if (!$DB->update_record('iassign_submission_comment', $newentry)) {
  2891. print_error('error_update', 'iassign');
  2892. } // if (!$DB->update_record('iassign_submission_comment', $newentry))
  2893. } // if ($message->receiver == $receiver)
  2894. // Trigger module viewed event.
  2895. $event = \mod_iassign\event\submission_comment_updated::create(array(
  2896. 'objectid' => $this->iassign->id,
  2897. 'context' => $this->context
  2898. ));
  2899. $event->add_record_snapshot('course', $this->course);
  2900. $event->trigger();
  2901. } // foreach ($verify_message as $message)
  2902. }
  2903. }
  2904. /// Record comment of activity
  2905. function write_comment_submission () {
  2906. global $USER, $CFG, $DB;
  2907. $id = $this->cm->id;
  2908. $submission_comment = optional_param('submission_comment', NULL, PARAM_TEXT);
  2909. $row = optional_param('row', 0, PARAM_INT);
  2910. $column = optional_param('column', 0, PARAM_INT);
  2911. $sum_comment = 0;
  2912. $return = "" . $CFG->wwwroot . "/mod/iassign/view.php?action=viewsubmission&id=" . $id . "&iassign_submission_current=" . $this->iassign_submission_current . "&userid_iassign=" . $this->userid_iassign . "&iassign_current=" . $this->activity->get_activity()->id . "&row=" . ($row) . "&column=" . ($column);
  2913. $link_return = "&nbsp;<a href='" . $return . "'>" . iassign_icons::insert('return_home') . get_string('return', 'iassign') . "</a>";
  2914. $str1 = trim($submission_comment);
  2915. $str2 = trim(get_string('box_comment_message', 'iassign'));
  2916. if (!empty($submission_comment) && (strcmp($str1, $str2) != 0)) { // there is comment and it is different from "previous"
  2917. //D $iassign_submission = $DB->get_record("iassign_submission", array("id" => $this->iassign_submission_current)); //MOOC 2016
  2918. if (has_capability('mod/iassign:submitiassign', $this->context, $USER->id) && !is_siteadmin()) { //MOOC '&& !is_siteadmin()'
  2919. $receiver = 1; // student message to teacher
  2920. $this->action = 'view';
  2921. //D $iassign_statement_activity_item = $DB->get_record("iassign_statement", array("id" => $iassign_submission->iassign_statementid)); //MOOC 2016
  2922. //D $tousers = get_users_by_capability($this->context, 'mod/iassign:evaluateiassign'); //MOOC 2016
  2923. } else {
  2924. $receiver = 2; // teacher message to student
  2925. $this->action = 'viewsubmission';
  2926. //D $tousers = array(); //MOOC 2016
  2927. //MOOC 2016 //T $tousers[] = $DB->get_record("user", array("id" => $iassign_submission->userid)); //TODO Para registrar mensagem na area do Moodle - tem que ativar abaixo
  2928. }
  2929. //MOOC 2016: foi p/ 15 linhas acima:
  2930. $iassign_submission = $DB->get_record("iassign_submission", array("id" => $this->iassign_submission_current));
  2931. if (!$iassign_submission) {
  2932. $iassign_statement_activity_item = $DB->get_record("iassign_statement", array("id" => $this->activity->get_activity()->id));
  2933. $id_submission = $this->new_submission($iassign_statement_activity_item->id, $this->userid_iassign, $receiver);
  2934. $this->iassign_submission_current = $id_submission;
  2935. } else {
  2936. $id_submission = $iassign_submission->id;
  2937. } // if (!$iassign_submission)
  2938. // $comments = $DB->get_record_sql("SELECT COUNT(iassign_submissionid) FROM {$CFG->prefix}ia_assign_submissions_comment
  2939. // WHERE iassign_submissionid = '$id_submission' and comment='$submission_comment' and comment_authorid='$USER->id'"); //
  2940. // Attention: this Moodle function 'get_record_sql' makes a replace in ':comment'
  2941. $params = array("iassign_submissionid" => $id_submission, "comment" => $submission_comment, "comment_authorid" => $USER->id);
  2942. $comments = $DB->get_record_sql(
  2943. "SELECT COUNT(iassign_submissionid) FROM {iassign_submission_comment} " .
  2944. " WHERE iassign_submissionid = :iassign_submissionid AND comment= :comment AND comment_authorid= :comment_authorid", $params);
  2945. if ($comments)
  2946. foreach ($comments as $tmp)
  2947. $sum_comment = $tmp;
  2948. if ($sum_comment == 0) {
  2949. $newentry = new stdClass();
  2950. $newentry->iassign_submissionid = $id_submission;
  2951. $newentry->comment_authorid = $USER->id;
  2952. $newentry->timecreated = time();
  2953. $newentry->comment = $submission_comment;
  2954. $newentry->receiver = $receiver;
  2955. $ia_assign_submissions_comment_id = $DB->insert_record('iassign_submission_comment', $newentry);
  2956. //T foreach ($tousers as $touser) { //TODO Para registrar mensagem na area do Moodle - tem que ativar '$tousers[] = $DB->get_record(...);' acima
  2957. //T $eventdata = new stdClass();
  2958. //T $eventdata->component = 'mod_iassign'; //your component name
  2959. //T $eventdata->name = 'comment'; //this is the message name from messages.php
  2960. //T $eventdata->userfrom = $USER;
  2961. //T $eventdata->userto = $touser;
  2962. //T $eventdata->subject = "Teste de Subject";
  2963. //T $eventdata->fullmessage = "Teste de Mensagem...";
  2964. //T $eventdata->fullmessageformat = FORMAT_PLAIN;
  2965. //T $eventdata->fullmessagehtml = "<b>Teste de Mensagem...</b>";
  2966. //T $eventdata->smallmessage = "Teste de Mensagem";
  2967. //T $eventdata->notification = 1; //this is only set to 0 for personal messages between users
  2968. //T // alteracao tulio faria
  2969. //T //message_send($eventdata);
  2970. //T } //MOOC 2016 - TODO NAO finalizado, iniciado pelo Tulio
  2971. // Trigger module viewed event.
  2972. $event = \mod_iassign\event\submission_comment_created::create(array(
  2973. 'objectid' => $this->iassign->id,
  2974. 'context' => $this->context
  2975. ));
  2976. $event->add_record_snapshot('course', $this->course);
  2977. $event->trigger();
  2978. }
  2979. } // if (!empty($submission_comment) && (strcmp($str1, $str2) != 0))
  2980. // if ($this->action=='viewsubmission') {
  2981. // echo $OUTPUT->header();
  2982. // $this->return_last('confirm_add_comment', $link_return);
  2983. // die;
  2984. // }
  2985. return true;
  2986. } // function write_comment_submission()
  2987. /// Writes a new submission
  2988. // The first student answer is under 'function get_answer()'
  2989. function new_submission ($iassignid, $id_user, $receiver) {
  2990. global $USER, $DB, $OUTPUT;
  2991. $newentry = new stdClass();
  2992. $newentry->iassign_statementid = $iassignid;
  2993. $newentry->userid = $id_user;
  2994. $newentry->timecreated = time();
  2995. $newentry->timemodified = time();
  2996. $newentry->answer = 0; // student only submit message
  2997. if ($receiver == 2) // teacher message to student (write id teacher)
  2998. $newentry->teacher = $USER->id;
  2999. if (!$newentry->id = $DB->insert_record("iassign_submission", $newentry))
  3000. return_home_course('error_insert_submissions');
  3001. else {
  3002. // Trigger module view event
  3003. $event = \mod_iassign\event\submission_created::create(array(
  3004. 'objectid' => $this->iassign->id,
  3005. 'context' => $this->context
  3006. ));
  3007. $event->add_record_snapshot('course', $this->course);
  3008. $event->trigger();
  3009. }
  3010. return $newentry->id;
  3011. }
  3012. /// Return to a specific address of page
  3013. function return_last ($message, $link_return) {
  3014. global $DB, $OUTPUT;
  3015. print $OUTPUT->box_start();
  3016. print '<table width=100% border=0 valign="top">' . "\n";
  3017. print '<tr><td align="left"><strong>' . "\n";
  3018. print_string($message, 'iassign');
  3019. print '</strong></td>' . "\n";
  3020. print '<td width=20% align="right">' . "\n";
  3021. print $link_return;
  3022. print '</td></tr></table>' . "\n";
  3023. print $OUTPUT->box_end();
  3024. print $OUTPUT->footer();
  3025. die();
  3026. } // function return_last($message, $link_return)
  3027. } // class iassign
  3028. /// Class for manage activities
  3029. class activity {
  3030. var $activity;
  3031. /// Constructor of class.
  3032. // @param int $id Id of activity
  3033. // 3.1 update PHP 7.0 compatibility for all moodle versions
  3034. //D public function activity($id) { self::__construct($id); }
  3035. function __construct ($id) {
  3036. global $DB;
  3037. $this->activity = $DB->get_record("iassign_statement", array("id" => $id));
  3038. if (empty($this->activity))
  3039. $this->activity = null;
  3040. }
  3041. /// Get an activity
  3042. // @return NULL
  3043. function get_activity () {
  3044. if ($this->activity != null)
  3045. return $this->activity;
  3046. else
  3047. return null;
  3048. }
  3049. /// Delete interactive activities
  3050. function delete ($return) {
  3051. global $USER, $CFG, $DB, $OUTPUT;
  3052. $iassign_submission_currents = $DB->get_records("iassign_submission", array("iassign_statementid" => $this->activity->id));
  3053. $output = $OUTPUT->header();
  3054. $output .= $OUTPUT->box_start();
  3055. $output .= "<p>" . get_string('delete_activity', 'iassign') . "&nbsp;<strong>" . $this->activity->name . "</strong></p>";
  3056. if ($iassign_submission_currents) {
  3057. $output .= "<p>" . get_string('number_submissions', 'iassign') . "&nbsp;<strong>" . count($iassign_submission_currents) . "</strong></p>";
  3058. if (!has_capability('mod/iassign:deleteiassignnotnull', $USER->context, $USER->id)) {
  3059. $output .= $OUTPUT->heading(get_string('delete_activity_permission_adm', 'iassign'));
  3060. $output .= $OUTPUT->single_button($return, get_string('return', 'iassign'), 'get');
  3061. $output .= $OUTPUT->box_end();
  3062. $output .= $OUTPUT->footer();
  3063. print $output;
  3064. die();
  3065. } // if (!has_capability('mod/iassign:deleteiassignnotnull', $this->context, $USER->id))
  3066. } // if ($iassign_submission_currents)
  3067. else
  3068. $output .= "<p>" . get_string('not_submissions_activity', 'iassign') . "</p>";
  3069. $output .= '<table width=50% border=0>';
  3070. $output .= '<tr valign="top"><td>';
  3071. $output .= "<p>" . get_string('what_do', 'iassign') . "</p>";
  3072. $output .= '</td><td>';
  3073. $bottonDelete_yes = get_string('delete_iassign', 'iassign');
  3074. $deleteiassignyes = $CFG->wwwroot . "/mod/iassign/view.php?id=" . $USER->cm . "&action=deleteyes&iassign_current=" . $this->activity->id;
  3075. $output .= "<form name='formDelete' id='formDelete' method='post' action='$deleteiassignyes' enctype='multipart/form-data'>";
  3076. $output .= " <input type=submit value='$bottonDelete_yes'/>\n";
  3077. $output .= "</form>\n";
  3078. $output .= '</td><td>';
  3079. $bottonDelete_no = get_string('delete_cancel', 'iassign');
  3080. $deleteiassignno = $CFG->wwwroot . "/mod/iassign/view.php?id=" . $USER->cm . "&action=deleteno&iassign_current=" . $this->activity->id;
  3081. $output .= "<form name='formDelete' id='formDelete' method='post' action='$deleteiassignno' enctype='multipart/form-data'>\n";
  3082. $output .= " <p><input type=submit value='$bottonDelete_no'/></p>\n";
  3083. $output .= "</form>\n";
  3084. $output .= '</td></tr></table>' . "\n";
  3085. $output .= $OUTPUT->box_end();
  3086. $output .= $OUTPUT->footer();
  3087. print $output;
  3088. } // function delete($return)
  3089. /// Function for confirm the delete of activity
  3090. // @param String $return Url of return
  3091. // @param Object $iassign Object content an activity
  3092. function deleteyes ($return, $iassign) {
  3093. global $USER, $CFG, $DB, $OUTPUT;
  3094. $msg = '';
  3095. if (!empty($this->activity->id)) {
  3096. $iassign_submission_currents = $DB->get_records("iassign_submission", array("iassign_statementid" => $this->activity->id));
  3097. if ($iassign_submission_currents) {
  3098. if (has_capability('mod/iassign:deleteassignnull', $USER->context, $USER->id)) {
  3099. foreach ($iassign_submission_currents as $iassign_submission)
  3100. $DB->delete_records('iassign_submission_comment', array('iassign_submissionid' => $iassign_submission->id));
  3101. $delete_iassign_submission_currents = $DB->delete_records("iassign_submission ", array("iassign_statementid" => $this->activity->id));
  3102. } // if ($iassign_submission_currents)
  3103. }
  3104. //$delete_iassign_statement_config = $DB->delete_records('iassign_statement_config', array('iassign_statementid' => $this->activity->id)); //MOOC 2016
  3105. $this->delete_calendar($this->activity->id);
  3106. $delete_iassign_current = $DB->delete_records('iassign_statement', array('id' => $this->activity->id));
  3107. iassign::update_grade_iassign($this->activity->iassignid);
  3108. if ($delete_iassign_current) {
  3109. $iassign->return_home_course('confirm_delete_iassign');
  3110. //$msg = get_string ( 'confirm_delete_iassign', 'iassign' );
  3111. } else {
  3112. $iassign->return_home_course('error_confirm_delete_iassign');
  3113. //$msg = get_string ( 'error_confirm_delete_iassign', 'iassign' );
  3114. }
  3115. // if (($this->action == 'deleteyes') && (has_capability('mod/iassign:deleteassignnull', $this->context, $USER->id)))
  3116. }
  3117. }
  3118. /// Changes position of activities (between those inside a group of interactive activities)
  3119. // @param $move_action = must be "up" or "down"
  3120. // @param $target = if 'down' => is 'iassign_statement.id' of the activity bellow the current one; if 'up' => is activity above the current one
  3121. function move_iassign ($move_action, $target, $return) {
  3122. global $DB, $OUTPUT;
  3123. //D echo "mover: this->id=" . $this->activity->id . ", target = $target<br/>";
  3124. $initial_position_source = $this->activity->position; // the position of the "source activity" (that one to be moved)
  3125. $iassign_target = $DB->get_record("iassign_statement", array("id" => $target)); // "target activity" = the activity in the position the receive "source activity"
  3126. if ($move_action=="firstdown") {
  3127. $final_position_source = 2;
  3128. $final_position_target = 1;
  3129. }
  3130. else
  3131. if ($move_action=="down") {
  3132. $final_position_target = $this->activity->position;
  3133. $final_position_source = $final_position_target + 1;
  3134. }
  3135. else
  3136. if ($move_action=="up") {
  3137. $final_position_target = $this->activity->position;
  3138. $final_position_source = $final_position_target - 1;
  3139. }
  3140. else { // error:
  3141. print_error('error_update_move_iassign', 'iassign');
  3142. exit;
  3143. }
  3144. $newentry = new stdClass(); // define a new object (activity) to receive only 2 fields: 'id' and 'position'
  3145. $newentry->id = $this->activity->id; // ID of the "source activity"
  3146. $newentry->position = $final_position_source;
  3147. //D echo "mover: id=" . $this->activity->id . ": de " . $this->activity->position . " -> " . $final_position_source . "<br/>";
  3148. //D echo "mover: id=" . $iassign_target->id . ": de " . $iassign_target->position . " -> " . $final_position_target . "<br/>"; exit;
  3149. if (!$DB->update_record('iassign_statement', $newentry)) { // modify 'position' of the activity with 'id'=$target
  3150. print_error('error_update_move_iassign', 'iassign');
  3151. }
  3152. else { // first update performed successfully
  3153. $newentry->id = $iassign_target->id;
  3154. $newentry->position = $final_position_target;
  3155. if (!$DB->update_record('iassign_statement', $newentry))
  3156. print_error('error_update_move_iassign', 'iassign');
  3157. }
  3158. redirect($return);
  3159. }
  3160. /// Enable or disable the display of interactive activities
  3161. function visible_iassign ($return) {
  3162. global $DB;
  3163. $newentry = new stdClass();
  3164. $newentry->id = $this->activity->id;
  3165. $newentry->visible = $this->activity->visible == 0 ? 1 : 0;
  3166. if (!$DB->update_record('iassign_statement', $newentry))
  3167. print_error('error_update_visible_iassign', 'iassign');
  3168. redirect($return);
  3169. }
  3170. /// Add news interactive activities (register in table 'iassign_statement')
  3171. // @calledby this->add_edit_iassign() : $iassignid = $this->activity->new_iassign($result);
  3172. // @see ilm_manager.php: $ilm_manager_instance->ilm_editor_new();
  3173. function new_iassign ($param) {
  3174. global $DB;
  3175. $newentry = new stdClass();
  3176. $newentry->iassignid = $param->iassignid;
  3177. $newentry->name = $param->name;
  3178. $newentry->type_iassign = $param->type_iassign;
  3179. // $newentry->proposition = $param->proposition; // 2019/02/13 - With the use of 'editor' in 'mform', field 'proposition' is Array ( [text] => <DESCRIPTION> [format] => 1 )
  3180. $proposition = $param->proposition;
  3181. if (is_array($proposition)) $proposition_text = $proposition['text'];
  3182. else $proposition_text = $proposition;
  3183. $newentry->proposition = $proposition_text; // Notice: Trying to get property of non-object
  3184. //TODO I used in 'iassign_form.php' '<select name='iassign_ilmid'...>' with 'optgroup' by hand! But MoodleForm clear/do not register the 'iassign_ilmid'
  3185. //TODO Then get it directly from the form data $_POST!
  3186. //TODO See: 'iassign_form.php' field 'iassign_ilmid' and here (above) 'function add_edit_iassign()'
  3187. if (!isset($param->iassign_ilmid) && isset($_POST['iassign_ilmid']))
  3188. $param->iassign_ilmid = $_POST['iassign_ilmid'];
  3189. $newentry->author_name = $param->author_name;
  3190. $newentry->author_modified_name = $param->author_modified_name;
  3191. $newentry->iassign_ilmid = $param->iassign_ilmid;
  3192. $newentry->file = $param->file; // came from a file from 'get_file_storage()' (it is its ID)
  3193. //TODO criar o campo 'iassign_statement.filesid' e usar: $newentry->filesid = $param->file; // register 'files.id' here in 'iassign_statement.filesid'
  3194. $newentry->grade = $param->grade;
  3195. $newentry->timemodified = time();
  3196. $newentry->timecreated = time();
  3197. if ($param->type_iassign == 1) {
  3198. $newentry->timedue = 0;
  3199. $newentry->timeavailable = 0;
  3200. } // if ($param->type_iassign == 1)
  3201. else {
  3202. $newentry->timedue = $param->timedue;
  3203. $newentry->timeavailable = $param->timeavailable;
  3204. }
  3205. $newentry->preventlate = $param->preventlate;
  3206. $newentry->test = $param->test;
  3207. $newentry->special_param1 = $param->special_param1;
  3208. $newentry->visible = $param->visible;
  3209. $newentry->position = $param->position;
  3210. $newentry->max_experiment = $param->max_experiment;
  3211. $newentry->dependency = $param->dependency;
  3212. $newentry->automatic_evaluate = $param->automatic_evaluate;
  3213. $newentry->show_answer = $param->show_answer;
  3214. $id = $DB->insert_record("iassign_statement", $newentry);
  3215. if ($id) {
  3216. $component = 'mod_iassign';
  3217. $filearea = 'exercise';
  3218. $fs = get_file_storage(); // Get reference to all files in Moodle data
  3219. $file = $fs->get_file_by_id($param->file);
  3220. $itemid = $file->get_itemid() + $id; //TODO Verificar: melhor deixar "$itemid = $file->get_itemid()" pois assim 'files.itemid' guarda 'iassign_statement.id'???
  3221. // File already inserted in other context!
  3222. //TODO Verificar se apenas esta' inserindo nova referencia em 'files' (NAO deve duplicar no Moodle Data)
  3223. $newfile = $fs->create_file_from_storedfile(array('contextid' => $param->context->id, 'component' => $component, 'filearea' => $filearea, 'itemid' => $itemid), $file);
  3224. $updateentry = new stdClass();
  3225. $updateentry->id = $id;
  3226. //TODO Implementar campo 'iassign_statement.filesid' e usar: $updateentry->filesid = $param->file; // register in 'iassign_statement' the 'files.id'
  3227. $updateentry->file = $newfile->get_itemid();
  3228. if (!$DB->update_record("iassign_statement", $updateentry))
  3229. print_error('error_add', 'iassign');
  3230. if ($param->type_iassign == 3)
  3231. iassign::update_grade_iassign($param->iassignid);
  3232. //TODO iLM_HTML5 :: //MOOC2014
  3233. //D $iassign_ilm_configs = $DB->get_records('iassign_ilm_config', array('iassign_ilmid' => $param->iassign_ilmid, 'visible' => '1'));
  3234. //D if ($iassign_ilm_configs) {
  3235. //D foreach ($iassign_ilm_configs as $iassign_ilm_config) {
  3236. //D if ($iassign_ilm_config->param_type != 'static') {
  3237. //D $newentry = new stdClass();
  3238. //D $newentry->iassign_statementid = $id;
  3239. //D $newentry->iassign_ilm_configid = $iassign_ilm_config->id;
  3240. //D $newentry->param_name = $iassign_ilm_config->param_name;
  3241. //D $newentry->param_value =(is_array($param->{'param_'.$iassign_ilm_config->id}) ? implode(",", $param->{'param_'.$iassign_ilm_config->id}) : $param->{'param_'.$iassign_ilm_config->id});
  3242. //D if (!$DB->insert_record("iassign_statement_config", $newentry))
  3243. //D print_error('error_add_param', 'iassign');
  3244. //D }
  3245. //D }
  3246. //D }
  3247. // log event --------------------------------------------------------------------------------------
  3248. iassign_log::add_log('add_iassign_exercise', 'name: ' . $param->name, $id, $param->iassign_ilmid);
  3249. // log event --------------------------------------------------------------------------------------
  3250. return $id;
  3251. }
  3252. else
  3253. print_error('error_add', 'iassign');
  3254. } // function new_iassign($param)
  3255. /// Add the calendar entries for this iassign
  3256. // @param int $coursemoduleid - Required to pass this in because it might not exist in the database yet
  3257. // @return bool
  3258. static function add_calendar ($iassignid) {
  3259. global $DB, $CFG;
  3260. require_once($CFG->dirroot . '/calendar/lib.php');
  3261. $iassign_statement_activity_item = $DB->get_record("iassign_statement", array("id" => $iassignid));
  3262. $iassign = $DB->get_record("iassign", array("id" => $iassign_statement_activity_item->iassignid));
  3263. $event = new stdClass();
  3264. $event->name = $iassign->name . '&nbsp;-&nbsp;' . $iassign_statement_activity_item->name;
  3265. $event->description = $iassign_statement_activity_item->name;
  3266. $event->courseid = $iassign->course;
  3267. $event->groupid = 0;
  3268. $event->userid = 0;
  3269. $event->modulename = 'iassign';
  3270. $event->instance = $iassign->id;
  3271. $event->eventtype = 'due';
  3272. $event->timestart = $iassign_statement_activity_item->timeavailable;
  3273. $event->timeduration = ($iassign_statement_activity_item->timedue - $iassign_statement_activity_item->timeavailable);
  3274. calendar_event::create($event);
  3275. }
  3276. /// Update the calendar entries for this iassign
  3277. // @param int $coursemoduleid - Required to pass this in because it might not exist in the database yet
  3278. // @return bool
  3279. function update_calendar ($iassignid, $olddescription) {
  3280. global $DB, $CFG;
  3281. require_once($CFG->dirroot . '/calendar/lib.php');
  3282. $iassign_statement_activity_item = $DB->get_record("iassign_statement", array("id" => $iassignid));
  3283. $iassign = $DB->get_record("iassign", array("id" => $iassign_statement_activity_item->iassignid));
  3284. $event = new stdClass();
  3285. $event->id = 0;
  3286. $events = $DB->get_records('event', array('modulename' => 'iassign', 'instance' => $iassign->id));
  3287. if ($events) {
  3288. foreach ($events as $value) {
  3289. if ($value->description == $olddescription) {
  3290. $event->id = $value->id;
  3291. }
  3292. }
  3293. }
  3294. if ($event->id != 0) {
  3295. $event->name = $iassign->name . '&nbsp;-&nbsp;' . $iassign_statement_activity_item->name;
  3296. $event->description = $iassign_statement_activity_item->name;
  3297. $event->timestart = $iassign_statement_activity_item->timeavailable;
  3298. $event->timeduration = ($iassign_statement_activity_item->timedue - $iassign_statement_activity_item->timeavailable);
  3299. $calendarevent = calendar_event::load($event->id);
  3300. $calendarevent->update($event);
  3301. } else
  3302. $this->add_calendar($iassignid);
  3303. }
  3304. /// Update the calendar entries for this iassign
  3305. // @param int $coursemoduleid - Required to pass this in because it might not exist in the database yet
  3306. // @return bool
  3307. function delete_calendar ($iassignid) {
  3308. global $DB, $CFG;
  3309. require_once($CFG->dirroot . '/calendar/lib.php');
  3310. $iassign_statement_activity_item = $DB->get_record("iassign_statement", array("id" => $iassignid));
  3311. $iassign = $DB->get_record("iassign", array("id" => $iassign_statement_activity_item->iassignid));
  3312. $events = $DB->get_records('event', array('modulename' => 'iassign', 'instance' => $iassign->id));
  3313. if ($events) {
  3314. foreach ($events as $value) {
  3315. if ($value->description == $iassign_statement_activity_item->name) {
  3316. $DB->delete_records('event', array('id' => $value->id));
  3317. }
  3318. }
  3319. }
  3320. }
  3321. /// Update interactive activities
  3322. function update_iassign ($param) {
  3323. global $DB;
  3324. $component = 'mod_iassign';
  3325. $filearea = 'exercise';
  3326. $fs = get_file_storage(); // Get reference to all files in Moodle data
  3327. $file = $fs->get_file_by_id($param->file);
  3328. $fileold = $fs->get_file_by_id($param->fileold);
  3329. if ($param->file != $param->fileold) {
  3330. if ($fileold) {
  3331. $fileoldarea = $fs->get_area_files($fileold->get_contextid(), $fileold->get_component(), $fileold->get_filearea(), $fileold->get_itemid());
  3332. foreach ($fileoldarea as $value) {
  3333. $value->delete();
  3334. }
  3335. }
  3336. if (!$fs->file_exists($param->context->id, $component, $filearea, $file->get_itemid(), $file->get_filepath(), $file->get_filename())) {
  3337. $itemid = $file->get_itemid() + $param->iassign_id;
  3338. $newfile = $fs->create_file_from_storedfile(array('contextid' => $param->context->id, 'component' => $component, 'filearea' => $filearea, 'itemid' => $itemid), $file);
  3339. $param->file = $newfile->get_itemid();
  3340. } else
  3341. $param->file = $file->get_itemid();
  3342. } else {
  3343. $param->file = $file->get_itemid();
  3344. }
  3345. $newentry = new stdClass();
  3346. $newentry->id = $param->iassign_id;
  3347. $newentry->name = $param->name;
  3348. $newentry->type_iassign = $param->type_iassign;
  3349. //2019 $newentry->proposition = $param->proposition;
  3350. $proposition = $param->proposition;
  3351. if (is_array($proposition))
  3352. $proposition_text = $proposition['text'];
  3353. else
  3354. $proposition_text = $proposition;
  3355. $newentry->proposition = $proposition_text;
  3356. $newentry->iassign_ilmid = $param->iassign_ilmid;
  3357. $newentry->file = $param->file; // came from a file from 'get_file_storage()' (it is its ID)
  3358. $newentry->grade = $param->grade;
  3359. $newentry->author_modified_name = $param->author_modified_name;
  3360. $newentry->timemodified = time();
  3361. if ($param->type_iassign == 1) {
  3362. $newentry->timedue = 0;
  3363. $newentry->timeavailable = 0;
  3364. } // if ($param->type_iassign == 1)
  3365. else {
  3366. $newentry->timedue = $param->timedue;
  3367. $newentry->timeavailable = $param->timeavailable;
  3368. }
  3369. $newentry->preventlate = $param->preventlate;
  3370. $newentry->test = $param->test;
  3371. $newentry->special_param1 = $param->special_param1;
  3372. $newentry->visible = $param->visible;
  3373. $newentry->max_experiment = $param->max_experiment;
  3374. $newentry->dependency = $param->dependency;
  3375. $newentry->automatic_evaluate = $param->automatic_evaluate;
  3376. $newentry->show_answer = $param->show_answer;
  3377. if (!$DB->update_record("iassign_statement", $newentry))
  3378. print_error('error_update', 'iassign');
  3379. if ($param->type_iassign == 3) {
  3380. iassign::update_grade_iassign($param->iassignid);
  3381. }
  3382. //$id = $newentry->id; // MOOC 2016 --- inicio
  3383. //$iassign_activity_item_configs = $DB->get_records('iassign_statement_config', array('iassign_statementid' => $newentry->id));
  3384. //if ($iassign_activity_item_configs) {
  3385. //foreach ($iassign_activity_item_configs as $iassign_activity_item_config) {
  3386. // $newentry = new stdClass();
  3387. // $newentry->id = $iassign_activity_item_config->id;
  3388. // $newentry->param_value =(is_array($param->{'param_'.$iassign_activity_item_config->iassign_ilm_configid}) ? implode(",",
  3389. // $newentry->param_value =(is_array($param->{'param_' . $iassign_activity_item_config->iassign_ilm_configid}) ? implode(",",
  3390. // $param->{'param_' . $iassign_activity_item_config->iassign_ilm_configid}) : $param->{'param_' . $iassign_activity_item_config->iassign_ilm_configid});
  3391. // if (!$DB->update_record("iassign_statement_config", $newentry))
  3392. // print_error('error_edit_param', 'iassign');
  3393. // }
  3394. // } // MOOC 2016 --- final
  3395. // log event --------------------------------------------------------------------------------------
  3396. iassign_log::add_log('update_iassign_exercise', 'name: ' . $param->name, $param->iassign_id, $param->iassign_ilmid);
  3397. // log event --------------------------------------------------------------------------------------
  3398. return $newentry->id;
  3399. // if ($param->type_iassign==3)
  3400. // $this->update_grade_iassign($param->iassignid);
  3401. } // function update_iassign($param)
  3402. /// Show information of activity
  3403. function show_info_iassign () {
  3404. global $DB, $OUTPUT;
  3405. $output = '<p><strong>' . get_string('proposition', 'iassign') . ':</strong>&nbsp;' . $this->activity->proposition . '</p>' . "\n";
  3406. if ($this->activity->type_iassign == 3) {
  3407. if ($this->activity->dependency == 0) {
  3408. $output .= '<p><strong>' . get_string('independent_activity', 'iassign') . '</strong></p>' . "\n";
  3409. } else {
  3410. $dependencys = explode(';', $this->activity->dependency);
  3411. $output .= '<p><strong>' . get_string('dependency', 'iassign') . '</strong></p>';
  3412. foreach ($dependencys as $dependency) {
  3413. $dependencyiassign = $DB->get_record("iassign_statement", array("id" => $dependency));
  3414. if ($dependencyiassign)
  3415. $output .= '<p>' . $dependencyiassign->name . '</p>' . "\n";
  3416. } // foreach ($dependencys as $dependency)
  3417. } // if ($iassign_statement_activity_item->dependency == 0)
  3418. if ($this->activity->max_experiment == 0)
  3419. $output .= '<p><strong>' . get_string('experiment', 'iassign') . '</strong>&nbsp;' . get_string('ilimit', 'iassign');
  3420. else
  3421. $output .= '<p><strong>' . get_string('experiment_iassign', 'iassign') . '</strong>&nbsp;' . $this->activity->max_experiment . "\n";
  3422. $output .= '&nbsp;&nbsp;&nbsp;<strong>' . get_string('grade_iassign', 'iassign') . '</strong>&nbsp;' . $this->activity->grade . '</p>' . "\n";
  3423. } // if ($iassign_statement_activity_item->type_iassign == 3)
  3424. print $OUTPUT->box($output);
  3425. } // function show_info_iassign()
  3426. /// Shows date of opening and closing activities
  3427. function view_dates () {
  3428. global $USER, $CFG, $DB, $OUTPUT;
  3429. $return = $CFG->wwwroot . "/mod/iassign/view.php?id=" . $USER->cm;
  3430. $link_return = "&nbsp;<a href='" . $return . "'>" . iassign_icons::insert('home') . get_string('activities_page', 'iassign') . "</a>";
  3431. $status_iassign = "";
  3432. $status_iassign1 = "";
  3433. $status_iassign2 = "";
  3434. if ($this->activity->type_iassign == 1) // activity of type example
  3435. $type_iassign = get_string('example_iassign', 'iassign');
  3436. elseif ($this->activity->type_iassign == 2) { // activity of type test
  3437. $type_iassign = get_string('test_iassign', 'iassign');
  3438. if ($this->activity->timeavailable > time()) {
  3439. $status_iassign = get_string('previous_timeavailable', 'iassign');
  3440. } elseif ($this->activity->timedue < time()) {
  3441. $status_iassign = get_string('last_timedue', 'iassign');
  3442. }
  3443. } elseif ($this->activity->type_iassign == 3) { // activity of type exercise
  3444. $type_iassign = get_string('exercise_iassign', 'iassign');
  3445. if ($this->activity->timeavailable > time()) {
  3446. $status_iassign = get_string('previous_timeavailable', 'iassign'); // before of deadline
  3447. } elseif ($this->activity->timedue < time()) { // after delivery
  3448. $status_iassign = get_string('last_timedue', 'iassign');
  3449. if ($this->activity->preventlate == 1) // permitted to submit after the deadline
  3450. $status_iassign1 = get_string('duedate_preventlate_enable', 'iassign');
  3451. elseif ($this->activity->preventlate == 0) { // not permitted to submit after the deadline
  3452. $status_iassign1 = get_string('duedate_preventlate_desable', 'iassign');
  3453. if ($this->activity->test == 1) // allowed to test after of deadline
  3454. $status_iassign2 = get_string('test_preventlate', 'iassign');
  3455. elseif ($this->activity->test == 0) { // not allowed to test after of deadline
  3456. $status_iassign2 = get_string('test_preventlate_no', 'iassign');
  3457. } // elseif ($iassign_statement_activity_item->test == 0)
  3458. } // elseif ($iassign_statement_activity_item->preventlate == 0)
  3459. } // elseif ($iassign_statement_activity_item->timedue < time())
  3460. } // elseif ($iassign_statement_activity_item->type_iassign == 3)
  3461. $output = '<table width=100% >' . "\n";
  3462. $output .= '<tr><td colspan=2><h4>' . $this->activity->name . '</h4></td></tr>' . "\n";
  3463. $output .= '<tr>' . "\n";
  3464. // TODO duvida: como permitir ao admin,professor,monitor ver a atividade mesmo apos prazo???
  3465. // Leo testes para passar por cima com 'has_capability('mod/iassign:...', $this->context, $USER->id)
  3466. $output .= '<td width=60%>' . $type_iassign . '</td>' . "\n";
  3467. // leo $output .= '<td width=80%>' . $type_iassign;
  3468. // $output .= $auxStr . " - status_assign=$status_iassign - this->activity->type_iassign=" . $this->activity->type_iassign. "<br/>"; // Period ended.
  3469. // $output .= '</td>' . "\n";
  3470. if (has_capability('mod/iassign:viewiassignall', $USER->context, $USER->id) && ($this->activity->type_iassign == 3)) {
  3471. // Link (with icon) to report survey of this batch of these insteractivy exercises
  3472. $link_report = "<a href='" . $CFG->wwwroot . "/mod/iassign/view.php?id=" . $USER->cm . "&action=report&iassignid=" . $this->activity->iassign_ilmid . "'>" . iassign_icons::insert('view_report') . '&nbsp;' . get_string('report', 'iassign') . "</a>";
  3473. $output .= '<td width=40% align="right">' . '&nbsp;' . $link_report . '</td>' . "\n";
  3474. } else {
  3475. $link_next = "";
  3476. $link_previous = "";
  3477. $iassign_previous = $DB->get_record('iassign_statement', array('iassignid' => $this->activity->iassignid, 'position' => $this->activity->position - 1));
  3478. $iassign_next = $DB->get_record('iassign_statement', array('iassignid' => $this->activity->iassignid, 'position' => $this->activity->position + 1));
  3479. // previous_activity
  3480. if ($iassign_previous) {
  3481. $url_previous = "view.php?id=$USER->cm&userid_iassign=$USER->id&action=view&iassign_current=$iassign_previous->id";
  3482. $link_previous = "<a href='" . $url_previous . "'>" . (iassign_icons::insert('previous_student_activity')) . "</a>";
  3483. } // next_activity
  3484. if ($iassign_next) {
  3485. $url_next = "view.php?id=$USER->cm&userid_iassign=$USER->id&action=view&iassign_current=$iassign_next->id";
  3486. $link_next = "<a href='" . $url_next . "'>" . (iassign_icons::insert('next_student_activity')) . "</a>";
  3487. }
  3488. $output .= '<td width=40% align="right">' . $link_previous . '&nbsp;&nbsp;&nbsp;' . $link_return . '&nbsp;&nbsp;&nbsp;' . $link_next . '</td>' . "\n";
  3489. } // if (has_capability('mod/iassign:viewiassignall', $this->context, $USER->id) && ($iassign_statement_activity_item->type_iassign == 3))
  3490. $output .= '</tr></table>' . "\n";
  3491. $output .= '<table width=100% >' . "\n";
  3492. if ($this->activity->type_iassign > 1) {
  3493. if ($this->activity->timeavailable)
  3494. $output .= '<tr><td width=50% align="left"> <strong>' . get_string('availabledate', 'iassign') . ':</strong>&nbsp;' . userdate($this->activity->timeavailable) . '</td>' . "\n";
  3495. if ($this->activity->timedue)
  3496. $output .= '<td width=50% align="left"><strong>' . get_string('duedate', 'iassign') . ':</strong>&nbsp;' . userdate($this->activity->timedue) . '</td>' . "\n";
  3497. } // if ($iassign_statement_activity_item->type_iassign > 1)
  3498. if ($status_iassign != "" && $status_iassign1 != "" && $status_iassign2 != "")
  3499. $output .= '<tr><td><font color="red">' . $status_iassign . '&nbsp;' . $status_iassign1 . '&nbsp;' . $status_iassign2 . '</font></td></tr>' . "\n";
  3500. $output .= '</table>' . "\n";
  3501. print $OUTPUT->box($output);
  3502. } // function view_dates()
  3503. } // class activity
  3504. /// Class to manage Interactive Learning Module (iLM)
  3505. class ilm {
  3506. var $ilm;
  3507. /// Constructor of class
  3508. // @param int $id Id of iLM
  3509. //D 3.1 update PHP 7.0 compatibility for all moodle versions
  3510. //D public function ilm($id) { self::__construct($iassign, $cm, $course); }
  3511. function __construct ($id) {
  3512. global $DB;
  3513. $this->ilm = $DB->get_record("iassign_ilm", array("id" => $id));
  3514. if (empty($this->ilm))
  3515. $this->ilm = null;
  3516. }
  3517. /// Shows activity in iLM
  3518. // @calledby view_iassign_current()
  3519. function view_iLM ($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view_teacherfileversion) {
  3520. global $USER, $CFG, $DB;
  3521. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $iassign_statement_activity_item->iassign_ilmid));
  3522. // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada
  3523. $typec = strtolower($iassign_ilm->type);
  3524. require_once 'ilm_handlers/' . $typec . '.php';
  3525. $retorno = $typec::show_activity_in_ilm($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view_teacherfileversion);
  3526. return $retorno;
  3527. } // function view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view_teacherfileversion)
  3528. /// Function to give a single access to an iLM content avoi (after used, 'view()', after 'view_iLM(...)', will erase the entry)
  3529. // @calledby view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view_teacherfileversion) : $id_iLM_security=$this->write_iLM_security($iassign_statement_activity_item->id,$content_or_id_from_ilm_security);
  3530. // @param int $iassign_statement_activity_itemid Id of iassign statement
  3531. // @param Object $file File in use in activity
  3532. // @return int Return the id of log
  3533. function write_iLM_security ($iassign_activity_itemid, $content_or_id_from_ilm_security) {
  3534. global $CFG, $USER, $COURSE, $DB, $OUTPUT;
  3535. $newentry = new stdClass();
  3536. $newentry->iassign_statementid = $iassign_activity_itemid;
  3537. $newentry->userid = $USER->id;
  3538. $newentry->file = $content_or_id_from_ilm_security;
  3539. $newentry->timecreated = time();
  3540. $newentry->view = 1;
  3541. $id_iLM_security = $DB->insert_record("iassign_security", $newentry);
  3542. if (!$id_iLM_security) {
  3543. print_error('error_security', 'iassign'); // ./lib/setuplib.php: moodle_exception thrown
  3544. } // from (!$DB->insert_record("iassign_security", $newentry))
  3545. return $id_iLM_security;
  3546. }
  3547. /// Function to avoid that erros in remotion of entries in table 'iassign_security' allow future access to this contents
  3548. // @calledby view_iLM($iassign_statement_activity_item, $student_answer, $enderecoPOST, $view_teacherfileversion) : $this->remove_old_iLM_security_entries($USER->id, $iassign_statement_activity_item->id);
  3549. // @param int $userid
  3550. // @param int $iassign_activity_itemid Id of iassign statement
  3551. function remove_old_iLM_security_entries ($userid, $iassign_activity_itemid) {
  3552. global $DB;
  3553. // This is an additional security: erase eventually old entries in 'iassign_security' table (do not remove '$iassign_activity_itemid' since it is going to be used "now")
  3554. $result = $DB->delete_records_select("iassign_security", "userid=" . $userid . " AND iassign_statementid<>" . $iassign_activity_itemid, null);
  3555. }
  3556. } // class ilm
  3557. /// Class to manage settings of iLM.
  3558. class ilm_settings {
  3559. /// Function to prepare tag to load iLM (that is stored in Moodle file system - usually /var/moodledata/filedir/).
  3560. // In case of JAR it will prepare the tag "applet". In case of HTML5 will prepare an "iframe".
  3561. // @param int $ilm_id Id of iLM
  3562. // @param array $options An array with options for create dynamic tag html APPLET
  3563. // @return string Return with a tag html APPLET created
  3564. static function build_ilm_tags ($ilm_id, $options = array()) {
  3565. global $DB;
  3566. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  3567. // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada
  3568. $typec = strtolower($iassign_ilm->type);
  3569. require_once 'ilm_handlers/' . $typec . '.php';
  3570. $retorno = $typec::build_ilm_tags($ilm_id, $options);
  3571. return $retorno;
  3572. } // static function build_ilm_tags($ilm_id, $options = array())
  3573. /// Function for get modified date of iLM file
  3574. // @param string $file_jar String with Ids of iLM files
  3575. // @return string Return with the filenames and modified date
  3576. static function applet_filetime ($file_jar) {
  3577. $filetime = "";
  3578. $fs = get_file_storage(); // Get reference to all files in Moodle data
  3579. $files_jar = explode(",", $file_jar);
  3580. foreach ($files_jar as $one_file) {
  3581. $file = $fs->get_file_by_id($one_file);
  3582. if ($file)
  3583. $filetime .= "\n" . $file->get_filename() . ' (' . userdate($file->get_timemodified()) . ')' . '</br>';
  3584. }
  3585. return $filetime;
  3586. }
  3587. /// Function for verify an default applet
  3588. // @param String $file_jar String containing an list de ids of applet files
  3589. // @return boolean Return true or fale if applet is default
  3590. static function applet_default ($file_jar) {
  3591. $is_default = true;
  3592. $fs = get_file_storage(); // Get reference to all files in Moodle data
  3593. $files_jar = explode(",", $file_jar);
  3594. foreach ($files_jar as $one_file) {
  3595. $file = $fs->get_file_by_id($one_file);
  3596. if ($file)
  3597. $is_default &= ($file->get_itemid() == 0);
  3598. }
  3599. return $is_default;
  3600. }
  3601. /// Function for get form variables for add, edit, or copy iLM
  3602. // @calledby settings_ilm.php (2 times, initially to fill the form, second to register the iLM)
  3603. // @see settings_form.php
  3604. // @see locallib.php : static function copy_new_version_ilm ($param) : perform the data register (files and database)
  3605. // @param int $ilm_id Id of iLM
  3606. // @param string $action String with the action
  3607. // @return object Return an object with forms variables
  3608. static function add_edit_copy_ilm ($ilm_id, $action) {
  3609. global $USER, $DB, $CFG;
  3610. require_once('settings_form.php'); // put the form
  3611. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  3612. $param = new stdClass();
  3613. $param->action = $action;
  3614. $param->ilm_id = $ilm_id;
  3615. $CFG->action_ilm = $action;
  3616. $CFG->ilm_id = $ilm_id;
  3617. if ($action == 'add') {
  3618. $param->title = get_string('add_ilm', 'iassign');
  3619. $param->name = "";
  3620. $param->version = "";
  3621. $param->url = "";
  3622. $param->description = "";
  3623. $param->extension = "";
  3624. $param->author = $USER->id;
  3625. $param->file_jar = "";
  3626. $param->file_jar_static = "";
  3627. $param->file_class = "";
  3628. $param->width = 800;
  3629. $param->height = 600;
  3630. $param->enable = 0; // 0 - hide / 1 - show
  3631. $param->timecreated = time();
  3632. $param->timemodified = time();
  3633. $param->evaluate = 0;
  3634. $param->parent = 0;
  3635. }
  3636. elseif ($action == 'edit') { // static function add_edit_copy_ilm($ilm_id, $action)
  3637. if ($iassign_ilm) {
  3638. $description = json_decode($iassign_ilm->description);
  3639. $param->title = get_string('edit_ilm', 'iassign');
  3640. $param->id = $iassign_ilm->id;
  3641. $param->name_ilm = $iassign_ilm->name;
  3642. $param->name = $iassign_ilm->name;
  3643. $param->version = $iassign_ilm->version;
  3644. $param->ilm_type = $iassign_ilm->type;
  3645. $param->type = $iassign_ilm->type; // using as 'type' in ilm_handlers/html5.php
  3646. $param->url = $iassign_ilm->url;
  3647. // If the iLM does not present curret language => Notice: Undefined property: stdClass::$en_us in...
  3648. if (!isset($description->{current_language()})) {
  3649. if (isset($description->{"en_us"})) $param->description = $description->{"en_us"};
  3650. else
  3651. if (isset($description->{"pt_br"})) $param->description = $description->{"pt_br"};
  3652. else $param->description = ""; //TODO Providenciar uma mensagem!? Pegar alguma lingua existente?
  3653. }
  3654. else
  3655. $param->description = $description->{current_language()};
  3656. $param->description_lang = $iassign_ilm->description;
  3657. $param->extension = $iassign_ilm->extension;
  3658. $param->author = $iassign_ilm->author;
  3659. $param->file_jar = $iassign_ilm->file_jar;
  3660. $param->file_jar_static = ilm_settings::applet_filetime($iassign_ilm->file_jar);
  3661. $param->file_class = $iassign_ilm->file_class;
  3662. $param->width = $iassign_ilm->width;
  3663. $param->height = $iassign_ilm->height;
  3664. $param->enable = $iassign_ilm->enable;
  3665. $param->timecreated = $iassign_ilm->timecreated;
  3666. $param->timemodified = time();
  3667. $param->evaluate = $iassign_ilm->evaluate;
  3668. $param->parent = $iassign_ilm->parent;
  3669. }
  3670. }
  3671. elseif ($action == 'new_version') { // Reaches this point from the form to add new iLM
  3672. // @see ./settings_ilm.php: $param = ilm_settings::add_edit_copy_ilm($ilm_id, $action);
  3673. // $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  3674. if (!$iassign_ilm) { // The second turn (form sended) reaches this point - Just in case (if the admin use back and forward in the browser)
  3675. print get_string('empty_file', 'iassign') . "?<br/>\n"; //TODO warning not to use back?
  3676. // echo "Sem dados<br/>"; exit;
  3677. return;
  3678. }
  3679. $description = json_decode($iassign_ilm->description);
  3680. if ($iassign_ilm) {
  3681. if ($iassign_ilm->parent == 0)
  3682. $iassign_ilm->parent = $ilm_id;
  3683. $param->ilm_id = $ilm_id; //2019 after 'settings_ilm.php' it reaches this point again, better to define 'ilm_id'
  3684. $param->title = get_string('new_version_ilm', 'iassign');
  3685. $param->name_ilm = $iassign_ilm->name;
  3686. $param->name = $iassign_ilm->name;
  3687. $param->version = ""; // erase field 'version' - in order to present this field empty on the form (in 'settings_form.php')
  3688. $param->version_last = $iassign_ilm->version; //TODO not yet used!
  3689. $param->version = $iassign_ilm->version; // do not erase field 'version'
  3690. $param->ilm_type = $iassign_ilm->type;
  3691. $param->url = $iassign_ilm->url;
  3692. $param->description = $description->{current_language()};
  3693. $param->description_lang = $iassign_ilm->description; // JSON format: {"en":"Visual Interactive Programming on the Internet HTML5","pt_br":"Programação visual interativa na Internet"}
  3694. //D echo "locallib.php: add_edit_copy_ilm(...): param->description=" . $param->description . ", param->description_lang=". $param->description_lang . "<br/>";
  3695. $param->extension = $iassign_ilm->extension;
  3696. $param->author = $USER->id;
  3697. //D $param->file_jar = ''; // do not erase field 'file_jar'!
  3698. $param->file_jar = $iassign_ilm->file_jar; // do not erase field 'file_jar'!
  3699. $param->file_jar_static = '';
  3700. $param->file_class = $iassign_ilm->file_class;
  3701. $param->width = $iassign_ilm->width;
  3702. $param->height = $iassign_ilm->height;
  3703. $param->enable = 0;
  3704. $param->timecreated = time();
  3705. $param->timemodified = time();
  3706. $param->evaluate = $iassign_ilm->evaluate;
  3707. $param->parent = $iassign_ilm->parent;
  3708. }
  3709. }
  3710. elseif ($action == 'copy') {
  3711. $description = json_decode($iassign_ilm->description);
  3712. if ($iassign_ilm) {
  3713. if ($iassign_ilm->parent == 0)
  3714. $iassign_ilm->parent = $ilm_id;
  3715. $param->title = get_string('copy_ilm', 'iassign');
  3716. $param->id = $iassign_ilm->id;
  3717. $param->name_ilm = $iassign_ilm->name;
  3718. $param->name = $iassign_ilm->name;
  3719. $param->version = "";
  3720. $param->ilm_type = $iassign_ilm->type;
  3721. $param->type = $iassign_ilm->type; // using as 'type' in ilm_handlers/html5.php
  3722. $param->url = $iassign_ilm->url;
  3723. $param->description = $description->{current_language()};
  3724. $param->description_lang = $iassign_ilm->description;
  3725. $param->extension = $iassign_ilm->extension;
  3726. $param->author = $USER->id;
  3727. $param->file_jar = '';
  3728. $param->file_jar_static = '';
  3729. $param->file_class = $iassign_ilm->file_class;
  3730. $param->width = $iassign_ilm->width;
  3731. $param->height = $iassign_ilm->height;
  3732. $param->enable = 0;
  3733. $param->timecreated = time();
  3734. $param->timemodified = time();
  3735. $param->evaluate = $iassign_ilm->evaluate;
  3736. $param->parent = $iassign_ilm->parent;
  3737. }
  3738. }
  3739. return $param;
  3740. } // static function add_edit_copy_ilm($ilm_id, $action)
  3741. /// Function for save iLM file in moodledata
  3742. // @param int $itemid Itemid of file save in draft (upload file)
  3743. // @param int $ilm_id Id of iLM
  3744. // @return string Return an string with ids of iLM files
  3745. static function new_file_ilm ($itemid, $iassign_ilm) {
  3746. global $CFG, $USER, $DB;
  3747. $return = null;
  3748. $file_jar = array();
  3749. $fs = get_file_storage(); // Get reference to all files in Moodle data
  3750. $contextuser = context_user::instance($USER->id);
  3751. $contextsystem = context_system::instance();
  3752. $files_ilm = $fs->get_area_files($contextuser->id, 'user', 'draft', $itemid);
  3753. if ($files_ilm) {
  3754. foreach ($files_ilm as $value) {
  3755. // CHECK IF file is HTML type
  3756. if ($iassign_ilm->type == 1) {
  3757. // Check if the file extension is ZIP
  3758. $ext = pathinfo($value->get_filename(), PATHINFO_EXTENSION);
  3759. // It is ZIP: copy it to the 'ilm_debug' and unpack it on directory 'ilm/'
  3760. if ((strtolower($ext) == 'zip')) {
  3761. // Coping...:
  3762. $destination = 'ilm_debug/' . $value->get_filename();
  3763. $value->copy_content_to($destination);
  3764. // Extracting content...:
  3765. $zip = new ZipArchive();
  3766. $extracted = './ilm';
  3767. $dir = "";
  3768. if ($zip->open($destination) === TRUE) {
  3769. $dir = './ilm/' . trim($zip->getNameIndex(0));
  3770. if (is_dir($dir)) {
  3771. $i = 1;
  3772. $previous = str_replace("/", "", $zip->getNameIndex(0));
  3773. while (file_exists('./ilm/' . $previous . "_" . $i)) {
  3774. $i ++;
  3775. }
  3776. $name = $previous . "_" . $i;
  3777. $dir = './ilm/' . $name . "/";
  3778. $j = 0;
  3779. while ($item_name = $zip->getNameIndex($j)) {
  3780. $zip->renameIndex($j, str_replace($previous, $name, $item_name));
  3781. $j++;
  3782. }
  3783. $zip->close();
  3784. }
  3785. $zip->open($destination);
  3786. $zip->extractTo($extracted);
  3787. $zip->close();
  3788. // After the extraction, remove it from DEBUG
  3789. unlink($destination);
  3790. } else { // Error trying to open destination...
  3791. // After the extraction error, also remove it from DEBUG
  3792. unlink($destination);
  3793. print_error('error_add_ilm_zip', 'iassign');
  3794. }
  3795. return $dir;
  3796. }
  3797. } // if ($iassign_ilm->type == 1)
  3798. if ($value->get_filename() != '.') {
  3799. $file_ilm = array(
  3800. 'userid' => $USER->id,
  3801. 'contextid' => $contextsystem->id,
  3802. 'component' => 'mod_iassign',
  3803. 'filearea' => 'ilm',
  3804. 'itemid' => rand(1, 999999999),
  3805. 'filepath' => '/iassign/ilm/' . iassign_utils::format_pathname($iassign_ilm->name) . '/' . iassign_utils::format_pathname($iassign_ilm->version) . '/',
  3806. 'filename' => $value->get_filename());
  3807. $file_ilm = $fs->create_file_from_storedfile($file_ilm, $value);
  3808. array_push($file_jar, $file_ilm->get_id());
  3809. }
  3810. }
  3811. if (!empty($file_jar)) {
  3812. $return = implode(",", $file_jar);
  3813. $old_file_jar = explode(",", $iassign_ilm->file_jar);
  3814. foreach ($old_file_jar as $value) {
  3815. $file = $fs->get_file_by_id($value);
  3816. if ($file)
  3817. $fs->delete_area_files($contextsystem->id, 'mod_iassign', 'ilm', $file->get_itemid());
  3818. }
  3819. }
  3820. }
  3821. else // if ($files_ilm)
  3822. $return = $iassign_ilm->file_jar;
  3823. $delete_file = $fs->delete_area_files($contextuser->id, 'user', 'draft', $itemid);
  3824. return $return;
  3825. } // static function new_file_ilm($itemid, $iassign_ilm)
  3826. /// Function for save in database an new iLM
  3827. // @param object $param An object with iLM params
  3828. static function new_ilm ($itemid) {
  3829. global $CFG, $USER, $OUTPUT;
  3830. // Verifica se existe algum XML anterior na pasta temp e o exclui
  3831. if (file_exists($CFG->dataroot . '/temp/' . 'ilm-application.xml')) {
  3832. unlink($CFG->dataroot . '/temp/' . 'ilm-application.xml');
  3833. }
  3834. $pathtemp = $CFG->dataroot . '/temp/';
  3835. $contextuser = context_user::instance($USER->id);
  3836. $fs = get_file_storage(); // Get reference to all files in Moodle data
  3837. $zip = new zip_packer();
  3838. $files = $fs->get_directory_files($contextuser->id, 'user', 'draft', $itemid, '/');
  3839. foreach ($files as $file) {
  3840. if (!$file->is_directory())
  3841. $files_extract = $zip->extract_to_pathname($file, $pathtemp);
  3842. }
  3843. $application_xml = @simplexml_load_file($CFG->dataroot . '/temp/' . 'ilm-application.xml', null, LIBXML_NOCDATA);
  3844. // Verifica se o pacote possui o XML
  3845. if (!$application_xml) {
  3846. print($OUTPUT->notification(get_string('error_xml_ilm', 'iassign'), 'notifyproblem'));
  3847. return;
  3848. } else {
  3849. $missing = "";
  3850. if (!isset($application_xml->name)) {
  3851. $missing .= "name";
  3852. }
  3853. if (!isset($application_xml->version)) {
  3854. $missing .= ", version";
  3855. }
  3856. if (!isset($application_xml->type)) {
  3857. $missing .= ", type";
  3858. }
  3859. if (!isset($application_xml->extension)) {
  3860. $missing .= ", extension";
  3861. }
  3862. if (!isset($application_xml->file_jar)) {
  3863. $missing .= ", file_jar";
  3864. }
  3865. if (!isset($application_xml->file_class)) {
  3866. $missing .= ", file_class";
  3867. }
  3868. if (!isset($application_xml->width)) {
  3869. $missing .= ", width";
  3870. }
  3871. if (!isset($application_xml->height)) {
  3872. $missing .= ", height";
  3873. }
  3874. if (!isset($application_xml->evaluate)) {
  3875. $missing .= ", evaluate";
  3876. }
  3877. if (strlen($missing) > 2) {
  3878. print($OUTPUT->notification(get_string('error_xml_missing', 'iassign') . $missing . ".", 'notifyproblem'));
  3879. return;
  3880. }
  3881. }
  3882. // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada
  3883. $typec = strtolower($application_xml->type);
  3884. require_once 'ilm_handlers/' . $typec . '.php';
  3885. $retorno = $typec::new_ilm($itemid, $files_extract, $application_xml, $contextuser, $fs);
  3886. return $retorno;
  3887. } // static function new_ilm($itemid)
  3888. /// Function for save in database an iLM edit
  3889. // @param object $param An object with iLM params
  3890. static function edit_ilm ($param, $itemid) {
  3891. // Descobrir o tipo de iLM:
  3892. global $DB, $USER, $CFG;
  3893. $iassign_t = $DB->get_record('iassign_ilm', array('id' => $param->id));
  3894. $pathtemp = $CFG->dataroot . '/temp/';
  3895. $contextuser = context_user::instance($USER->id);
  3896. $fs = get_file_storage(); // Get reference to all files in Moodle data
  3897. $zip = new zip_packer();
  3898. $files = $fs->get_directory_files($contextuser->id, 'user', 'draft', $itemid, '/');
  3899. $files_extract = null;
  3900. foreach ($files as $file) {
  3901. if (!$file->is_directory())
  3902. $files_extract = $zip->extract_to_pathname($file, $pathtemp);
  3903. }
  3904. // Get the iLM type (HTML5 or Java) to call the correspondent updater
  3905. $typec = strtolower($iassign_t->type);
  3906. require_once 'ilm_handlers/' . $typec . '.php';
  3907. $typec::edit_ilm($param, $itemid, $files_extract, $contextuser); // ilm_handlers/html5.php or ilm_handlers/java.php
  3908. }
  3909. /// Function for register the new iLM (in database and in the directory)
  3910. // @see settings_ilm.php : ilm_settings::copy_new_version_ilm($formdata)
  3911. // @param object $param An object with iLM params
  3912. static function copy_new_version_ilm ($param) {
  3913. global $DB, $CFG, $USER;
  3914. $itemid = $param->file;
  3915. $pathtemp = $CFG->dataroot . '/temp/';
  3916. //D echo "locallib.php: copy_new_version_ilm(...): param->description=" . $param->description . ", param->description_lang=". $param->description_lang . "<br/>";
  3917. //D echo "pathtemp=$pathtemp<br/>";
  3918. $contextuser = context_user::instance($USER->id);
  3919. $fs = get_file_storage(); // Get reference to all files in Moodle data
  3920. $zip = new zip_packer();
  3921. $files = $fs->get_directory_files($contextuser->id, 'user', 'draft', $itemid, '/');
  3922. $files_extract = null;
  3923. foreach ($files as $file) {
  3924. if (!$file->is_directory())
  3925. $files_extract = $zip->extract_to_pathname($file, $pathtemp);
  3926. }
  3927. // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada
  3928. $iassign_t = $DB->get_record('iassign_ilm', array('id' => $param->parent));
  3929. $typec = strtolower($iassign_t->type);
  3930. require_once 'ilm_handlers/' . $typec . '.php';
  3931. //D echo "locallib.php: copy_new_version_ilm(...): antes - param->description=" . $param->description . "<br/>";
  3932. $typec::copy_new_version_ilm($param, $files_extract); // ./mod/iassign/ilm_handlers/html5.php: in fact, here the new iLM is inserted
  3933. } // static function copy_new_version_ilm($param)
  3934. //VER::
  3935. //Notice: Undefined variable: output_ilm in ./mod/iassign/locallib.php on line 5054
  3936. //Notice: Trying to get property of non-object in ./mod/iassign/locallib.php on line 192
  3937. //Notice: Trying to get property of non-object in ./mod/iassign/locallib.php on line 194
  3938. /// Function for change visibility of iLM
  3939. // @param int $ilm_id Id of iLM
  3940. // @param int $status Indicator of change vibility (0 = hide, 1 = show)
  3941. static function visible_ilm ($ilm_id, $status) {
  3942. global $DB;
  3943. if ($status == 0)
  3944. $visible = 1;
  3945. else
  3946. $visible = 0;
  3947. $newentry = new stdClass();
  3948. $newentry->id = $ilm_id;
  3949. $newentry->enable = $visible;
  3950. if (!$DB->update_record("iassign_ilm", $newentry))
  3951. error(get_string('error_edit_ilm', 'iassign'));
  3952. }
  3953. /// Function for confirm change default iLM
  3954. // @param int $ilm_id Id of iLM
  3955. // @param int $ilm_parent Id of parent iLM
  3956. // @return string Return with an string for create default page confirmation
  3957. static function confirm_default_ilm ($ilm_id, $ilm_parent) {
  3958. global $OUTPUT, $DB;
  3959. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  3960. $optionsno = new moodle_url('/admin/settings.php', array('section' => 'modsettingiassign', 'action' => 'config', 'ilm_id' => $ilm_parent));
  3961. $optionsyes = new moodle_url('/mod/iassign/settings_ilm.php', array('action' => 'default', 'ilm_id' => $ilm_id, 'ilm_parent' => $ilm_parent));
  3962. $return = $OUTPUT->heading(get_string('confirm_default', 'iassign') . ': ' . $iassign_ilm->name);
  3963. $return .= $OUTPUT->confirm(get_string('confirm_default_ilm', 'iassign') . $OUTPUT->help_icon('confirm_default_ilm', 'iassign'), $optionsyes, $optionsno);
  3964. return $return;
  3965. }
  3966. /// Function for change the default iLM
  3967. // @see settings_ilm.php
  3968. // @param int $ilm_id Id of iLM
  3969. // @return int Return Id of default iLM
  3970. static function default_ilm ($ilm_id) {
  3971. global $DB;
  3972. $iassign_ilm_default = $DB->get_record("iassign_ilm", array('id' => $ilm_id));
  3973. $iassign_ilm = $DB->get_record("iassign_ilm", array('id' => $iassign_ilm_default->parent));
  3974. $DB->delete_records("iassign_ilm", array('id' => $iassign_ilm_default->id));
  3975. $iassign_ilm_default->id = $iassign_ilm->id;
  3976. $iassign_ilm_default->parent = 0;
  3977. $iassign_ilm->parent = $iassign_ilm_default->id;
  3978. $iassign_ilm->id = 0;
  3979. $iassign_ilm_default->enable = 1;
  3980. if (!$DB->update_record("iassign_ilm", $iassign_ilm_default)) {
  3981. print_error('error_edit_ilm', 'iassign');
  3982. }
  3983. $inserted = $DB->insert_record("iassign_ilm", $iassign_ilm);
  3984. if (!$inserted) {
  3985. $msg_error = get_string('error_add_ilm', 'iassign') . "<br/>In default_ilm(" . $ilm_id . ")<br/>\n";
  3986. print_error($msg_error);
  3987. //xx print_error('error_add_ilm', 'iassign');
  3988. }
  3989. return $iassign_ilm_default->id;
  3990. } // static function default_ilm ($ilm_id)
  3991. /// Function for confirm delete iLM
  3992. // @param int $ilm_id Id of iLM
  3993. // @param int $ilm_parent Id of parent iLM
  3994. // @return string Return with an string for create delete page confirmation
  3995. static function confirm_delete_ilm ($ilm_id, $ilm_parent) {
  3996. global $OUTPUT, $DB;
  3997. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  3998. $optionsno = new moodle_url('/admin/settings.php', array('section' => 'modsettingiassign', 'action' => 'config', 'ilm_id' => $ilm_parent));
  3999. $optionsyes = new moodle_url('/mod/iassign/settings_ilm.php', array('action' => 'delete', 'ilm_id' => $ilm_id, 'ilm_parent' => $ilm_parent));
  4000. return $OUTPUT->confirm(get_string('confirm_delete_ilm', 'iassign', $iassign_ilm->name . ' ' . $iassign_ilm->version), $optionsyes, $optionsno);
  4001. }
  4002. /// Function for delete directory where the iLM is allocated.
  4003. // @param string $dirPath
  4004. // @throws InvalidArgumentException
  4005. public static function delete_dir ($dirPath) {
  4006. if (substr($dirPath, strlen($dirPath) - 1, 1) != '/') {
  4007. $dirPath .= '/';
  4008. }
  4009. $files = glob($dirPath . '*', GLOB_MARK);
  4010. foreach ($files as $file) {
  4011. if (is_dir($file)) {
  4012. ilm_settings::delete_dir($file);
  4013. } else {
  4014. unlink($file);
  4015. }
  4016. }
  4017. rmdir($dirPath);
  4018. }
  4019. /// Function for delete iLM
  4020. // @param int $ilm_id Id of iLM
  4021. // @return int Return Id of parent iLM
  4022. static function delete_ilm ($ilm_id) {
  4023. global $DB;
  4024. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  4025. // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada
  4026. $typec = strtolower($iassign_ilm->type);
  4027. require_once 'ilm_handlers/' . $typec . '.php';
  4028. $retorno = $typec::delete_ilm($ilm_id);
  4029. return $retorno;
  4030. }
  4031. /// Function to export iLM package (ZIP file), eventually to install in other Moodle
  4032. // @param int $ilm_id Id of iLM
  4033. static function export_ilm ($ilm_id) {
  4034. global $DB;
  4035. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  4036. // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada
  4037. $typec = strtolower($iassign_ilm->type);
  4038. require_once 'ilm_handlers/' . $typec . '.php';
  4039. $typec::export_ilm($ilm_id);
  4040. } // static function export_ilm($ilm_id)
  4041. //TODO iLM_HTML5 :: //MOOC 2016
  4042. // Function to export iLM package descriptor for allow online update. //TODO a ser usado onde? como?
  4043. // @param int $ilm_id Id of iLM
  4044. static function export_update_ilm ($ilm_id) {
  4045. global $DB, $CFG;
  4046. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  4047. $xml_filename = $CFG->dataroot . '/temp/ilm-upgrade_' . iassign_utils::format_pathname($iassign_ilm->name) . '.xml';
  4048. $zip_filename = 'ilm-' . iassign_utils::format_pathname($iassign_ilm->name . '-v' . $iassign_ilm->version) . '.ipz';
  4049. $upgrade_descriptor = '<?xml version="1.0" encoding="utf-8"?>' . "\n";
  4050. $upgrade_descriptor .= '<upgrade xmlns="http://line.ime.usp.br/application/1.5">' . "\n";
  4051. $upgrade_descriptor .= ' <version>' . $iassign_ilm->version . '</version>' . "\n";
  4052. $upgrade_descriptor .= ' <file>' . $zip_filename . '</file>' . "\n";
  4053. $upgrade_descriptor .= ' <description>' . iassign_language::json_to_xml($iassign_ilm->description) . "\n " . '</description>' . "\n";
  4054. $upgrade_descriptor .= '</upgrade>' . "\n";
  4055. file_put_contents($xml_filename, $upgrade_descriptor);
  4056. header("Pragma: public");
  4057. header("Expires: 0");
  4058. header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
  4059. header("Cache-Control: private", false);
  4060. header('Content-Type: application/xml; charset=utf-8');
  4061. header("Content-Disposition: attachment; filename=\"" . basename($xml_filename) . "\";");
  4062. header("Content-Length: " . @filesize($xml_filename));
  4063. set_time_limit(0);
  4064. @readfile("$xml_filename") || die("File not found.");
  4065. unlink($xml_filename);
  4066. exit;
  4067. } // static function export_update_ilm($ilm_id) //MOOC 2016
  4068. /// Function for save iLM from XML descriptor
  4069. // @param array $application_xml Data of XML descriptor
  4070. // @param array $files_extract Filenames of extract files
  4071. // @return array Return an array content id of JAR files
  4072. static function save_ilm_by_xml ($application_xml, $files_extract) {
  4073. global $CFG, $USER;
  4074. // Tratamento diferenciado se for do tipo HTML5:
  4075. $source = "";
  4076. $diretorio = "";
  4077. if (strtolower($application_xml->type) == 'html5') {
  4078. $i = 0;
  4079. foreach ($files_extract as $key => $value) {
  4080. $file = $CFG->dataroot . '/temp/' . $key;
  4081. // Verifica se já existe a pasta no diretório dos iLM:
  4082. if ($i == 0) {
  4083. $source = $file;
  4084. if (file_exists("ilm/" . basename($file))) {
  4085. $j = 1;
  4086. while (file_exists('ilm/' . basename($file) . "_" . $j)) {
  4087. $j ++;
  4088. }
  4089. $diretorio = 'ilm/' . basename($file) . "_" . $j;
  4090. // mkdir($diretorio, 0777, true);
  4091. mkdir($diretorio, 0755, true); // permissions: drwxr-xr-x
  4092. }
  4093. else {
  4094. $diretorio = 'ilm/' . basename($file);
  4095. // mkdir($diretorio, 0777, true);
  4096. mkdir($diretorio, 0755, true);
  4097. }
  4098. break;
  4099. }
  4100. $i ++;
  4101. }
  4102. foreach ($iterator = new RecursiveIteratorIterator(new RecursiveDirectoryIterator($source, RecursiveDirectoryIterator::SKIP_DOTS), RecursiveIteratorIterator::SELF_FIRST) as $item) {
  4103. if ($item->isDir()) {
  4104. mkdir($diretorio . DIRECTORY_SEPARATOR . $iterator->getSubPathName(), 0755, true);
  4105. }
  4106. else {
  4107. copy($item, $diretorio . DIRECTORY_SEPARATOR . $iterator->getSubPathName());
  4108. }
  4109. }
  4110. ilm_settings::delete_dir($source);
  4111. return "./" . $diretorio;
  4112. }
  4113. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4114. $file_jar = array();
  4115. $files_ilm = explode(",", $application_xml->file_jar);
  4116. $contextsystem = context_system::instance();
  4117. foreach ($files_ilm as $value) {
  4118. $file_ilm = array(
  4119. 'userid' => $USER->id,
  4120. 'contextid' => $contextsystem->id,
  4121. 'component' => 'mod_iassign',
  4122. 'filearea' => 'ilm',
  4123. 'itemid' => rand(1, 999999999),
  4124. 'filepath' => '/iassign/ilm/' . iassign_utils::format_pathname($application_xml->name) . '/' . iassign_utils::format_pathname($application_xml->version) . '/',
  4125. 'filename' => $value);
  4126. $file_ilm = $fs->create_file_from_pathname($file_ilm, $CFG->dataroot . '/temp/' . $value);
  4127. array_push($file_jar, $file_ilm->get_id());
  4128. }
  4129. foreach ($files_extract as $key => $value) {
  4130. $file = $CFG->dataroot . '/temp/' . $key;
  4131. if (file_exists($file))
  4132. unlink($file);
  4133. }
  4134. return $file_jar;
  4135. } // static function save_ilm_by_xml($application_xml, $files_extract)
  4136. /// Function for import the iLM from an package
  4137. // @param int $itemid Itemid of zip file
  4138. static function import_ilm ($itemid) {
  4139. global $CFG, $USER, $OUTPUT;
  4140. // Verifica se existe algum XML anterior na pasta temp e o exclui
  4141. if (file_exists($CFG->dataroot . '/temp/' . 'ilm-application.xml')) {
  4142. unlink($CFG->dataroot . '/temp/' . 'ilm-application.xml');
  4143. }
  4144. $pathtemp = $CFG->dataroot . '/temp/';
  4145. $contextuser = context_user::instance($USER->id);
  4146. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4147. $zip = new zip_packer();
  4148. $files = $fs->get_directory_files($contextuser->id, 'user', 'draft', $itemid, '/');
  4149. foreach ($files as $file) {
  4150. if (!$file->is_directory())
  4151. $files_extract = $zip->extract_to_pathname($file, $pathtemp);
  4152. }
  4153. $application_xml = @simplexml_load_file($CFG->dataroot . '/temp/' . 'ilm-application.xml', null, LIBXML_NOCDATA);
  4154. // Verifica se o pacote possui o XML
  4155. if (!$application_xml) {
  4156. print($OUTPUT->notification(get_string('error_xml_ilm', 'iassign'), 'notifyproblem'));
  4157. return;
  4158. } else {
  4159. $missing = "";
  4160. if (!isset($application_xml->name)) {
  4161. $missing .= "name";
  4162. }
  4163. if (!isset($application_xml->version)) {
  4164. $missing .= ", version";
  4165. }
  4166. if (!isset($application_xml->type)) {
  4167. $missing .= ", type";
  4168. }
  4169. if (!isset($application_xml->extension)) {
  4170. $missing .= ", extension";
  4171. }
  4172. if (!isset($application_xml->file_jar)) {
  4173. $missing .= ", file_jar";
  4174. }
  4175. if (!isset($application_xml->file_class)) {
  4176. $missing .= ", file_class";
  4177. }
  4178. if (!isset($application_xml->width)) {
  4179. $missing .= ", width";
  4180. }
  4181. if (!isset($application_xml->height)) {
  4182. $missing .= ", height";
  4183. }
  4184. if (!isset($application_xml->evaluate)) {
  4185. $missing .= ", evaluate";
  4186. }
  4187. if (strlen($missing) > 2) {
  4188. print($OUTPUT->notification(get_string('error_xml_missing', 'iassign') . $missing . ".", 'notifyproblem'));
  4189. return;
  4190. }
  4191. }
  4192. // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada
  4193. $typec = strtolower($application_xml->type);
  4194. require_once 'ilm_handlers/' . $typec . '.php';
  4195. $typec::import_ilm($itemid, $files_extract, $application_xml, $contextuser, $fs);
  4196. } // static function import_ilm($itemid)
  4197. /// Function for list iLM defaults
  4198. // @return string Return an string with a table of iLM
  4199. static function list_ilm () {
  4200. global $DB, $OUTPUT;
  4201. $iassign_ilm = $DB->get_records('iassign_ilm', array("enable" => 1));
  4202. $str = '';
  4203. $str .= '<table id="outlinetable" cellpadding="5" width="100%" >' . "\n";
  4204. $str .= '<tr><td align=right><input type=button value="' . get_string('close', 'iassign') . '" onclick="javascript:window.close ();"></td></tr>';
  4205. if ($iassign_ilm) {
  4206. foreach ($iassign_ilm as $ilm) {
  4207. $url_view = new moodle_url('/mod/iassign/settings_ilm.php', array('action' => 'view', 'ilm_id' => $ilm->id));
  4208. $link_view = $OUTPUT->action_link($url_view, iassign_icons::insert('view_ilm') . ' ' . get_string('read_more', 'iassign'));
  4209. $str .= '<tr><td>';
  4210. $str .= '<table class="generaltable boxaligncenter" width="100%">';
  4211. $str .= '<tr>';
  4212. $str .= '<td class=\'cell c0 actvity\' width=40%><strong>' . get_string('name_ilm', 'iassign') . ':</strong>&nbsp;' . $ilm->name . '</td>' . "\n";
  4213. $str .= '<td><strong>' . get_string('version_ilm', 'iassign') . ':</strong>&nbsp;' . $ilm->version . '</td>' . "\n";
  4214. $str .= '<td align=right>' . $link_view . '</td>' . "\n";
  4215. $str .= '</tr>';
  4216. $str .= '<tr><td colspan=3>' . iassign_language::get_description_lang(current_language(), $ilm->description) . '</td></tr>';
  4217. $str .= '<tr><td colspan=3><a href="' . $ilm->url . '">' . $ilm->url . '</a></td></tr>';
  4218. $str .= '</table>';
  4219. $str .= '</td></tr>';
  4220. }
  4221. }
  4222. $str .= '</table>';
  4223. return $str;
  4224. }
  4225. /// Function for download and install an upgrade of an iLM
  4226. // @param int $ilm_id Id of iLM
  4227. static function upgrade_ilm ($ilm_id) {
  4228. global $DB, $CFG, $USER;
  4229. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilm_id));
  4230. $upgrade_file = $iassign_ilm->url . 'ilm-upgrade_' . strtolower($iassign_ilm->name) . '.xml';
  4231. $update_xml = @simplexml_load_file($upgrade_file, null, LIBXML_NOCDATA);
  4232. $result = file_put_contents($CFG->dataroot . '/temp/' . $update_xml->file, fopen($iassign_ilm->url . $update_xml->file, 'r'));
  4233. if (!$result)
  4234. print_error('error_upgrade_ilm', 'iassign');
  4235. else {
  4236. $zip_filename = $CFG->dataroot . '/temp/' . $update_xml->file;
  4237. $extension = explode(".", $zip_filename);
  4238. if ($extension[count($extension) - 1] != 'ipz') {
  4239. print($OUTPUT->notification(get_string('error_upload_ilm', 'iassign'), 'notifyproblem'));
  4240. die;
  4241. }
  4242. $zip = new zip_packer();
  4243. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4244. $contextuser = context_user::instance($USER->id);
  4245. $files_extract = $zip->extract_to_pathname($zip_filename, $CFG->dataroot . '/temp/');
  4246. $application_xml = @simplexml_load_file($CFG->dataroot . '/temp/' . 'ilm-application.xml', null, LIBXML_NOCDATA);
  4247. $description_str = htmlentities(str_replace(array('<description>', '</description>'), array('', ''), $application_xml->description->asXML()));
  4248. $file_jar = self::save_ilm_by_xml($application_xml, $files_extract);
  4249. if (file_exists($zip_filename))
  4250. unlink($zip_filename);
  4251. if (empty($file_jar)) {
  4252. $msg_error = get_string('error_add_ilm', 'iassign') . "<br/>In upgrade_ilm(" . $ilm_id . ")<br/>\n";
  4253. print_error($msg_error);
  4254. //xx print_error('error_add_ilm', 'iassign');
  4255. }
  4256. else {
  4257. $newentry = new stdClass();
  4258. $newentry->name = (String) $application_xml->name;
  4259. $newentry->version = (String) $application_xml->version;
  4260. $newentry->url = (String) $application_xml->url;
  4261. $newentry->description = $description_str;
  4262. $newentry->extension = strtolower((String) $application_xml->extension);
  4263. $newentry->file_jar = implode(",", $file_jar);
  4264. $newentry->file_class = (String) $application_xml->file_class;
  4265. $newentry->width = (String) $application_xml->width;
  4266. $newentry->height = (String) $application_xml->height;
  4267. $newentry->enable = 0;
  4268. $newentry->timemodified = time();
  4269. $newentry->author = $USER->id;
  4270. $newentry->timecreated = time();
  4271. $newentry->evaluate = (String) $application_xml->evaluate;
  4272. $newentry->parent = $ilm_id;
  4273. }
  4274. }
  4275. return $iassign_ilm->id;
  4276. } // static function upgrade_ilm($ilm_id)
  4277. //MOOC2014 -- inicio
  4278. //TODO: REVIEW
  4279. // static function confirm_move_iassign($ilmid, $ilm_parent)
  4280. // static function move_iassign($ilm_id)
  4281. //MOOC2014 -- final
  4282. /// Function for list iLM versions with all informations
  4283. // @return string Return an string with a table of iLM
  4284. static function view_ilm ($ilmid, $from) {
  4285. global $DB;
  4286. $iassign_ilm = $DB->get_record('iassign_ilm', array('id' => $ilmid));
  4287. // Faz a leitura do tipo de iLM e realiza a chamada à classe adequada
  4288. $typec = strtolower($iassign_ilm->type);
  4289. require_once 'ilm_handlers/' . $typec . '.php';
  4290. $retorno = $typec::view_ilm($ilmid, $from);
  4291. return $retorno;
  4292. }
  4293. /// Function for get form variables for add, edit, or copy iLM params
  4294. // @param int $ilm_param_id Id of iLM param
  4295. // @param string $action String with the action
  4296. // @return object Return an object with forms variables
  4297. static function add_edit_copy_param ($ilm_param_id, $action) {
  4298. global $DB;
  4299. require_once('params_form.php');
  4300. $iassign_ilm_config = $DB->get_record('iassign_ilm_config', array('id' => $ilm_param_id));
  4301. $param = new stdClass();
  4302. $param->action = $action;
  4303. $param->ilm_param_id = $ilm_param_id;
  4304. $type = optional_param('type', NULL, PARAM_TEXT); //MOOC2014
  4305. if ($type == NULL && $iassign_ilm_config) //MOOC2014
  4306. $type = $iassign_ilm_config->param_type;
  4307. if ($action == 'add') {
  4308. $param->title = get_string('add_ilm', 'iassign');
  4309. $param->iassign_ilmid = $ilm_param_id;
  4310. $param->param_name = "";
  4311. $param->param_value = "";
  4312. $param->description = "";
  4313. $param->visible = 1;
  4314. }
  4315. elseif ($action == 'edit') {
  4316. if ($iassign_ilm_config) {
  4317. $param->title = get_string('edit_ilm', 'iassign');
  4318. $param->id = $iassign_ilm_config->id;
  4319. $param->iassign_ilmid = $iassign_ilm_config->iassign_ilmid;
  4320. $param->param_type = $type; //MOOC2014
  4321. $param->param_name = $iassign_ilm_config->param_name;
  4322. if ($type != 'choice' && $type != 'multiple') //MOOC2014
  4323. $param->param_value = $iassign_ilm_config->param_value;
  4324. else //MOOC2014
  4325. $param->param_value = str_replace(", ", "\n", $iassign_ilm_config->param_value); //MOOC2014
  4326. $param->param_value = $iassign_ilm_config->param_value;
  4327. $param->description = $iassign_ilm_config->description;
  4328. $param->visible = $iassign_ilm_config->visible;
  4329. }
  4330. }
  4331. elseif ($action == 'copy') {
  4332. if ($iassign_ilm_config) {
  4333. $param->title = get_string('copy_ilm', 'iassign');
  4334. $param->iassign_ilmid = $iassign_ilm_config->iassign_ilmid;
  4335. $param->param_type = $type; //MOOC2014
  4336. $param->param_name = $iassign_ilm_config->param_name;
  4337. if ($type != 'choice' && $type != 'multiple') //MOOC2014
  4338. $param->param_value = $iassign_ilm_config->param_value;
  4339. else //MOOC2014
  4340. $param->param_value = str_replace(", ", "\n", $iassign_ilm_config->param_value); //MOOC2014
  4341. $param->description = $iassign_ilm_config->description;
  4342. $param->visible = $iassign_ilm_config->visible;
  4343. }
  4344. }
  4345. return $param;
  4346. } // static function add_edit_copy_param($ilm_param_id, $action)
  4347. /// Function for change visibility of iLM param
  4348. // @param int $ilm_param_id Id of iLM param
  4349. // @param int $status Indicator of change vibility (0 = hide, 1 = show)
  4350. static function visible_param ($ilm_param_id, $status) {
  4351. global $DB, $CFG;
  4352. if ($status == 0)
  4353. $visible = 1;
  4354. else
  4355. $visible = 0;
  4356. $newentry = new stdClass();
  4357. $newentry->id = $ilm_param_id;
  4358. $newentry->visible = $visible;
  4359. if (!$DB->update_record("iassign_ilm_config", $newentry))
  4360. error(get_string('error_edit_param', 'iassign'));
  4361. }
  4362. /// Function for save in database an new iLM param
  4363. // @param object $param An object with iLM params
  4364. static function add_param ($param) {
  4365. global $DB;
  4366. $newentry = new stdClass();
  4367. $newentry->iassign_ilmid = $param->iassign_ilmid;
  4368. //MOOC2014 $newentry->param_name = $param->param_name;
  4369. $newentry->param_type = $param->param_type; //MOOC2014
  4370. $newentry->param_name = iassign_utils::format_filename($param->param_name); //MOOC2014
  4371. if ($newentry->param_type != 'choice' && $newentry->param_type != 'multiple') //MOOC2014
  4372. $newentry->param_value = $param->param_value;
  4373. else //MOOC2014
  4374. $newentry->param_value = str_replace("\r\n", ", ", $param->param_value); //MOOC2014
  4375. $newentry->description = $param->description;
  4376. $newentry->visible = $param->visible;
  4377. $newentry->id = $DB->insert_record("iassign_ilm_config", $newentry);
  4378. if (!$newentry->id) {
  4379. print_error('error_add_param', 'iassign');
  4380. }
  4381. }
  4382. /// Function for save in database a iLM param edit
  4383. // @param object $param An object with iLM params
  4384. static function edit_param ($param) {
  4385. global $DB;
  4386. $updentry = new stdClass();
  4387. $updentry->id = $param->id;
  4388. $updentry->iassign_ilmid = $param->iassign_ilmid;
  4389. $updentry->param_type = $param->param_type; //MOOC2014
  4390. // $updentry->param_name = $param->param_name;
  4391. $newentry->param_name = iassign_utils::format_filename($param->param_name); //MOOC2014
  4392. if ($updentry->param_type != 'choice' && $updentry->param_type != 'multiple') //MOOC2014
  4393. $updentry->param_value = $param->param_value;
  4394. else //MOOC2014
  4395. $updentry->param_value = str_replace("\r\n", ", ", $param->param_value); //MOOC2014
  4396. $updentry->description = $param->description;
  4397. $updentry->visible = $param->visible;
  4398. if (!$DB->update_record("iassign_ilm_config", $updentry)) {
  4399. error(get_string('error_edit_param', 'iassign'));
  4400. }
  4401. }
  4402. /// Function for save in database a iLM param copy
  4403. // @param object $param An object with iLM params
  4404. static function copy_param ($param) {
  4405. global $DB;
  4406. $newentry = new stdClass();
  4407. $newentry->iassign_ilmid = $param->iassign_ilmid;
  4408. //$newentry->param_name = $param->param_name;
  4409. $newentry->param_name = iassign_utils::format_filename($param->param_name); //MOOC2014
  4410. if ($newentry->param_type != 'choice' && $newentry->param_type != 'multiple') //MOOC2014
  4411. $newentry->param_value = $param->param_value;
  4412. else //MOOC2014
  4413. $newentry->param_value = str_replace("\r\n", ", ", $param->param_value); //MOOC2014
  4414. $newentry->description = $param->description;
  4415. $newentry->visible = $param->visible;
  4416. $newentry->id = $DB->insert_record("iassign_ilm_config", $newentry);
  4417. if (!$newentry->id) {
  4418. print_error('error_add_param', 'iassign');
  4419. }
  4420. }
  4421. /// Function for delete iLM param of database
  4422. // @param int $param_id Id of iLM param
  4423. static function delete_param ($param_id) {
  4424. global $DB;
  4425. if (!$DB->delete_records("iassign_ilm_config", array('id' => $param_id))) {
  4426. print_error('error_delete_param', 'iassign');
  4427. }
  4428. }
  4429. } // class ilm_settings
  4430. /// Class for manage iLM files (editor).
  4431. class ilm_manager {
  4432. var $id; // course id
  4433. var $url;
  4434. var $from;
  4435. /// Constructor for the base ilm_manager class
  4436. // 3.1 update PHP 7.0 compatibility for all moodle versions
  4437. //D public function ilm_manager($id, $url, $from) { self::__construct($iassign, $cm, $course); }
  4438. function __construct ($id, $url, $from) {
  4439. $this->id = $id; // course id
  4440. $this->url = $url;
  4441. $this->from = $from;
  4442. }
  4443. /// Function to get iAssign content file in Moodle data (exercise)
  4444. // @calledby x function preview_ilm($iassign_ilm) :
  4445. // @calledby ilm_manager.php : with 'action=get' in '$ilm_manager_instance->get_file_ilm($ilmid, $fileid)'
  4446. function get_file_ilm () {
  4447. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  4448. $fileid = optional_param('fileid', NULL, PARAM_INT);
  4449. //$filename = optional_param('filename', NULL, PARAM_TEXT);
  4450. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4451. $md_file = $fs->get_file_by_id($fileid);
  4452. $ilm_content_file = $md_file->get_content();
  4453. return $ilm_content_file;
  4454. }
  4455. /// Function for creating a new file from the iLM online editor
  4456. // @calledby ilm_manager.php: case 'new': $ilm_manager_instance->ilm_editor_new();
  4457. function ilm_editor_new () {
  4458. global $CFG, $DB, $OUTPUT, $PAGE;
  4459. $ilmid = optional_param('ilmid', NULL, PARAM_INT); // iAssign ID
  4460. $dirid = optional_param('dirid', NULL, PARAM_INT);
  4461. $iassign = $DB->get_record("iassign_ilm", array("id" => $ilmid));
  4462. $context = context_course::instance($this->id);
  4463. $returnurl = $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=$this->id&dirid=$dirid&ilmid=$ilmid";
  4464. // verify if the JAR file $PAGE->set_course($course); is registered in DB (table '*_iassign_ilm')
  4465. if (!$iassign) {
  4466. print $OUTPUT->notification(get_string('error_confirms_ilm', 'iassign'), 'notifysuccess');
  4467. die();
  4468. }
  4469. $temp = explode(",", $iassign->extension);
  4470. $extension = $temp[0]; // default extension for this iLM
  4471. //2016/02/16: IMPORTANTE trocar formatador para "nao formatado", pois esta destruindo o nome do arquivo (e.g. limpa brancos)
  4472. //2016/02/16: $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_ALPHANUMEXT);
  4473. $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_RAW); // iLM 2
  4474. // $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_RAW); // iLM 1
  4475. if ($stringArchiveContent != NULL) {
  4476. // $stringArchiveContent = $_POST['iLM_PARAM_ArchiveContent'];
  4477. //2016/02/16: IMPORTANTE trocar formatador para "nao formatado", pois esta destruindo o conteudo do arquivo
  4478. //2016/02/16: $filename = optional_param('filename', NULL, PARAM_ALPHANUMEXT);
  4479. $filename = optional_param('filename', NULL, PARAM_RAW);
  4480. //Leo $filename = iassign_utils::format_filename($filename); //
  4481. $filename = iassign_utils::filter_filename_extension($filename, $extension); // here: class iassign_utils
  4482. //2019/02 It is not necessary, since 'iassign_utils::filter_filename_extension(...)' does all the work!
  4483. //2019/02 $arrayfilename = explode(".", $filename);
  4484. //2019/02 // if (count($arrayfilename) == 1) $filename = $arrayfilename[0] . '.' . $extension;
  4485. //2019/02 $count_dots = count($arrayfilename);
  4486. //2019/02 if ($count_dots > 0) { // at least one dot mark
  4487. //2019/02 $last_name = $arrayfilename[$count_dots - 1];
  4488. //2019/02 if ($last_name != $extension)
  4489. //2019/02 $filename = $filename . '.' . $extension;
  4490. //2019/02 }
  4491. //2019/02 else { // no extension...
  4492. //2019/02 $filename = $filename . '.' . $extension;
  4493. //2019/02 }
  4494. // Store the name of recent created file
  4495. $_SESSION['file_name'] = $filename;
  4496. //$this->write_file_iassign($string, $filename);
  4497. // Register and (by JS.alet(.)) inform the user about the result (and the final name of the file)
  4498. $this->write_file_iassign($stringArchiveContent, $filename); // class ilm_manager - inform the user about the file insertion result
  4499. die();
  4500. }
  4501. else { // if ($stringArchiveContent != NULL)
  4502. // iLM On-line editor
  4503. if ($extension == "html" || $extension == "ivph" || strtolower($iassign->type) == 'html5') { // if iLM is HTML5 is inside a frame
  4504. $str_get_iLM = "window.frames.iLM";
  4505. $str_submitbutton_name = "javascript:window.submit_iLM_Answer()";
  4506. }
  4507. else { // otherwise it is JAR named 'iLM'
  4508. $str_get_iLM = "document.iLM";
  4509. $str_submitbutton_name = "submit_iLM_Answer()"; // to call 'submit_iLM_Answer()'
  4510. }
  4511. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4512. $files = $fs->get_area_files($context->id, 'mod_iassign', 'activity');
  4513. $files_array = '';
  4514. foreach ($files as $value) {
  4515. if ($value->get_filename() != ".")
  4516. $files_array .= "'" . $value->get_filename() . "',";
  4517. }
  4518. $files_array .= "''";
  4519. $file = null;
  4520. $ia_content = "";
  4521. $filename = "";
  4522. $error_files_exists = get_string('error_file_exists', 'iassign');
  4523. $output = "<script type='text/javascript'>
  4524. //<![CDATA[
  4525. //D alert('locallib.php: ilm_editor_new');
  4526. function submit_iLM_Answer () {
  4527. var docFormOnLineEditor = document.formEnvio;
  4528. var resposta_exerc = new Array(3);
  4529. var valor_resposta = new Array(3);
  4530. var sessao = new Array(3);
  4531. var doc_iLM = " . $str_get_iLM . "; // 'window.frames.iLM' or 'document.iLM'
  4532. resposta_exerc[0] = doc_iLM.getAnswer();
  4533. valor_resposta[0] = doc_iLM.getEvaluation();
  4534. docFormOnLineEditor.iLM_PARAM_ActivityEvaluation.value = valor_resposta[0];
  4535. docFormOnLineEditor.iLM_PARAM_ArchiveContent.value = resposta_exerc[0];
  4536. var files = new Array(" . $files_array . ");
  4537. var filename = docFormOnLineEditor.filename.value+'.'+'" . $extension . "';
  4538. if (docFormOnLineEditor.filename.value=='') {
  4539. // ERROR: the file name is empty
  4540. alert('" . get_string('error_file_null_iassign', 'iassign') . "');
  4541. return false;
  4542. }
  4543. // }
  4544. for (i=0; i<files.length; i++) {
  4545. if (files[i]==docFormOnLineEditor.filename.value || files[i]==filename) {
  4546. alert('" . $error_files_exists . "');
  4547. return false;
  4548. }
  4549. }
  4550. docFormOnLineEditor.submit();
  4551. return true;
  4552. }
  4553. //]]>
  4554. </script>\n";
  4555. $output .= "
  4556. <form name='formEnvio' id='formEnvio' method='post' enctype='multipart/form-data'>\n";
  4557. $output .= $OUTPUT->box_start();
  4558. // Put text "File name" and the corresponding "input" to enter the file nama: "File name: [ ]"
  4559. $output .= "
  4560. <table width='100%' cellpadding='20'>
  4561. <tr><td>" . get_string('label_file_iassign', 'iassign') . " <input type='text' name='filename' size=50/>
  4562. <input type=button value='" . get_string('label_write_iassign', 'iassign') . "' title='' onclick='" . $str_submitbutton_name . ";'/></td>
  4563. <td><input type=button value='" . get_string('close', 'iassign') . "' title='' onclick='javascript:window.location = \"$returnurl\";'/></td>
  4564. </tr>
  4565. </table>\n";
  4566. $output .= $OUTPUT->box_end();
  4567. $output .= "<center>\n";
  4568. // Prepare tag to load the iLM. In case of JAR it will prepare the tag "applet". In case of HTML5 will prepare an "iframe".
  4569. // Since it is the activity file, it is not necessary to use 'ilm_security'
  4570. $output_ilm = ilm_settings::build_ilm_tags($ilmid, array("type" => "editor_new", "notSEND" => "true"));
  4571. $output .= $output_ilm;
  4572. $output .= " <input type='hidden' name='iLM_PARAM_ArchiveContent' value='" . $ia_content . "'>
  4573. <input type='hidden' name='iLM_PARAM_ActivityEvaluation'>
  4574. </center>
  4575. </form>\n";
  4576. $title = get_string('title_editor_iassign', 'iassign') . " - " . $iassign->name . " " . $iassign->version; //MOOC2014
  4577. $PAGE->navbar->add($title);
  4578. $PAGE->set_title($title);
  4579. $PAGE->set_heading($title); // insert title above the navigation bar
  4580. print $OUTPUT->header();
  4581. //print $OUTPUT->heading("&nbsp;&nbsp;" . $title); // insert title below the navigation bar
  4582. print $output;
  4583. print $OUTPUT->footer();
  4584. }
  4585. die();
  4586. } // function ilm_editor_new()
  4587. /// Function for editing an file in online editor
  4588. // @calledby ilm_manager.php: case 'update': $ilm_manager_instance->ilm_editor_update($security['content'], $security['token'], $security['secure_id']);
  4589. function ilm_editor_update ($filename, $content_file, $token, $secure_id) {
  4590. global $CFG, $DB, $OUTPUT, $PAGE;
  4591. $ilmid = optional_param('ilmid', NULL, PARAM_INT); // iAssign ID
  4592. $dirid = optional_param('dirid', NULL, PARAM_INT);
  4593. $fileid = optional_param('fileid', NULL, PARAM_TEXT);
  4594. $iassign = $DB->get_record("iassign_ilm", array("id" => $ilmid));
  4595. $returnurl = $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=$this->id&dirid=$dirid&ilmid=$ilmid";
  4596. // If iLM is not registered, error!
  4597. if (!$iassign) {
  4598. print $OUTPUT->notification(get_string('error_confirms_ilm', 'iassign'), 'notifyproblem');
  4599. die;
  4600. }
  4601. //2017/03/12 //QUARANTINE agora vindo de 'ilm_manager.php' via os 3 parametros
  4602. //2017/03/12 $fs = get_file_storage(); // Get reference to all files in Moodle data // from Moodle data
  4603. //2017/03/12 $filename = ''; $end_file = ''; $file = $fs->get_file_by_id($fileid); if ($file) $filename = iassign_utils::format_filename($file->get_filename());
  4604. //D echo "locallib.php: ilm_editor_update(): filename=$filename<br/>\n";
  4605. //2016/02/16: IMPORTANTE trocar formatador para "nao formatado", pois esta destruindo o conteudo do arquivo
  4606. //2016/02/16: $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_ALPHANUMEXT);
  4607. $stringArchiveContent = optional_param('iLM_PARAM_ArchiveContent', NULL, PARAM_RAW);
  4608. //D echo "stringArchiveContent:$stringArchiveContent<br/>\n";
  4609. if ($stringArchiveContent != NULL) {
  4610. $this->update_file_iassign($stringArchiveContent, $filename, $fileid);
  4611. die();
  4612. } else { // if ($stringArchiveContent != NULL)
  4613. $end_file = '';
  4614. if ($content_file) {
  4615. // 2017/03/12 $token=''; $view=-1; $end_file = $CFG->wwwroot . '/mod/iassign/ilm_security.php?id=' . $fileid . '&token=' . $token . '&view=' . $view; // need full path...
  4616. $end_file = $CFG->wwwroot . '/mod/iassign/ilm_security.php?id=' . $secure_id . '&action=update&token=' . $token . '&view=0'; // need full path...
  4617. }
  4618. $temp = explode(",", $iassign->extension);
  4619. $extension = $temp[0]; // default extension for this iLM
  4620. if ($extension == "html" || $extension == "ivph") { // if iLM is HTML5 is inside a frame
  4621. $str_get_iLM = "window.frames.iLM";
  4622. $str_submitbutton_name = "javascript:window.submit_iLM_Answer()";
  4623. } else { // otherwise it is JAR named 'iLM'
  4624. $str_get_iLM = "document.iLM";
  4625. $str_submitbutton_name = "submit_iLM_Answer()"; // to call 'submit_iLM_Answer()'
  4626. }
  4627. $output = "<script type='text/javascript'>
  4628. //<![CDATA[
  4629. function submit_iLM_Answer () {
  4630. var docFormEditor = document.formEnvio;
  4631. var activityAnswer; // to get activity answer (text)
  4632. var activityValue; // to get activity answer value (float)
  4633. var doc_iLM = " . $str_get_iLM . "; // 'window.frames.iLM' or 'document.iLM'
  4634. //activityAnswer = doc_iLM.getAnswer();
  4635. //activityValue = doc_iLM.getEvaluation();
  4636. activityAnswer = " . $str_get_iLM . ".getAnswer();
  4637. activityValue = " . $str_get_iLM . ".getEvaluation();
  4638. docFormEditor.iLM_PARAM_ActivityEvaluation.value = activityValue;
  4639. docFormEditor.iLM_PARAM_ArchiveContent.value = activityAnswer;
  4640. docFormEditor.submit();
  4641. return true;
  4642. }
  4643. //]]>
  4644. </script>\n";
  4645. // 2016/02/16: NOT necessary, since it is teacher editing (perhaps he only make an example as exercise)
  4646. // if (activityAnswer == -1) { // E.g. in iGeom it is possible to turn an example in exercise
  4647. // alert('" . get_string('error_null_iassign', 'iassign') . "'); // ERRO: O exercício esta vazio ou não foi alterado
  4648. // return true;
  4649. // }
  4650. $output .= "
  4651. <form name='formEnvio' id='formEnvio' method='post' enctype='multipart/form-data'>\n";
  4652. $output .= $OUTPUT->box_start();
  4653. $output .= "
  4654. <table width='100%' cellpadding='20'>
  4655. <tr><td width='75%'>" . get_string('label_file_iassign', 'iassign') . "<b>$filename</b></td>
  4656. <td align='right' width='25%'><input type=button value='" . get_string('label_write_iassign', 'iassign') . "' title='' onclick='submit_iLM_Answer();'/>
  4657. <input type='hidden' name='filename' value='$filename'/></td>
  4658. <td>
  4659. <input type=button value='" . get_string('close', 'iassign') . "' title='' onclick='javascript:window.location = \"$returnurl\";'/></td>
  4660. </tr>
  4661. </table>\n";
  4662. $output .= $OUTPUT->box_end();
  4663. $output .= " <center>\n";
  4664. // Since it is the activity file, it is not necessary to use 'ilm_security' (id_iLM_security)
  4665. $output .= ilm_settings::build_ilm_tags($ilmid, array("type" => "editor_update", "notSEND" => "false", "Proposition" => $end_file));
  4666. $output .= " <input type='hidden' name='iLM_PARAM_ArchiveContent' value=''>
  4667. <input type='hidden' name='iLM_PARAM_ActivityEvaluation' value=''>
  4668. </center>
  4669. </form>\n";
  4670. $title = get_string('title_editor_iassign', 'iassign') . " - " . $iassign->name . " " . $iassign->version; //MOOC2014
  4671. $PAGE->navbar->add($title);
  4672. $PAGE->set_title($title);
  4673. $PAGE->set_heading($title); // insert title above the navigation bar
  4674. print $OUTPUT->header();
  4675. //print $OUTPUT->heading("&nbsp;&nbsp;" . $title); // insert title below the navigation bar
  4676. print $output;
  4677. print $OUTPUT->footer();
  4678. } // else if ($stringArchiveContent != NULL)
  4679. die();
  4680. } // function ilm_editor_update()
  4681. /// Function for write iAssign file in Moodle data (exercise)
  4682. // @calledby ilm_editor_new(): $this->write_file_iassign($stringArchiveContent, $filename);
  4683. // @param string $stringArchiveContent Content of iassign file
  4684. // @param string $filename Filename of iassign file
  4685. function write_file_iassign ($stringArchiveContent, $filename) {
  4686. global $USER;
  4687. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  4688. $context = context_course::instance($this->id);
  4689. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4690. $dirid = $this->get_dir_ilm('dirid');
  4691. $dir = $fs->get_file_by_id($dirid);
  4692. $fileinfo = array('contextid' => $context->id, // ID of course
  4693. 'component' => 'mod_iassign', // usually = table name
  4694. 'filearea' => 'activity', // usually = table name
  4695. 'itemid' => 0, // usually = ID of row in table
  4696. 'filepath' => $dir->get_filepath(), // any path beginning and ending whith '/'
  4697. 'userid' => $USER->id,
  4698. 'author' => $USER->firstname . ' ' . $USER->lastname, 'license' => 'allrightsreserved', // allrightsreserved
  4699. 'filename' => $filename); // any filename
  4700. // Create file containing text. '$stringArchiveContent'
  4701. //TODO Verificar se apenas esta' inserindo nova referencia em 'files' (NAO deve duplicar no Moodle Data)
  4702. $file_course = $fs->create_file_from_string($fileinfo, $stringArchiveContent);
  4703. // sucess_write -> 'Interactive assignment successfully registered under the name: '
  4704. // 'Tarea interactiva registrada exitosamente bajo el nombre:'
  4705. // 'Activité interactive enregistrée avec succès sous le nom:';
  4706. // 'Atividade interativa gravada com sucesso sob o nome:'
  4707. $output = "
  4708. <script type='text/javascript'>
  4709. //<![CDATA[
  4710. alert('" . get_string('sucess_write', 'iassign') . " " . $filename . "');
  4711. window.location='" . $this->url . "&dirid=$dirid&ilmid=$ilmid';
  4712. //]]>
  4713. </script>";
  4714. print $output;
  4715. die();
  4716. }
  4717. /// Function for write iAssign file in Moodle data (exercise)
  4718. // @param string $stringArchiveContent Content of iassign file
  4719. // @param string $filename Filename of iassign file
  4720. // @param int $itemid Itemid of iassign file
  4721. function update_file_iassign ($stringArchiveContent, $filename, $fileid) {
  4722. global $OUTPUT, $USER;
  4723. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  4724. $context = context_course::instance($this->id);
  4725. $dirid = $this->get_dir_ilm('dirid');
  4726. if ($stringArchiveContent != (-1)) {
  4727. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4728. $file = $fs->get_file_by_id($fileid);
  4729. if (!$file) {
  4730. print $OUTPUT->notification(get_string('error_view_ilm', 'iassign'), 'notifyproblem');
  4731. die;
  4732. }
  4733. $fileinfo = array('contextid' => $context->id, // ID of context
  4734. 'component' => 'mod_iassign', // usually = table name
  4735. 'filearea' => 'activity', // usually = table name
  4736. 'itemid' => 0, // usually = ID of row in table
  4737. 'filepath' => $file->get_filepath(), // any path beginning and ending with '/'
  4738. 'userid' => $USER->id,
  4739. 'author' => $USER->firstname . ' ' . $USER->lastname,
  4740. 'license' => 'allrightsreserved', // allrightsreserved
  4741. 'timecreated' => $file->get_timecreated(),
  4742. 'filename' => $file->get_filename()); // any filename
  4743. $file->delete();
  4744. //TODO Verificar se apenas esta' inserindo nova referencia em 'files' (NAO deve duplicar no Moodle Data)
  4745. $file_course = $fs->create_file_from_string($fileinfo, $stringArchiveContent); //$string
  4746. }
  4747. $output = "<script type='text/javascript'>
  4748. //<![CDATA[
  4749. alert('" . get_string('sucess_update', 'iassign') . "');\n
  4750. window.location='" . $this->url . "&dirid=$dirid&ilmid=$ilmid';
  4751. //]]>
  4752. </script>";
  4753. print $output;
  4754. die();
  4755. }
  4756. /// Function for create an tag for iAssign filter
  4757. // @calledby function preview_ilm($iassign_ilm) : $tag_filter = $this->tag_ilm($fileid);
  4758. // @calledby function tinymce_ilm($fileid) : $tag_filter = $this->tag_ilm($fileid);
  4759. // @calledby function editor_ilm($fileid, $editor) : $tag_filter = $this->tag_ilm($fileid);
  4760. // @calledby function atto_ilm ($fileid) : $tag_filter = $this->tag_ilm($fileid);
  4761. // @param int $fileid Id of file
  4762. // @return string Return an string with an tag of iassign filter
  4763. function tag_ilm ($fileid) {
  4764. global $DB;
  4765. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4766. $width = '600';
  4767. $height = '400';
  4768. $file = $fs->get_file_by_id($fileid);
  4769. $filetype = explode(".", $file->get_filename());
  4770. $iassign_ilm = $DB->get_records('iassign_ilm', array("enable" => 1, "parent" => 0));
  4771. foreach ($iassign_ilm as $value) {
  4772. $extensions = explode(",", $value->extension);
  4773. if (in_array($filetype[1], $extensions)) {
  4774. $width = $value->width;
  4775. $height = $value->height;
  4776. }
  4777. }
  4778. return("<p>&lt;ia toolbar=disable width=$width height=$height &gt;$fileid&lt;/ia&gt;</p>");
  4779. }
  4780. /// Function for delete iAssign file in Moodle data (exercise)
  4781. function delete_file_ilm () {
  4782. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  4783. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4784. $fileid = optional_param('fileid', NULL, PARAM_RAW);
  4785. $file = $fs->get_file_by_id($fileid);
  4786. if ($file)
  4787. $file->delete();
  4788. redirect(new moodle_url($this->url . '&dirid=' . $this->get_dir_ilm('dirid') . '&ilmid=' . $ilmid));
  4789. die();
  4790. }
  4791. /// Function for delete selected iAssign file in Moodle data (exercise)
  4792. function delete_selected_ilm () {
  4793. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  4794. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4795. $context = context_course::instance($this->id);
  4796. $files_id = explode(",", optional_param('files_id', '', PARAM_TEXT));
  4797. $dirid = $this->get_dir_ilm('dirid');
  4798. foreach ($files_id as $file_id) {
  4799. $file = $fs->get_file_by_id($file_id);
  4800. if ($file) {
  4801. if (!$file->is_directory())
  4802. $file->delete();
  4803. else {
  4804. $files_delete = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $file->get_filepath(), true, true);
  4805. foreach ($files_delete as $value)
  4806. $value->delete();
  4807. $file->delete();
  4808. }
  4809. }
  4810. }
  4811. redirect(new moodle_url($this->url . '&dirid=' . $dirid . '&ilmid=' . $ilmid));
  4812. die();
  4813. }
  4814. /// Function for duplicate iAssign file from "online" edition
  4815. // @callby JavaScript function 'duplicate_ilm(ilmid, filename, fileid)' bellow
  4816. function duplicate_file_ilm () {
  4817. global $USER, $COURSE;
  4818. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  4819. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4820. $fileid = optional_param('fileid', NULL, PARAM_INT);
  4821. $filename = optional_param('filename', NULL, PARAM_RAW);
  4822. $file = $fs->get_file_by_id($fileid);
  4823. $context = context_course::instance($this->id);
  4824. $fileinfo = array(
  4825. 'contextid' => $context->id, // ID of context
  4826. 'component' => 'mod_iassign', // usually = table name
  4827. 'filearea' => 'activity', // usually = table name
  4828. 'itemid' => 0, // usually = ID of row in table
  4829. 'filepath' => $this->get_dir_ilm('dir_base'), // any path beginning and ending in /
  4830. 'userid' => $USER->id,
  4831. 'author' => $USER->firstname . ' ' . $USER->lastname, 'license' => 'allrightsreserved', // allrightsreserved
  4832. 'timecreated' => $file->get_timecreated(), 'filename' => $filename); // any filename
  4833. $newfile = $fs->create_file_from_string($fileinfo, $file->get_content());
  4834. redirect(new moodle_url($this->url . "&dirid=" . $this->get_dir_ilm('dirid') . "&ilmid=" . $ilmid));
  4835. die();
  4836. }
  4837. /// Function for rename iAssign file
  4838. function rename_file_ilm () {
  4839. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  4840. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4841. $fileid = optional_param('fileid', NULL, PARAM_INT);
  4842. $filename = optional_param('filename', NULL, PARAM_TEXT);
  4843. $file = $fs->get_file_by_id($fileid);
  4844. $file->rename($this->get_dir_ilm('dir_base'), $filename);
  4845. //MOOC2014 redirect(new moodle_url($this->url . "&dirid=" . $dir_parent . "&ilmid=$ilmid"));
  4846. redirect(new moodle_url($this->url . '&dirid=' . $this->get_dir_ilm('dirid') . '&ilmid=' . $ilmid));
  4847. //D echo "locallib.php: rename_file_ilm; ilmid=$ilmid, dirid=" . $this->get_dir_ilm('dirid') . "<br/>\n"; //
  4848. die();
  4849. }
  4850. /// Function for get iassign file for iassign form
  4851. function add_ilm () {
  4852. $fileid = optional_param('fileid', NULL, PARAM_INT);
  4853. $filename = optional_param('filename', NULL, PARAM_TEXT);
  4854. $output = "
  4855. <script type='text/javascript'>
  4856. //<![CDATA[
  4857. var iassign_file_link = window.opener.document.getElementById('iassign_file_link');
  4858. iassign_file_link.innerHTML = '$filename';
  4859. window.opener.document.forms['mform1'].file.value='$fileid';
  4860. window.opener.document.forms['mform1'].filename.value='$filename';
  4861. window.close();
  4862. //]]>
  4863. </script>";
  4864. print $output;
  4865. die();
  4866. }
  4867. /// Function for preview iAssign file from iAssign Repository (it uses iAssign filter)
  4868. // @see /iassign_filter/filter.php : function 'filter($text, array $options = array())' and exit (do not continue bellow)
  4869. // @see ilm_manager.php : $ilm_manager_instance->preview_ilm();
  4870. function preview_ilm ($courseid, $iassign_ilm) {
  4871. global $OUTPUT, $CFG, $USER;
  4872. $fileid = optional_param('fileid', NULL, PARAM_TEXT);
  4873. $title = get_string('modulename', 'iassign'); // iAssign
  4874. print $OUTPUT->header();
  4875. print $OUTPUT->box_start();
  4876. $javascript = "
  4877. <!-- iAssign preview iLM content / LInE - http://line.ime.usp.br -->
  4878. <script type='text/javascript'>
  4879. //<![CDATA[
  4880. function submit_close () {
  4881. window.opener.location.reload();
  4882. window.close();
  4883. }
  4884. //]]>
  4885. </script>\n";
  4886. // Use iAssin filter to change "&lt;ia toolbar=disable width=800 height=600 &gt;45&lt;/ia&gt;"
  4887. // to the complete "applet" tag
  4888. // Version previous to: 2016/02/16: do not present menus' options - similar to the filter
  4889. //TODO: E' melhor apresentar o iMA completo, sem usar o filtro com opcao "<param name='SOH_ADD' value='ADD'>"
  4890. //TODO: Talvez seja melhor colocar opcao no filtro para evitar opcao 'ADD'!
  4891. //TODO: Here reaches '/iassign_filter/filter.php : function 'filter($text, array $options = array())' with parameter 'originalformat=0' (in glossary is 1)
  4892. //TODO: then, I changed '/iassign_filter/filter.php' (functions 'filter(...) to avoid 'SOH_ADD' if 'originalformat=0'
  4893. $ilm_name = substr(strtolower($iassign_ilm->name), 0, 6);
  4894. if ($ilm_name != "ivprog") {
  4895. //MOOC2014 $tag_filter = format_text($this->tag_ilm($fileid));
  4896. $tag_filter = $this->tag_ilm($fileid); // build the iAssign filter tag, something like: <ia toolbar=disable width=800 height=600 >58</ia>
  4897. $tag_filter_filtered = format_text($tag_filter, FORMAT_MOODLE, array('overflowdiv' => true, 'allowid' => true)); // Moodle 3.X
  4898. } else {
  4899. require_once($CFG->dirroot . '/mod/iassign/ilm_security.php');
  4900. $content_or_id_from_ilm_security = $this->get_file_ilm();
  4901. $timecreated = time();
  4902. $token = md5($timecreated);
  4903. $id_iLM_security = ilm_security::write_iLM_security($USER->id, $timecreated, -1, $content_or_id_from_ilm_security); // insert in 'iassign_security'
  4904. $param = 'id=' . $id_iLM_security . '&ilmid=' . $iassign_ilm->id . '&token=' . $token . '&view=0';
  4905. $url_file = $CFG->wwwroot . '/mod/iassign/ilm_security.php?action=preview&' . $param;
  4906. $tag_filter_filtered = ilm_settings::build_ilm_tags($iassign_ilm->id, array("type" => "view", "notSEND" => "true", "Proposition" => $url_file)); // buil iLM tag (JAR or HTML5)
  4907. }
  4908. $html = "
  4909. <form name='formEnvio' id='formEnvio' method='post' enctype='multipart/form-data'>
  4910. <table border='1'>
  4911. <tr><td>
  4912. <!-- iLM calls : begin -->\n" . $tag_filter_filtered . "\n
  4913. <!-- iLM calls : end -->
  4914. </td></tr>
  4915. </table>
  4916. <table>
  4917. <tr>
  4918. <td align='center'>
  4919. <input type=button value='" . get_string('close', 'iassign') . "' title='' onclick='submit_close();' />
  4920. </td></tr>
  4921. </table>
  4922. </form>\n";
  4923. print $javascript . $html;
  4924. print $OUTPUT->box_end();
  4925. //NAO echo format_string($html); // Moodle 3.X
  4926. die();
  4927. } // function preview_ilm($courseid, $iassign_ilm)
  4928. //r_ function preview_ilm ($iassign_ilm)
  4929. //r_ /// Function for preview iassign file from iassign filter.
  4930. //r_ function preview_ilm() {
  4931. //r_ $fileid = optional_param('fileid', NULL, PARAM_TEXT);
  4932. //r_ $tag_filter = $this->tag_ilm($fileid);
  4933. //r_ $javascript = "<script type='text/javascript'>
  4934. //r_ //<![CDATA[
  4935. //r_ function submit_close() { window.opener.location.reload(); window.close(); }
  4936. //r_ //]]>
  4937. //r_ </script>";
  4938. //r_ $html = "<html><head></head><body><form name='formEnvio' id='formEnvio' method='post' enctype='multipart/form-data'>
  4939. //r_ <table border='1'><tr><td>$tag_filter</td></tr></table><table><tr><td align='center'><input type=button value='" . get_string('close', 'iassign') . "' title='' onclick='submit_close();'/></td></tr>
  4940. //r_ </table></form></body></html>";
  4941. //r_ echo $javascript . format_text($html);
  4942. //r_ die;
  4943. //r_ }
  4944. /// Function for export an package (zip) of iassign files
  4945. function export_files_ilm () {
  4946. global $CFG;
  4947. $context = context_course::instance($this->id);
  4948. $files_id = explode(",", optional_param('files_id', '', PARAM_TEXT));
  4949. $zip_filename = $CFG->dataroot . '/temp/backup-iassign-files-' . date("Ymd-Hi") . '.zip';
  4950. $zip = new zip_archive();
  4951. $zip->open($zip_filename);
  4952. $fs = get_file_storage(); // Get reference to all files in Moodle data
  4953. foreach ($files_id as $file_id) {
  4954. $file = $fs->get_file_by_id($file_id);
  4955. if (!$file->is_directory())
  4956. $zip->add_file_from_string($file->get_filename(), $file->get_content());
  4957. else {
  4958. $zip->add_directory($file->get_filepath());
  4959. $files_zip = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $file->get_filepath(), true, true);
  4960. foreach ($files_zip as $value) {
  4961. if (!$value->is_directory())
  4962. $zip->add_file_from_string($value->get_filepath() . $value->get_filename(), $value->get_content());
  4963. else
  4964. $zip->add_directory($value->get_filepath());
  4965. }
  4966. }
  4967. }
  4968. $zip->close();
  4969. header("Pragma: public");
  4970. header("Expires: 0");
  4971. header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
  4972. header("Cache-Control: private", false);
  4973. header("Content-Type: application/zip");
  4974. header("Content-Disposition: attachment; filename=\"" . basename($zip_filename) . "\";");
  4975. header("Content-Transfer-Encoding: binary");
  4976. header("Content-Length: " . @filesize($zip_filename));
  4977. set_time_limit(0);
  4978. @readfile("$zip_filename") || die("File not found.");
  4979. unlink($zip_filename);
  4980. exit;
  4981. }
  4982. /// Function of execute a command in button editor tinymce
  4983. // @param int $fileid Id of file
  4984. function tinymce_ilm ($fileid) {
  4985. $tag_filter = $this->tag_ilm($fileid);
  4986. $output = "<script type='text/javascript'>
  4987. //<![CDATA[
  4988. var tag_filter = '$tag_filter';
  4989. if (window.opener.tinyMCE.execCommand('mceiAssignReturn', tag_filter)) {
  4990. // all right, insert it
  4991. } else {
  4992. alert('Error trying to insert iLM content (tinymce_ilm " + $fileid + ")');
  4993. }
  4994. // window.close();
  4995. //]]>
  4996. </script>\n";
  4997. print $output;
  4998. die();
  4999. }
  5000. //TODO sugestao para uso de apenas uma funcao para chamar os editores, cortando 17 linhas de codigo
  5001. /// Function to add content to the Editor Window
  5002. // Updated: Marcio Passos - marciopassosbel[at]gmail[dot]com :: 07 / Jul / 2016
  5003. // @param int $fileid Id of file
  5004. function editor_ilm ($fileid, $editor) {
  5005. $tag_filter = $this->tag_ilm($fileid); // Prepare tag like: <ia toolbar=disable width=800 height=600>ID</ia>
  5006. $output1 = "<script type='text/javascript'>
  5007. //<![CDATA[
  5008. var tag_filter = '$tag_filter';\n";
  5009. if ($editor == 'atto') {
  5010. $output2 = " if (window.opener.document.execCommand('insertHTML', false, tag_filter)) { } // all right, insert it";
  5011. } elseif ($editor == 'tinyMCE') {
  5012. $output2 = " if (window.opener.tinyMCE.execCommand('mceiAssignReturn', tag_filter)) { } // all right, insert it";
  5013. } else
  5014. $output2 = "";
  5015. $output3 = " else { console.log('Error trying to insert iLM content (atto_ilm " . $fileid . ")'); }
  5016. window.close();
  5017. //]]>
  5018. </script>\n";
  5019. //D var_dump($output);
  5020. print $output1 . $output2 . $output3;
  5021. die();
  5022. }
  5023. /// Function to add content to the Atto Editor Window
  5024. // Updated: Marcio Passos - marciopassosbel[at]gmail[dot]com :: 07 / Jul / 2016
  5025. // @param int $fileid Id of file
  5026. function atto_ilm ($fileid) {
  5027. global $CFG, $DB;
  5028. $tag_filter = $this->tag_ilm($fileid);
  5029. $output = "<script type='text/javascript'>
  5030. //<![CDATA[
  5031. var tag_filter = '$tag_filter';
  5032. if (window.opener.document.execCommand('insertHTML', false, tag_filter)) {
  5033. // all right, insert iLM tag to this editor
  5034. } else {
  5035. // error trying to insert
  5036. alert('Error trying to insert iLM content (atto_ilm " + $fileid + ")');
  5037. }
  5038. //window.close();
  5039. //]]>
  5040. </script>\n";
  5041. print $output;
  5042. die();
  5043. }
  5044. /// Function for get path and infos of dirs: dirid, dir_base, dir_parent, dir_home
  5045. // @param string $key Key for return information
  5046. // @return Ambigous <unknown, number, string, NULL> Return an information requested
  5047. function get_dir_ilm ($key) {
  5048. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5049. $context = context_course::instance($this->id);
  5050. $dirid = optional_param('dirid', 0, PARAM_INT);
  5051. $dir_home = $fs->get_file($context->id, 'mod_iassign', 'activity', 0, $dir_base = '/', '.');
  5052. if ($dirid == 0) {
  5053. $dir = ($dir_home = $fs->create_directory($context->id, 'mod_iassign', 'activity', 0, $dir_base));
  5054. $dirid = $dir->get_id();
  5055. } else {
  5056. $dir = $fs->get_file_by_id($dirid);
  5057. $dir_base = $dir->get_filepath();
  5058. }
  5059. $dir_parent = $dir->get_parent_directory();
  5060. $data = array('dirid' => $dirid, 'dir_base' => $dir_base, 'dir_parent' => ($dir_parent == NULL ? 0 : $dir_parent->get_id()), 'dir_home' => $dir_home->get_id());
  5061. return $data[$key];
  5062. }
  5063. /// Function for create an new dir
  5064. function new_dir_ilm () {
  5065. global $USER;
  5066. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  5067. $dirname = optional_param('dirname', NULL, PARAM_TEXT);
  5068. $dir_base = $this->get_dir_ilm('dir_base');
  5069. $context = context_course::instance($this->id);
  5070. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5071. $fs->create_directory($context->id, 'mod_iassign', 'activity', 0, $dir_base . $dirname . "/", $USER->id);
  5072. $dir_base = $fs->get_file($context->id, 'mod_iassign', 'activity', 0, $dir_base . $dirname . "/", '.');
  5073. $dir_base->set_author($USER->firstname . ' ' . $USER->lastname);
  5074. redirect(new moodle_url($this->url . '&dirid=' . $this->get_dir_ilm('dirid') . '&ilmid=' . $ilmid));
  5075. }
  5076. /// Function for delete an dir
  5077. function delete_dir_ilm () { //
  5078. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5079. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  5080. $context = context_course::instance($this->id);
  5081. $dir = $fs->get_file_by_id($this->get_dir_ilm('dirid'));
  5082. $dir_parent = $this->get_dir_ilm('dir_parent');
  5083. if ($dir) {
  5084. if ($dir->is_directory()) {
  5085. $files_delete = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $dir->get_filepath(), true, true);
  5086. foreach ($files_delete as $value)
  5087. $value->delete();
  5088. $dir->delete();
  5089. }
  5090. }
  5091. redirect(new moodle_url($this->url . '&dirid=' . $dir_parent . '&ilmid=' . $ilmid));
  5092. die();
  5093. }
  5094. /// Function for rename an dir
  5095. function rename_dir_ilm () {
  5096. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5097. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  5098. $context = context_course::instance($this->id);
  5099. $dir = $fs->get_file_by_id($this->get_dir_ilm('dirid'));
  5100. $dir_parent = $this->get_dir_ilm('dir_parent');
  5101. $dirname = optional_param('dirname', NULL, PARAM_TEXT);
  5102. $pathname = explode("/", substr($dir->get_filepath(), 0, strlen($dir->get_filepath()) - 1));
  5103. if ($dir->is_directory()) {
  5104. $files_rename_path = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $dir->get_filepath(), true, true);
  5105. foreach ($files_rename_path as $value)
  5106. $value->rename(str_replace($pathname[count($pathname) - 1], $dirname, $value->get_filepath()), $value->get_filename());
  5107. $dir->rename(str_replace($pathname[count($pathname) - 1], $dirname, $dir->get_filepath()), $dir->get_filename());
  5108. }
  5109. redirect(new moodle_url($this->url . '&dirid=' . $dir_parent . '&ilmid=' . $ilmid));
  5110. die();
  5111. }
  5112. /// Function for move an dir and your content for other dir
  5113. function selected_move_ilm () {
  5114. global $PAGE, $OUTPUT, $CFG;
  5115. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5116. $context = context_course::instance($this->id);
  5117. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  5118. $dirid = $this->get_dir_ilm('dirid');
  5119. $dir_base = $this->get_dir_ilm('dir_base');
  5120. $files_id = explode(",", optional_param('files_id', '', PARAM_TEXT));
  5121. $code_javascript_ilm = "
  5122. <script type='text/javascript'>
  5123. //<![CDATA[
  5124. function getRadiobutton () {
  5125. var radioButtons = document.getElementsByTagName('input');
  5126. var param = '';
  5127. for (var counter=0; counter < radioButtons.length; counter++) {
  5128. if (radioButtons[counter].type.toUpperCase()=='RADIO' && radioButtons[counter].checked == true && radioButtons[counter].name == 'selected_dir')
  5129. param = radioButtons[counter].value;
  5130. }
  5131. return param;
  5132. }
  5133. function move_selected_ilm () {
  5134. var msgAnswer;
  5135. if (getRadiobutton() != '') {
  5136. msgAnswer = confirm('" . get_string('question_move_dir', 'iassign') . "');
  5137. if (msgAnswer)
  5138. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=move&ilmid=" . $ilmid . "&dirid=" . $dirid . "&files_id=" .
  5139. optional_param('files_id', '', PARAM_TEXT) . "&dir_move='+getRadiobutton();
  5140. }
  5141. else
  5142. alert('" . get_string('error_dir_not_selected_to_move', 'iassign') . "');
  5143. }
  5144. function cancel_selected_ilm () {
  5145. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&ilmid=" . $ilmid . "&dirid=" . $dirid . "';
  5146. }
  5147. //]]>
  5148. </script>\n";
  5149. $title = get_string('move_files', 'iassign');
  5150. $PAGE->set_title($title);
  5151. $PAGE->set_pagelayout('base');
  5152. print $OUTPUT->header();
  5153. print $OUTPUT->heading($title);
  5154. $dir_paths = array();
  5155. print $OUTPUT->box_start();
  5156. print "<center>";
  5157. foreach ($files_id as $file_id) {
  5158. $file = $fs->get_file_by_id($file_id);
  5159. if ($file) {
  5160. if (!$file->is_directory())
  5161. print "<p>" . iassign_icons::insert('file') . "&nbsp;" . $file->get_filepath() . $file->get_filename() . "</p>";
  5162. else {
  5163. print "<p>" . iassign_icons::insert('dir') . "&nbsp;" . $file->get_filepath() . "</p>";
  5164. array_push($dir_paths, $file->get_filepath());
  5165. }
  5166. }
  5167. }
  5168. print $OUTPUT->heading(get_string('select_move_ilm', 'iassign'), 3, 'move', 'move_files');
  5169. if ($dir_base != '/') {
  5170. $check_select = "<input name='selected_dir' type='radio' value='" . $this->get_dir_ilm('dir_home') . "'/>";
  5171. print $check_select . "&nbsp;" . iassign_icons::insert('dir') . "&nbsp;/<br>";
  5172. }
  5173. $files_tree = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, '/', true, true, 'filepath');
  5174. foreach ($files_tree as $file) {
  5175. if ($file->is_directory() && $file->get_filepath() != $dir_base) {
  5176. $is_parent = false;
  5177. foreach ($dir_paths as $dir) {
  5178. $path = explode("/", $dir);
  5179. array_pop($path);
  5180. $path[count($path) - 1] = '';
  5181. $path = implode("/", $path);
  5182. $is_parent |= (strpos($file->get_filepath(), $dir) === false ? false : true);
  5183. $is_parent |= ($file->get_filepath() != $path ? false : true);
  5184. }
  5185. if ($is_parent == false) {
  5186. $check_select = "<input name='selected_dir' type='radio' value='" . $file->get_id() . "'/>";
  5187. print "<p>" . $check_select . "&nbsp;" . iassign_icons::insert('dir') . "&nbsp;" . $file->get_filepath() . "</p>";
  5188. }
  5189. }
  5190. }
  5191. print "<p><input type='button' value='" . get_string('ok') . "' onclick='move_selected_ilm();'/>&nbsp;&nbsp;&nbsp;&nbsp;";
  5192. print "<input type='button' value='" . get_string('cancel') . "' onclick='cancel_selected_ilm();'/></p>";
  5193. print "</center>";
  5194. print $OUTPUT->box_end();
  5195. print $OUTPUT->footer();
  5196. print $code_javascript_ilm;
  5197. die;
  5198. }
  5199. /// Function for move files for an dir
  5200. function move_files_ilm () {
  5201. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5202. $context = context_course::instance($this->id);
  5203. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  5204. $dirid = $this->get_dir_ilm('dirid');
  5205. $dir_move = $fs->get_file_by_id(optional_param('dir_move', 0, PARAM_INT));
  5206. $files_id = explode(",", optional_param('files_id', '', PARAM_TEXT));
  5207. foreach ($files_id as $file_id) {
  5208. $file = $fs->get_file_by_id($file_id);
  5209. if ($file) {
  5210. if ($file->is_directory()) {
  5211. $pathname = explode("/", $file->get_filepath());
  5212. $files_move_path = $fs->get_directory_files($context->id, 'mod_iassign', 'activity', 0, $file->get_filepath(), true, true);
  5213. foreach ($files_move_path as $value) {
  5214. $path_move = $dir_move->get_filepath() . $pathname[count($pathname) - 2] . '/' . str_replace($file->get_filepath(), '', $value->get_filepath());
  5215. $value->rename($path_move, $value->get_filename());
  5216. //echo($value->get_filepath().$value->get_filename()." - $path_move".$value->get_filename()."<br>");
  5217. }
  5218. $path_move = $dir_move->get_filepath() . $pathname[count($pathname) - 2] . '/';
  5219. //echo($file->get_filepath().$file->get_filename()." - $path_move".$file->get_filename()."<br>");
  5220. $file->rename($path_move, $file->get_filename());
  5221. } else {
  5222. //echo($file->get_filepath().$file->get_filename()." -> ".$dir_move->get_filepath().$file->get_filename()."<br>");
  5223. $file->rename($dir_move->get_filepath(), $file->get_filename());
  5224. }
  5225. }
  5226. }
  5227. //die;
  5228. redirect(new moodle_url($this->url . '&ilmid=' . $ilmid . '&dirid=' . $dirid));
  5229. die();
  5230. } // function move_files_ilm()
  5231. /// Function for recover files in use on all activities of a course
  5232. function recover_files_ilm () {
  5233. global $DB, $USER;
  5234. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5235. $courseid = optional_param('id', NULL, PARAM_INT);
  5236. $dirid = $this->get_dir_ilm('dirid');
  5237. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  5238. $contextfile = context_course::instance($this->id);
  5239. $iassigns = $DB->get_records("iassign", array("course" => $courseid));
  5240. foreach ($iassigns as $iassign) {
  5241. $iassign_statement_activity_list = $DB->get_records("iassign_statement", array("iassignid" => $iassign->id));
  5242. foreach ($iassign_statement_activity_list as $iassign_statement_activity_item) {
  5243. $cm = get_coursemodule_from_instance("iassign", $iassign->id, $courseid);
  5244. $context = context_module::instance($cm->id);
  5245. $files = $fs->get_area_files($context->id, 'mod_iassign', 'exercise', $iassign_statement_activity_item->file);
  5246. if ($files) {
  5247. foreach ($files as $value) {
  5248. $extension = explode(".", $value->get_filename());
  5249. if (!$value->is_directory()) {
  5250. $fileinfo = array('contextid' => $contextfile->id,
  5251. 'component' => 'mod_iassign',
  5252. 'filearea' => 'activity',
  5253. 'itemid' => 0,
  5254. 'filepath' => $this->get_dir_ilm('dir_base'),
  5255. 'userid' => $USER->id,
  5256. 'author' => $USER->firstname . ' ' . $USER->lastname,
  5257. 'license' => 'allrightsreserved',
  5258. 'timecreated' => time(),
  5259. 'filename' => $iassign_statement_activity_item->name . "." . $extension[1]); // any filename
  5260. $newfile = $fs->create_file_from_string($fileinfo, $value->get_content());
  5261. }
  5262. }
  5263. } // if ($files)
  5264. } // foreach ($iassign_statement_activity_list as $iassign_statement_activity_item)
  5265. } // foreach ($iassigns as $iassign)
  5266. redirect(new moodle_url($this->url . '&dirid=' . $dirid . '&ilmid=' . $ilmid));
  5267. die();
  5268. } // function recover_files_ilm()
  5269. /// Auxiliary function the get all files in a given context
  5270. // @return [array_contextid_files_thisauthor[], array_contextid_files_otherauthors[], array_contextid_files_otherauthors_userid[]]
  5271. //TODO Falta separar os arquivos listados, apresentar primeiro aqueles do autor e depois os demais.
  5272. //TODO Nao devemos listar aqueles que estao sem permissao (license == 'allrightsreserved')
  5273. function get_files_in_context (&$allfiles, $contextid, $extension, $userid) {
  5274. // s_iassign_statement: id name iassignid type_iassign proposition author_name author_modified_name iassign_ilmid
  5275. // (NAO s_iassign_statement.file = s_files.id)
  5276. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5277. $dir_base = $this->get_dir_ilm('dir_base');
  5278. $files_course = $fs->get_directory_files($contextid, 'mod_iassign', 'activity', 0, $dir_base, false, true, 'filename');
  5279. $countf = 0;
  5280. $array_files_id = array(); // all files from this context
  5281. foreach ($files_course as $item_fc) { // license = not "allrightsreserved" AND is not from this author => present it
  5282. //$filename = $item_fc->get_filename();
  5283. //$filepath = $item_fc->get_filepath();
  5284. //$fileid = $item_fc->get_id(); // get file ID (in *_iassign_statement table)
  5285. //$fileuserid = $item_fc->get_userid(); // get user.id of the author
  5286. // $array_files_aux[] = $item_fc;
  5287. $itemid = $item_fc->get_id();
  5288. if (!in_array($itemid, $array_files_id)) {
  5289. //TODO Avoid to insert twice - necessary since it has been inserting 2 copies in iassign_statement
  5290. $allfiles[] = $item_fc;
  5291. $array_files_id[] = $itemid;
  5292. $countf++;
  5293. }
  5294. }
  5295. //D echo "get_files_in_context: dir_base=$dir_base, contextid=$contextid, #array_files_id=".count($array_files_id) . " = $countf<br/>";
  5296. return $countf;
  5297. }
  5298. /// List iassign files from course directory
  5299. // @calledby ilm_manager.php : $ilm_manager_instance->view_files_ilm($iassign_ilm->extension);
  5300. function view_files_ilm ($iassign_ilm_class, $extension, $start = 0) {
  5301. //TODO usar $start para trazer no maximo 50 arquivos iniciando em $start
  5302. global $CFG, $DB, $USER, $OUTPUT;
  5303. $fs = get_file_storage(); // Get reference to all files in Moodle data
  5304. $context = context_course::instance($this->id); // $this->id = ID of the current course
  5305. $ilmid = optional_param('ilmid', NULL, PARAM_INT);
  5306. $dirid = $this->get_dir_ilm('dirid');
  5307. $dir_base = $this->get_dir_ilm('dir_base');
  5308. // Get all files in module iAssign
  5309. // -- start
  5310. $array_all_files = array(); // all files from all context.id (in data decreasing order)
  5311. $array_contextid_files = array(); // context.id in data decreasing order
  5312. $array_contextid_files_aux = array(); // all context.id in data creasing order
  5313. // Get all files from table '*_files': id ; contenthash ; pathnamehash ; contextid ; component ;... filename ; userid ...
  5314. // $DB is 'mysqli_native_moodle_database' object
  5315. // if (has_capability("moodle/site:config", $context, $USER->id, true))
  5316. // if (has_capability("mod/iassign:addinstance", $context, $USER->id, true))
  5317. $hascapability = has_capability("moodle/site:config", $context, $USER->id); // *_capabilities="moodle/site:config" : greatest one)
  5318. if ($hascapability==1) {
  5319. //$array_query = array('component' => 'mod_iassign');
  5320. $query_sql = "SELECT * FROM {files} WHERE component='mod_iassign' AND filearea='activity'";
  5321. }
  5322. else {
  5323. // $array_query = array('component' => 'mod_iassign', 'userid' => $USER->id);
  5324. $query_sql = "SELECT * FROM {files} WHERE component='mod_iassign' AND filearea='activity' AND " .
  5325. " (license<>'allrightsreserved' OR contextid=" . $context->id . " OR userid=" . $USER->id . ")";
  5326. }
  5327. // files : id contenthash pathnamehash contextid component filearea itemid filepath filename userid filesize mimetype status source author license timecreated timemodified sortorder referencefileid
  5328. // $files_iassign = $DB->get_records('files', $array_query); // extensions for all iLM...
  5329. $files_iassign = $DB->get_records_sql($query_sql);
  5330. //D echo "view_files_ilm: " . $USER->id . ", " . $hascapability . ": " . $query_sql . "<br/>";
  5331. //D SELECT id,contextid,component,filearea,itemid,filepath,filename,userid FROM s_files WHERE component='mod_iassign' AND filearea='exercise';
  5332. $count_all_files = 0;
  5333. $count_files_with_ext = 0;
  5334. $count_thisauthor_contextid = 0;
  5335. $count_otherauthors_contextid = 0;
  5336. //D echo "view_files_ilm: user.id=" . $USER->id . ", ext=$extension, #files=" . count($files_iassign) . "<br/>";
  5337. if (is_array($files_iassign))
  5338. foreach ($files_iassign as $item_files_iassign) {
  5339. $extensionF = explode(".", $item_files_iassign->filename); // $item_files_iassign->get_filename()
  5340. $lastitem = sizeof($extensionF);
  5341. if ($lastitem>0) $lastitem--;
  5342. else { echo ".";// error: it must have extension (after ".")
  5343. continue;}
  5344. $str_extension = $extensionF[$lastitem];
  5345. $count_files_with_ext++;
  5346. if ($extension == $str_extension) {
  5347. $contextid = $item_files_iassign->contextid;
  5348. if (!in_array($contextid, $array_contextid_files_aux)) { // not yet in array of context with this extension
  5349. $array_contextid_files_aux[] = $contextid;
  5350. $total_in_context = $this->get_files_in_context($array_all_files, $contextid, $extension, $USER->id); // $array_all_files by reference
  5351. $count_all_files += $total_in_context;
  5352. }
  5353. }
  5354. }
  5355. //D echo "view_files_ilm: #array_contextid_files_aux=".count($array_contextid_files_aux). ", count_all_files=$count_all_files<br/>";
  5356. //view_files_ilm: #array_contextid_files_aux=54
  5357. //TODO Deste modo vem: se ADMIN => todos os arquivos de extensao compativel; senao todos os arquivos do usuario
  5358. //TODO Implementar: se NAO ADMIN => pegar TODOS os arquivos do curso
  5359. //TODO Tabela pegar todos '*_files.contextid' tais que '*_files.component=="mod_iassign"'
  5360. $array_files_course = array();
  5361. $dirs_array = ''; // if there are none 'exercise' file
  5362. $files_array = ''; // idem
  5363. $files_array = "''"; // idem
  5364. $error_files_exists = "''"; // idem
  5365. for ($ii=$count_all_files-1; $ii>0; $ii--) {
  5366. //$contextid = $array_contextid_files[$ii];
  5367. //$files_course = $fs->get_directory_files($contextid, 'mod_iassign', 'activity', 0, $dir_base, false, true, 'filename');
  5368. //$array_files_course[] = $files_course;
  5369. $files_course = $array_all_files[$ii];
  5370. $files_array = '';
  5371. $files_array .= "''";
  5372. $error_files_exists = get_string('error_file_exists', 'iassign');
  5373. $dirs_array = '';
  5374. foreach ($files_course as $one_file) {
  5375. if (!$one_file->is_directory())
  5376. $files_array .= "'" . $one_file->get_filename() . "',";
  5377. else { //if ($one_file->is_directory())
  5378. $pathname = explode("/", substr($one_file->get_filepath(), 0, strlen($one_file->get_filepath()) - 1));
  5379. $dirs_array .= "'" . $pathname[count($pathname) - 1] . "',";
  5380. }
  5381. } // foreach ($files_course as $one_file)
  5382. } // for ($ii=0; $ii<$num_contexts; $ii++)
  5383. print "#" . $count_all_files . "<br/>";
  5384. // -- end
  5385. $dirs_array .= "''";
  5386. $error_dir_exists = get_string('error_dir_exists', 'iassign');
  5387. //TODO Rever o 'preview' pois soh poder deixar ver uma vez
  5388. $code_javascript_ilm = "
  5389. <script type='text/javascript'>
  5390. //<![CDATA[
  5391. function preview_ilm (fileid, ilmid) { //JavaScript function
  5392. var param = '" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=preview&fileid='+fileid+'&ilmid='+ilmid;
  5393. var preview_ilm=window.open(param,'','menubar=0,location=0,scrollbars,status,resizable,width=900 height=700');
  5394. }
  5395. function update_ilm (ilmid, fileid) { //JavaScript function
  5396. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=update&ilmid='+ilmid+'&dirid=" . $dirid . "&fileid='+fileid;
  5397. }
  5398. function delete_ilm (ilmid, fileid) { //JavaScript function
  5399. var msgAnswer;
  5400. msgAnswer = confirm('" . get_string('delete_file', 'iassign') . "');
  5401. if (msgAnswer) {
  5402. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=delete&ilmid='+ilmid+'&dirid=" . $dirid . "&fileid='+fileid;
  5403. }
  5404. }
  5405. function delete_selected_ilm () { //JavaScript function
  5406. var msgAnswer;
  5407. var param = getCheckbox();
  5408. if (param.join() != '') {
  5409. msgAnswer = confirm('" . get_string('delete_files', 'iassign') . "');
  5410. if (msgAnswer)
  5411. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=selected_delete&dirid=" . $dirid . "&files_id='+param.join();
  5412. }
  5413. else
  5414. alert('" . get_string('er_file_not_selected_to_delete', 'iassign') . "');
  5415. }
  5416. function add_ilm_iassign (ilmid, filename, fileid) { //JavaScript function
  5417. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=addilm&ilmid='+ilmid+'&fileid='+fileid+'&filename='+filename;
  5418. }
  5419. function duplicate_ilm (ilmid, filename, fileid) { //JavaScript function
  5420. var filenamecopy;
  5421. var i;
  5422. var files = new Array($files_array);
  5423. do {
  5424. filenamecopy = prompt ('" . get_string('duplicate_file', 'iassign') . "',filename);
  5425. } while (filenamecopy == '');
  5426. if (filenamecopy == null)
  5427. return false;\n
  5428. else {
  5429. for (i=0;i<files.length;i++) {
  5430. if (files[i]==filenamecopy) {
  5431. alert('$error_files_exists');
  5432. return false;\n
  5433. }
  5434. }\n" .
  5435. // @see: function 'duplicate_file_ilm()' above
  5436. "
  5437. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?" .
  5438. "from=" . $this->from . "&id=" . $this->id . "&action=duplicate&ilmid=' + ilmid + '&dirid=" . $dirid . "&fileid=' + fileid + '&filename=' + filenamecopy;
  5439. } // else
  5440. }
  5441. function rename_ilm (ilmid, filename, fileid) { //JavaScript function
  5442. var filenamecopy;
  5443. var i;
  5444. var files = new Array($files_array);
  5445. do {
  5446. filenamecopy = prompt('" . get_string('rename_file', 'iassign') . "',filename);
  5447. } while (filenamecopy == '');
  5448. if (filenamecopy == null)
  5449. return false;
  5450. else {
  5451. for (i=0;i<files.length;i++) {
  5452. if (files[i]==filenamecopy) {
  5453. alert('$error_files_exists');
  5454. return false;
  5455. }
  5456. }
  5457. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=rename&ilmid='+ilmid+'&dirid=" . $dirid . "&fileid='+fileid+'&filename='+filenamecopy;
  5458. }
  5459. }
  5460. function export_files_ilm () { //JavaScript function
  5461. var param = getCheckbox();
  5462. if (param.join() != '')
  5463. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=export&dirid=" . $dirid . "&files_id='+param.join();
  5464. else
  5465. alert('" . get_string('er_file_not_selected_to_export', 'iassign') . "');
  5466. }
  5467. function select_all_ilm () { //JavaScript function
  5468. var checkBoxes = document.getElementsByTagName('input');
  5469. var selectAll = document.getElementById('select_all');
  5470. for (var counter=0; counter < checkBoxes.length; counter++) {
  5471. if (checkBoxes[counter].type.toUpperCase()=='CHECKBOX' && checkBoxes[counter].name == 'selected_file')
  5472. checkBoxes[counter].checked = selectAll.checked;
  5473. }
  5474. }
  5475. function getCheckbox () { //JavaScript function
  5476. var checkBoxes = document.getElementsByTagName('input');
  5477. var param = new Array();
  5478. for (var counter=0; counter < checkBoxes.length; counter++) {
  5479. if (checkBoxes[counter].type.toUpperCase()=='CHECKBOX' && checkBoxes[counter].checked == true && checkBoxes[counter].name == 'selected_file')
  5480. param.push(checkBoxes[counter].value);
  5481. }
  5482. return param;
  5483. }
  5484. function new_dir_ilm () { //JavaScript function
  5485. var dirname = '';
  5486. var i;
  5487. var dirs = new Array($dirs_array);
  5488. do {
  5489. var dirname = prompt ('" . get_string('question_new_dir', 'iassign') . "', '');
  5490. } while (dirname == '');
  5491. if (dirname == null)
  5492. return false;\n
  5493. else {
  5494. for (i=0;i<dirs.length;i++) {
  5495. if (dirs[i]==dirname) {
  5496. alert('$error_dir_exists');
  5497. return false;\n
  5498. }
  5499. }
  5500. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=new_dir&ilmid=" . $ilmid . "&dirid=" . $dirid . "&dirname='+dirname;
  5501. }
  5502. }
  5503. function delete_dir_ilm (ilmid, dirid) { //JavaScript function
  5504. var msgAnswer;
  5505. msgAnswer = confirm('" . get_string('question_delete_dir', 'iassign') . "');
  5506. if (msgAnswer) {
  5507. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=delete_dir&ilmid='+ilmid+'&dirid='+dirid;
  5508. }
  5509. }
  5510. function rename_dir_ilm (ilmid, dirname, dirid) { //JavaScript function
  5511. var dirnamecopy;
  5512. var i;
  5513. var dirs = new Array($dirs_array);
  5514. do {
  5515. dirnamecopy = prompt ('" . get_string('question_rename_dir', 'iassign') . "',dirname);
  5516. } while (dirnamecopy == '');
  5517. if (dirnamecopy == null)
  5518. return false;\n
  5519. else {
  5520. for (i=0;i<dirs.length;i++) {
  5521. if (dirs[i]==dirnamecopy) {
  5522. alert('$error_dir_exists');
  5523. return false;\n
  5524. }
  5525. }
  5526. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=rename_dir&ilmid='+ilmid+'&dirid='+dirid+'&dirname='+dirnamecopy;
  5527. }
  5528. }
  5529. function move_selected_ilm (ilmid) { //JavaScript function
  5530. var param = getCheckbox();
  5531. if (param.join() != '')
  5532. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=selected_move&ilmid='+ilmid+'&dirid=" . $dirid . "&files_id='+param.join();
  5533. else
  5534. alert('" . get_string('er_file_not_selected_to_move', 'iassign') . "');
  5535. }
  5536. function recover_files_ilm () { //JavaScript function
  5537. var msgAnswer;
  5538. msgAnswer = confirm('" . get_string('question_recover_files', 'iassign') . "');
  5539. if (msgAnswer) {
  5540. window.location='" . $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&action=recover&ilmid=" . $ilmid . "&dirid=" . $dirid . "';
  5541. }
  5542. }
  5543. window.onload = function() { //JavaScript function
  5544. var xPosition = 0;
  5545. var yPosition = 0;
  5546. element=document.getElementById('new_file');
  5547. while(element) {
  5548. xPosition += (element.offsetLeft - element.scrollLeft + element.clientLeft);
  5549. yPosition += (element.offsetTop - element.scrollTop + element.clientTop);
  5550. element = element.offsetParent;
  5551. }
  5552. document.getElementById('new_file').style.top = '' + (yPosition - 400) + 'px';
  5553. document.getElementById('new_file').style.right = '' + 0 + 'px';
  5554. location.hash = '#new_file';
  5555. };
  5556. //]]>
  5557. </script>\n"; // end of $code_javascript_ilm
  5558. $output = "";
  5559. $select_all = "";
  5560. $count_files = 0;
  5561. $extensions_allow = array();
  5562. $iassign_ilm = $DB->get_records('iassign_ilm', array("enable" => 1)); // extensions for all iLM...
  5563. foreach ($iassign_ilm as $item_iassign_ilm)
  5564. $extensions_allow = array_merge($extensions_allow, explode(",", $item_iassign_ilm->extension));
  5565. //Estava foreach ($files_course as $one_file)
  5566. for ($ii=$count_all_files-1; $ii>0; $ii--) { // function view_files_ilm ($iassign_ilm_class, $extension)
  5567. //$contextid = $array_contextid_files[$ii]; // Notice: Undefined offset: 2257 in /var/www/html/saw/mod/iassign/locallib.php on line 6333
  5568. //$files_course = $array_files_course[$ii];
  5569. $one_file = $array_all_files[$ii];
  5570. $filename = $one_file->get_filename();
  5571. $filepath = $one_file->get_filepath();
  5572. $pathname = explode("/", substr($filepath, 0, strlen($filepath) - 1));
  5573. $pathname = $pathname[count($pathname) - 1];
  5574. $fileid = $one_file->get_id();
  5575. $tmp = explode(".", $filename);
  5576. if (is_array($tmp)) { // define file type
  5577. if (sizeof($tmp)>1)
  5578. $filetype = $tmp[1];
  5579. else
  5580. $filetype = $extension;
  5581. }
  5582. else
  5583. $filetype = $extension;
  5584. $author = $one_file->get_author();
  5585. $timemodified = date("d/m/Y H:i:s", $one_file->get_timemodified());
  5586. $timecreated = date("d/m/Y H:i:s", $one_file->get_timecreated());
  5587. $extensions = explode(",", $extension);
  5588. if (in_array(strtolower($filetype), $extensions) || $one_file->is_directory() || $this->from == 'block' || $this->from == 'tinymce' || $this->from == 'atto') {
  5589. $count_files ++;
  5590. // buscar fileid nas tabelas do iassign
  5591. $list_filein_use = "";
  5592. $iassign_statement_activity_list = $DB->get_records("iassign_statement", array("file" => $fileid));
  5593. if ($iassign_statement_activity_list) {
  5594. foreach ($iassign_statement_activity_list as $iassign_statement_activity_item) {
  5595. $list_filein_use .= $iassign_statement_activity_item->name . "</br>\n";
  5596. }
  5597. }
  5598. $array_iassign_ilm = $DB->get_records("iassign_ilm", array('extension' => $filetype, 'parent' => '0', 'enable' => '1'));
  5599. foreach ($array_iassign_ilm as $iassign_ilm) { // get files from all iLM equivalent
  5600. if (!$iassign_ilm) {
  5601. $iassign_ilm = new stdClass();
  5602. $iassign_ilm->id = $ilmid;
  5603. }
  5604. // Do not use $var inside "..." - problem with some "unusual" operational system
  5605. $url = $CFG->wwwroot . "/pluginfile.php/" . $one_file->get_contextid() . "/mod_iassign/activity";
  5606. $fileurl = $url . '/' . $one_file->get_itemid() . $filepath . $filename;
  5607. $dirurl = new moodle_url($this->url) . '&ilmid=' . $iassign_ilm->id . '&dirid=' . $fileid;
  5608. $straux = $CFG->wwwroot . "/mod/iassign/ilm_manager.php?from=" . $this->from . "&id=" . $this->id . "&fileid=" . $fileid . "&";
  5609. $link_add_ilm_iassign = "&nbsp;&nbsp;<a href='" . $straux . "action=addilm&filename=$filename&nbsp;&nbsp;&nbsp;'>" . iassign_icons::insert('add_ilm_iassign') . "</a>\n";
  5610. $link_add_ilm_tinymce = "&nbsp;&nbsp;<a href='" . $straux . "action=tinymceilm'>" . iassign_icons::insert('add_ilm_iassign') . "</a>\n";
  5611. $link_add_ilm_atto = "&nbsp;&nbsp;<a href='" . $straux . "action=attoilm'>" . iassign_icons::insert('add_ilm_iassign') . "</a>\n";
  5612. $check_select = "";
  5613. $link_rename = "";
  5614. $link_delete = "";
  5615. $link_duplicate = "&nbsp;&nbsp;<a href='#' onclick='duplicate_ilm(\"$iassign_ilm->id\", \"$filename\"," . $fileid . ");'>" . iassign_icons::insert('duplicate_iassign') . "</a>\n";
  5616. $link_edit = "&nbsp;&nbsp;" . iassign_icons::insert('no_edit_iassign');
  5617. $link_filter = "&nbsp;&nbsp;<a href='#' onclick='preview_ilm(" . $fileid . "," . $ilmid . ");'>" . iassign_icons::insert('preview_iassign') . "</a>\n";
  5618. $link_duplicate = "&nbsp;&nbsp;<a href='#' onclick='duplicate_ilm(\"$iassign_ilm->id\", \"$filename\"," . $fileid . ");'>" .
  5619. iassign_icons::insert('duplicate_iassign') . "</a>\n";
  5620. $link_edit = "&nbsp;&nbsp;" . iassign_icons::insert('no_edit_iassign');
  5621. $link_filter = "&nbsp;&nbsp;<a href='#' onclick='preview_ilm(" . $fileid . "," . $ilmid . ");'>" . iassign_icons::insert('preview_iassign') . "</a>\n";
  5622. if ($one_file->get_userid() == $USER->id) {
  5623. if ($iassign_statement_activity_list) {
  5624. $check_select = "";
  5625. $link_edit = iassign_icons::insert('edit_iassign_disable');
  5626. $link_delete = "&nbsp;&nbsp;" . iassign_icons::insert('delete_iassign_disable');
  5627. $link_rename = "";
  5628. }
  5629. else {
  5630. $check_select = "<input name='selected_file' type='checkbox' value='$fileid'/>\n";
  5631. $link_edit = "&nbsp;&nbsp;<a href='#' onclick='update_ilm(\"$iassign_ilm->id\", $fileid)'>" . iassign_icons::insert('edit_iassign') . "</a>\n";
  5632. $link_delete = "&nbsp;&nbsp;<a href='#' onclick='delete_ilm(\"$iassign_ilm->id\", $fileid);'>" . iassign_icons::insert('delete_iassign') . "</a>\n";
  5633. $link_rename = "&nbsp;&nbsp;<a href='#' onclick='rename_ilm(\"$iassign_ilm->id\", \"$filename\"," . $fileid . ");'>" . iassign_icons::insert('rename_iassign') . "</a>\n";
  5634. }
  5635. } // if ($one_file->get_userid() == $USER->id)
  5636. if (!in_array($filetype, $extensions_allow)) {
  5637. $link_edit = "";
  5638. $link_add_ilm_iassign = "";
  5639. $link_add_ilm_tinymce = "";
  5640. $link_add_ilm_atto = "";
  5641. $link_filter = "";
  5642. }
  5643. if ($one_file->is_directory()) {
  5644. $link_delete = "&nbsp;&nbsp;<a href='#' onclick='delete_dir_ilm(\"$iassign_ilm->id\", $fileid);'>" . iassign_icons::insert('delete_dir') . "</a>\n";
  5645. $link_rename = "&nbsp;&nbsp;<a href='#' onclick='rename_dir_ilm(\"$iassign_ilm->id\", \"" . $pathname . "\"," . $fileid . ");'>" . iassign_icons::insert('rename_dir') . "</a>\n";
  5646. $output .= "<tr><td>$check_select$link_rename$link_delete</td>
  5647. <td><a href='$dirurl' title='" . get_string('dir', 'iassign') . $pathname . "'>" . iassign_icons::insert('dir') . '&nbsp;' . $pathname . "</a></td>
  5648. <td><center>$author</center></td>
  5649. <td><center>$timecreated</center></td>
  5650. <td><center>$timemodified</center></td></tr>\n";
  5651. }
  5652. else if ($this->from == 'iassign') {
  5653. $new_id = "";
  5654. $new_class = "";
  5655. if (isset($_SESSION['file_name']) && $filename == $_SESSION['file_name']) {
  5656. $new_class = "<div id='new_file' style='position: absolute;'></div>"; unset($_SESSION['file_name']);
  5657. $new_id = "id='id_new_blink' style='background-color: hsl(244,61%,90%);'";
  5658. }
  5659. $output .= "<tr $new_id><td>$new_class $check_select$link_rename$link_delete$link_duplicate$link_edit$link_filter$link_add_ilm_iassign</td>
  5660. <td><a href='$fileurl' title='" . get_string('download_file', 'iassign') . "$filename'>$filename</a></td>
  5661. <td><center>$author</center></td>
  5662. <td><center>$timecreated</center></td>
  5663. <td><center>$timemodified</center></td></tr>\n";
  5664. }
  5665. else if ($this->from == 'block') {
  5666. $output .= "<tr><td>$check_select$link_rename$link_delete$link_duplicate$link_edit$link_filter</td>
  5667. <td><a href='$fileurl' title='" . get_string('download_file', 'iassign') . "$filename'>$filename</a></td>
  5668. <td><center>$author</center></td>
  5669. <td><center>$timecreated</center></td>
  5670. <td><center>$timemodified</center></td></tr>\n";
  5671. }
  5672. else if ($this->from == 'tinymce') {
  5673. $output .= "<tr><td>$check_select$link_rename$link_delete$link_duplicate$link_edit$link_filter$link_add_ilm_tinymce</td>
  5674. <td><a href='$fileurl' title='" . get_string('download_file', 'iassign') . "$filename'>$filename</a></td>
  5675. <td><center>$author</center></td>
  5676. <td><center>$timecreated</center></td>
  5677. <td><center>$timemodified</center></td></tr>\n";
  5678. }
  5679. else if ($this->from == 'atto') {
  5680. $output .= "<tr><td>$check_select$link_rename$link_delete$link_duplicate$link_edit$link_filter$link_add_ilm_atto</td>
  5681. <td><a href='$fileurl' title='" . get_string('download_file', 'iassign') . "$filename'>$filename</a></td>
  5682. <td><center>$author</center></td>
  5683. <td><center>$timecreated</center></td>
  5684. <td><center>$timemodified</center></td></tr>\n";
  5685. }
  5686. } // foreach ($array_iassign_ilm as $iassign_ilm)
  5687. } // if (in_array(strtolower($filetype), $extensions) || $one_file->is_directory() || $this->from == 'block' || $this->from == 'tinymce' || $this->from == 'atto')
  5688. } // for ($ii=$count_all_files-1; $ii>0; $ii--) // for ($ii=0; $ii<$num_contexts; $ii++)
  5689. $basename = explode("/", substr($dir_base, 0, strlen($dir_base) - 1));
  5690. $dir_base = "";
  5691. $header = "";
  5692. // echo "locallib.php: view_files_ilm(iassign_ilm_class,extension): iassign_ilm_class->extension=" . $iassign_ilm_class->extension . ", extension=" . $extension. "<br/>\n";
  5693. // Get all files in the course context with the associated iLM extension (e.g., iLM=iVProgH => extension "*ivph")
  5694. foreach ($basename as $value) {
  5695. $dir_base .= $value . "/";
  5696. $dir_id = $fs->get_file($context->id, 'mod_iassign', 'activity', 0, $dir_base, '.');
  5697. if ($dir_id) {
  5698. if ($value == "") {
  5699. $fileurl = new moodle_url($this->url) . '&dirid=' . $dir_id->get_id() . '&ilmid=' . $ilmid;
  5700. $header .= "&nbsp;<a href='$fileurl' title='" . get_string('dir', 'iassign') . "Home'>Home</a>\n";
  5701. } else {
  5702. $fileurl = new moodle_url($this->url) . '&dirid=' . $dir_id->get_id() . '&ilmid=' . $ilmid;
  5703. $header .= "&nbsp;" . $OUTPUT->rarrow() . "&nbsp;<a href='$fileurl' title='" . get_string('dir', 'iassign') . "$dir_base'>$value</a>\n";
  5704. }
  5705. }
  5706. } // foreach ($basename as $value)
  5707. $html = $OUTPUT->heading(iassign_icons::insert('open_dir') . $header, 2, 'dirtitle', 'iassign');
  5708. $select_all = "<input id='select_all' type='checkbox' onclick='select_all_ilm();'/>\n";
  5709. $html .= "
  5710. <table id='outlinetable' class='generaltable boxaligncenter' cellpadding='5' width='100%'>
  5711. <tr><th class='header c1' width='20%'>$select_all " . get_string('functions', 'iassign') . "</th>
  5712. <th class='header c1' width='*'>" . get_string('file', 'iassign') . "</th>
  5713. <th class='header c1' width='10%'>" . get_string('author', 'iassign') . "</th>
  5714. <th class='header c1' width='10%'>" . get_string('file_created', 'iassign') . "</th>
  5715. <th class='header c1' width='10%'>" . get_string('file_modified', 'iassign') . "</th>\n " . $output . "
  5716. </table>\n";
  5717. $html .= "<form id='form_buttons' method='post' enctype='multipart/form-data'>\n";
  5718. $html .= "<table width='100%'><tr>\n";
  5719. $html .= "<td width='80%'><input type='button' value='" . get_string('new_dir', 'iassign') . "' onClick='new_dir_ilm();'>\n";
  5720. if ($count_files != 0) {
  5721. $html .= "&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;<input type='button' value='" . get_string('file_ilm_move', 'iassign') . "' onClick='move_selected_ilm(\"$iassign_ilm->id\");'/>&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;\n";
  5722. $html .= "<input type='button' value='" . get_string('file_ilm_delete', 'iassign') . "' onClick='delete_selected_ilm(\"$iassign_ilm->id\");'>&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;\n";
  5723. $html .= "<input type='button' value='" . get_string('file_ilm_export', 'iassign') . "' onClick='export_files_ilm();'>\n";
  5724. }
  5725. $html .= "</td><td width='100%' align='right'><input type='button' value='" . get_string('file_ilm_recover', 'iassign') . "' onClick='recover_files_ilm();'>\n";
  5726. $html .= $OUTPUT->help_icon('file_ilm_recover', 'iassign') . "</td></tr></table>\n";
  5727. $html .= "</form>\n";
  5728. print $code_javascript_ilm;
  5729. print $html;
  5730. } // function view_files_ilm($extension)
  5731. } // class ilm_manager
  5732. /// Class to insert of icons
  5733. class iassign_icons {
  5734. static function insert ($icon) {
  5735. global $CFG;
  5736. $string = '<img src="' . $CFG->wwwroot . '/mod/iassign/icon/' . $icon . '.gif" title="' . get_string($icon, 'iassign') . '" alt="' . get_string($icon, 'iassign') . '"/>'; // "\n"
  5737. return $string;
  5738. }
  5739. }
  5740. /// Class with util functions for plugin manage
  5741. class iassign_utils {
  5742. /// Function to return the filename extension
  5743. // @param string The $filename as an string
  5744. // @return string Return an string (last group after '.')
  5745. static function filename_extension ($filename) {
  5746. if ($filename == null || $filename == '') {
  5747. return null;
  5748. }
  5749. $itens = explode('.', $filename);
  5750. $num = count($itens);
  5751. if ($num < 2) {
  5752. return null;
  5753. }
  5754. return $itens[$num - 1];
  5755. }
  5756. /// Use the PHP class/package ZipArchive to create a Zip file
  5757. // The version 1 with ZipArchive (with '$zip->addFile(...)') is NOT working:
  5758. // Warning: ZipArchive::close(): Failure to create temporary file: No such file or directory in /var/www/html/.../lib/filestorage/zip_archive.php on line 224
  5759. // @param $full_path_zip_filename, $vet_student_filename, $vet_student_content
  5760. static function register_temporary_file ($full_path_zip_filename, $vet_student_filename, $vet_student_content) {
  5761. //1 $zip = new ZipArchive(); //TODO this version uses '$zip->addFile(...)' and it is NOT working!
  5762. $zip = new zip_archive(); //2
  5763. $res = $zip->open($full_path_zip_filename);
  5764. $total_vet = count($vet_student_filename);
  5765. for ($ii=0; $ii<$total_vet; $ii++) {
  5766. // $zip->addFile($vet_student_filename[$ii], $vet_student_content[$ii]); //1 to ZipArchive
  5767. $zip->add_file_from_string($vet_student_filename[$ii], $vet_student_content[$ii]); //2 to zip_archive
  5768. }
  5769. $ret = $zip->close();
  5770. iassign_utils::download_file($full_path_zip_filename);
  5771. $filenameZip = $zip->filename;
  5772. return array($ret, $zip);
  5773. }
  5774. static function download_file ($zip_filename) {
  5775. header("Pragma: public");
  5776. header("Expires: 0");
  5777. header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
  5778. header("Cache-Control: private", false);
  5779. header("Content-Type: application/zip");
  5780. header("Content-Disposition: attachment; filename=\"" . basename($zip_filename) . "\";");
  5781. header("Content-Transfer-Encoding: binary");
  5782. header("Content-Length: " . @filesize($zip_filename));
  5783. set_time_limit(0);
  5784. @readfile("$zip_filename") || die("File not found.");
  5785. unlink($zip_filename);
  5786. }
  5787. /// Function for format filename remove special caracters
  5788. // @param string $text String for clean
  5789. // @param boolean $is_lowercase Boolean for apply lowercase in filename
  5790. // @return string Return an string in clean format
  5791. static function format_filename ($text) {
  5792. if ($text != '.') {
  5793. //D $text = htmlspecialchars(urldecode($text));
  5794. //D echo "locallib.php: format_filename: $text<br/>";
  5795. if (is_object($text)) // with iAssign did not filtered text from JSON format
  5796. $text = json_decode($text)->{current_language()};
  5797. // $text = htmlspecialchars($text); // not good ideia, it results strange at 'iassign_ilm' field
  5798. $array1 = array("(", ")", ",", "/", "\\", "!", "@", "#", "$", "&", "*", "+", "!", "?", ".", " ",
  5799. "á", "à", "â", "ã", "ä", "é", "è", "ê", "ë", "ẽ", "í", "ì", "î", "ï", "ó", "ò", "ô", "õ", "ö", "ú", "ù", "û", "ü",
  5800. "ç", "Á", "À", "Â", "Ã", "Ä", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ó", "Ò", "Ô", "Õ", "Ö", "Ú", "Ù", "Û", "Ü", "Ç");
  5801. $array2 = array("", "", "_", "_", "_", "", "", "", "", "", "", "", "", "", "_", "_",
  5802. "a", "a", "a", "a", "a", "e", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", "o", "o", "u", "u", "u", "u",
  5803. "c", "A", "A", "A", "A", "A", "E", "E", "E", "E", "I", "I", "I", "I", "O", "O", "O", "O", "O", "U", "U", "U", "U", "C");
  5804. // E.g. text = "exerc_midpoint.course.geo"
  5805. // 0123456789012345678901234
  5806. $index_lastposition = strrpos($text, "."); // Find the position of the last occurrence of a substring in a string (21)
  5807. $text2 = substr($text, 0, $index_lastposition); // Erase the final point and its extension ("exerc_midpoint.course")
  5808. $ext = substr($text, $index_lastposition); // Point with extention (".geo")
  5809. $text = str_replace(".", "", $text2) . $ext; // Clear any other point and redefine the name ("exerc_midpoint.course.geo")
  5810. $text = str_replace($array1, $array2, $text); // Replace any letter with accent mark under the UTF8 format
  5811. //$ext = strrpos($text, ".");
  5812. //$text = str_replace(".", "", substr($text, 0, $ext)).substr($text, $ext);
  5813. //$text = str_replace($array1, $array2, $text);
  5814. }
  5815. return $text;
  5816. }
  5817. /// Function to filter characters to the file name to iLM content
  5818. // @param string $text String for clean
  5819. // @param string $ext String ot the extension of the iLM
  5820. // @return string Return an string in clean format
  5821. static function filter_filename_extension ($filename, $ext) {
  5822. if ($filename != '.') {
  5823. $arrFrom = array("=","~","`","!","@","$","%","^","&","*","(",")");
  5824. $arrTo = array("_","","","","","","","","","","","","");
  5825. $filename = str_replace($arrFrom, $arrTo, $filename);
  5826. //D echo "locallib.php: filter_filename_extension: 1 : " . $filename . "<br/>";
  5827. $filenameF = preg_replace('/[^\x20-\x7E]/','', $filename); // only ASCII - https://stackoverflow.com/questions/8781911/remove-non-ascii-characters-from-string
  5828. $index_lastposition = strrpos($filenameF, "."); // find the position of the last occurrence of a substring in a string (21)
  5829. if (!isset($index_lastposition) || $index_lastposition=="" || $index_lastposition<0) // Just in case (logic of function 'strrpos(...)' change, ensure to preserve name without '.'
  5830. $index_lastposition = strlen($filenameF);
  5831. $text = substr($filenameF, 0, $index_lastposition); // erase the final point and its extension ("exerc_midpoint.course")
  5832. $text = str_replace(".", "_", $text); // erase all other "."
  5833. $existext = substr($filenameF, $index_lastposition); // get the possibly extension
  5834. $filenameF = $text . "." . $ext; // no matter, use the prefiz with oficial extension
  5835. }
  5836. else
  5837. $filenameF = 'file_without_name.' . $ext; // Just in case... if the use do not enter a valid name, only entered '.'!
  5838. return $filenameF;
  5839. }
  5840. /// Function for format pathname remove special caracters
  5841. // @param string $text String for clean
  5842. // @param boolean $is_lowercase Boolean for apply lowercase in pathname
  5843. // @return string Return an string in clean format
  5844. static function format_pathname ($text, $is_lowercase = true) {
  5845. $array1 = array("á", "à", "â", "ã", "ä", "é", "è", "ê", "ë", "í", "ì", "î", "ï", "ó", "ò", "ô", "õ", "ö", "ú", "ù", "û", "ü", "ç", "Á", "À", "Â", "Ã", "Ä", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ó", "Ò", "Ô", "Õ", "Ö", "Ú", "Ù", "Û", "Ü", "Ç", "@", " ", "!", "?", ".");
  5846. $array2 = array("a", "a", "a", "a", "a", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", "o", "o", "u", "u", "u", "u", "c", "A", "A", "A", "A", "A", "E", "E", "E", "E", "I", "I", "I", "I", "O", "O", "O", "O", "O", "U", "U", "U", "U", "C", "-", "_", "", "", "");
  5847. $text = str_replace($array1, $array2, $text);
  5848. if ($is_lowercase)
  5849. $text = strtolower($text);
  5850. return $text;
  5851. }
  5852. /// Function for format file name from iLM original name
  5853. // @param string $text String to build the file neam
  5854. // @param boolean $is_lowercase Boolean for apply lowercase in pathname
  5855. // @return string Return an string in clean format
  5856. static function filename_from_iLM_name ($ilm_name, $is_lowercase = true) {
  5857. $array1 = array("á", "à", "â", "ã", "ä", "é", "è", "ê", "ë", "í", "ì", "î", "ï", "ó", "ò", "ô", "õ", "ö", "ú", "ù", "û", "ü", "ç", "Á", "À", "Â", "Ã", "Ä", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ó", "Ò", "Ô", "Õ", "Ö", "Ú", "Ù", "Û", "Ü", "Ç", "@", " ", "!", "?", ".");
  5858. $array2 = array("a", "a", "a", "a", "a", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", "o", "o", "u", "u", "u", "u", "c", "A", "A", "A", "A", "A", "E", "E", "E", "E", "I", "I", "I", "I", "O", "O", "O", "O", "O", "U", "U", "U", "U", "C", "-", "_", "", "", "");
  5859. $index_firstposition_blank = strpos($ilm_name, " ");
  5860. if ($index_firstposition_blank) { // truncate the name!
  5861. $ilm_name = substr($ilm_name, 0, $index_firstposition_blank);
  5862. }
  5863. $index_firstposition_dots = strpos($ilm_name, ":");
  5864. if ($index_firstposition_dots) { // truncate the name!
  5865. $ilm_name = substr($ilm_name, 0, $index_firstposition_dots);
  5866. }
  5867. $namefiltered = str_replace($array1, $array2, $ilm_name);
  5868. if ($is_lowercase)
  5869. $namefiltered = strtolower($namefiltered);
  5870. return $namefiltered;
  5871. }
  5872. /// Function for insert version in the filename
  5873. // @param string $filename Name of file
  5874. // @return string Return the filename with version
  5875. static function version_filename ($filename) {
  5876. $array_filename = explode('.', $filename);
  5877. if (count($array_filename) > 1)
  5878. $filename = $array_filename[0] . '-' . date("Ymd-His") . '.' . $array_filename[1];
  5879. else
  5880. $filename = $array_filename[0] . '-' . date("Ymd-His");
  5881. return $filename;
  5882. }
  5883. //TODO Retirar quando atualizar todo os iassign que estão com a tag &lt;ia_uc&gt;
  5884. static function remove_code_message ($string) {
  5885. $array = explode("&lt;ia_uc&gt;", $string);
  5886. return $array[0];
  5887. }
  5888. }
  5889. // class iassign_utils
  5890. /// Class with language functions for plugin manage
  5891. class iassign_language {
  5892. /// Function for return text in language or get default language (en)
  5893. // @param string $lang Code of language
  5894. // @param string $description JSON text content all languages
  5895. // @return string Return an string in the language selected
  5896. static function get_description_lang ($lang, $descriptions) {
  5897. $description_lang = "";
  5898. $description = json_decode($descriptions);
  5899. if ($description == null) {
  5900. $description_lang = $descriptions;
  5901. }
  5902. else {
  5903. if (isset($description->{$lang}))
  5904. $description_lang = $description->{$lang};
  5905. else
  5906. if (isset($description->en)) //MOOC2014
  5907. $description_lang = $description->en;
  5908. else //MOOC2014
  5909. $description_lang = "en"; //MOOC2014
  5910. }
  5911. return $description_lang;
  5912. }
  5913. /// Function for return all language supported by iLM
  5914. // @param string $descriptions JSON text content all languages
  5915. // @return string Return as string with all languages
  5916. static function get_all_lang ($descriptions) {
  5917. $langs = "";
  5918. $description = json_decode($descriptions);
  5919. if ($description) {
  5920. foreach ($description as $key => $value) {
  5921. $langs .= $key . " ; ";
  5922. }
  5923. $langs = substr($langs, 0, strlen($langs) - 3);
  5924. }
  5925. return $langs;
  5926. }
  5927. /// Function for convert json in xml //MOOC2014
  5928. // @param string $json JSON text
  5929. // @return string Return as string with xml tags
  5930. static function json_to_xml ($json) {
  5931. $xml = "";
  5932. $json = json_decode($json);
  5933. foreach ($json as $key => $value) {
  5934. $xml .= "\n <" . $key . ">" . $value . "</" . $key . ">";
  5935. }
  5936. return $xml;
  5937. }
  5938. }
  5939. // class iassign_language
  5940. /// Class with log functions for plugin manage.
  5941. class iassign_log {
  5942. /// Function for insert log event
  5943. // @param string $action Code action of event
  5944. // @param string $information Text for describe action of event
  5945. // @param int $cmid Id of context module
  5946. // @param int $ilmid Id of iLM
  5947. static function add_log ($action, $information = "", $cmid = 0, $ilmid = 0) {
  5948. global $COURSE, $CFG, $USER, $DB;
  5949. $newentry = new stdClass();
  5950. $newentry->time = time();
  5951. $newentry->userid = $USER->id;
  5952. $newentry->ip = $_SERVER['REMOTE_ADDR'];
  5953. $newentry->course = $COURSE->id;
  5954. $newentry->cmid = $cmid;
  5955. $newentry->ilmid = $ilmid;
  5956. $newentry->action = $action;
  5957. $newentry->info = $information;
  5958. $newentry->language = current_language();
  5959. $newentry->user_agent = $_SERVER['HTTP_USER_AGENT'];
  5960. if (ini_get("browscap") && function_exists('get_browse')) {
  5961. $browser = get_browse(null, true);
  5962. $newentry->javascript = $browser['javascript'];
  5963. $newentry->java = $browser['javaapplets'];
  5964. }
  5965. if (!$newentry->id = $DB->insert_record("iassign_log", $newentry))
  5966. print_error('error_add_log', 'iassign');
  5967. } // static function add_log($action, $information = "", $cmid = 0, $ilmid = 0)
  5968. } // class iassign_log