Annotation of rat/lonratedt.pm, revision 1.22
1.1 www 1: # The LearningOnline Network with CAPA
2: # Edit Handler for RAT Maps
1.5 www 3: #
1.22 ! www 4: # $Id: lonratedt.pm,v 1.21 2002/05/18 18:24:34 www Exp $
1.5 www 5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
10: # LON-CAPA is free software; you can redistribute it and/or modify
11: # it under the terms of the GNU General Public License as published by
12: # the Free Software Foundation; either version 2 of the License, or
13: # (at your option) any later version.
14: #
15: # LON-CAPA is distributed in the hope that it will be useful,
16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: # GNU General Public License for more details.
19: #
20: # You should have received a copy of the GNU General Public License
21: # along with LON-CAPA; if not, write to the Free Software
22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23: #
24: # /home/httpd/html/adm/gpl.txt
25: #
26: # http://www.lon-capa.org/
27: #
1.1 www 28: # (TeX Content Handler
29: #
30: # 05/29/00,05/30 Gerd Kortemeyer)
1.4 www 31: # 7/1,6/30 Gerd Kortemeyer
1.1 www 32:
33: package Apache::lonratedt;
34:
35: use strict;
36: use Apache::Constants qw(:common);
1.3 www 37: use Apache::lonnet;
1.7 www 38: use Apache::lonratsrv;
1.1 www 39:
1.10 www 40: my @order=();
1.8 www 41: my @resources=();
42:
43:
44: # Mapread read maps into global arrays @links and @resources, determines status
1.10 www 45: # sets @order - pointer to resources in right order
46: # sets @resources - array with the resources with correct idx
47: #
1.8 www 48: sub mapread {
49: my $fn=shift;
50:
1.10 www 51: my @links;
1.8 www 52: undef @links;
53: undef @resources;
1.10 www 54: undef @order;
1.8 www 55:
56: my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');
57: if ($errtext) { return ($errtext,2); }
58:
1.9 www 59: # -------------------------------------------------------------------- Read map
1.8 www 60: foreach (split(/\<\&\>/,$outtext)) {
1.9 www 61: my ($command,$number,$content)=split(/\<\:\>/,$_);
1.8 www 62: if ($command eq 'objcont') {
1.9 www 63: $resources[$number]=$content;
1.8 www 64: }
65: if ($command eq 'objlinks') {
1.9 www 66: $links[$number]=$content;
67: }
68: }
69: # ------------------------------------------------------- Is this a linear map?
70: my @starters=();
71: my @endings=();
72: undef @starters;
73: undef @endings;
74:
75: foreach (@links) {
76: if (defined($_)) {
77: my ($start,$end,$cond)=split(/\:/,$_);
78: if ((defined($starters[$start])) || (defined($endings[$end]))) {
1.8 www 79: return
1.10 www 80: ('Map has branchings. Use advanced editor.',1);
1.8 www 81: }
1.9 www 82: $starters[$start]=1;
83: $endings[$end]=1;
84: if ($cond) {
1.8 www 85: return
1.10 www 86: ('Map has conditions. Use advanced editor.',1);
1.8 www 87: }
88: }
89:
90: }
1.10 www 91: for (my $i=0; $i<=$#resources; $i++) {
92: if (defined($resources[$i])) {
93: unless (($starters[$i]) || ($endings[$i])) {
94: return
95: ('Map has unconnected resources. Use advanced editor.',1);
96: }
97: }
98: }
99:
100: # -------------------------------------------------- This is a linear map, sort
101:
102: my $startidx=0;
103: my $endidx=0;
104: for (my $i=0; $i<=$#resources; $i++) {
105: if (defined($resources[$i])) {
106: my ($title,$url,$ext,$type)=split(/\:/,$resources[$i]);
107: if ($type eq 'start') { $startidx=$i; }
108: if ($type eq 'finish') { $endidx=$i; }
109: }
110: }
111: my $k=0;
112: my $currentidx=$startidx;
113: $order[$k]=$currentidx;
114: for (my $i=0; $i<=$#resources; $i++) {
115: foreach (@links) {
116: my ($start,$end)=split(/\:/,$_);
117: if ($start==$currentidx) {
118: $currentidx=$end;
119: $k++;
120: $order[$k]=$currentidx;
121: last;
122: }
123: }
124: if ($currentidx==$endidx) { last; }
125: }
1.8 www 126: return $errtext;
127: }
128:
1.16 www 129: # ---------------------------------------------- Read a map as well as possible
130:
131: sub attemptread {
132: my $fn=shift;
133:
134: my @links;
135: undef @links;
136: my @theseres;
137: undef @theseres;
138:
139: my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');
140: if ($errtext) { return @theseres }
141:
142: # -------------------------------------------------------------------- Read map
143: foreach (split(/\<\&\>/,$outtext)) {
144: my ($command,$number,$content)=split(/\<\:\>/,$_);
145: if ($command eq 'objcont') {
146: $theseres[$number]=$content;
147: }
148: if ($command eq 'objlinks') {
149: $links[$number]=$content;
150: }
151: }
152:
153: # --------------------------------------------------------------- Sort, sort of
154:
1.17 www 155: my @objsort=();
156: undef @objsort;
1.16 www 157:
1.17 www 158: my @data1=();
159: my @data2=();
160: undef @data1;
161: undef @data2;
162:
163: my $k;
164: my $kj;
165: my $j;
166: my $ij;
167:
168: for ($k=1;$k<=$#theseres;$k++) {
169: if (defined($theseres[$k])) {
170: $objsort[$#objsort+1]=$k;
171: }
172: }
1.16 www 173:
1.17 www 174: for ($k=1;$k<=$#links;$k++) {
175: if (defined($links[$k])) {
176: @data1=split(/\:/,$links[$k]);
177: $kj=-1;
178: for (my $j=0;$j<=$#objsort;$j++) {
179: if ((split(/\:/,$objsort[$j]))[0]==$data1[0]) {
180: $kj=$j;
181: }
182: }
183: if ($kj!=-1) { $objsort[$kj].=':'.$data1[1]; }
184: }
185: }
186: for ($k=0;$k<=$#objsort;$k++) {
187: for ($j=0;$j<=$#objsort;$j++) {
188: if ($k!=$j) {
189: @data1=split(/\:/,$objsort[$k]);
190: @data2=split(/\:/,$objsort[$j]);
191: my $dol=$#data1+1;
192: my $dtl=$#data2+1;
193: if ($dol+$dtl<1000) {
194: for ($kj=1;$kj<$dol;$kj++) {
195: if ($data1[$kj]==$data2[0]) {
196: for ($ij=1;$ij<$dtl;$ij++) {
197: $data1[$#data1+1]=$data2[$ij];
198: }
199: }
200: }
201: for ($kj=1;$kj<$dtl;$kj++) {
202: if ($data2[$kj]==$data1[0]) {
203: for ($ij=1;$ij<$dol;$ij++) {
204: $data2[$#data2+1]=$data1[$ij];
205: }
206: }
207: }
208: $objsort[$k]=join(':',@data1);
209: $objsort[$j]=join(':',@data2);
210: }
211: }
212: }
213: }
214: # ---------------------------------------------------------------- Now sort out
1.16 www 215:
1.17 www 216: @objsort=sort {
217: my @data1=split(/\:/,$a);
218: my @data2=split(/\:/,$b);
219: my $rvalue=0;
220: my $k;
221: for ($k=1;$k<=$#data1;$k++) {
222: if ($data1[$k]==$data2[0]) { $rvalue--; }
223: }
224: for ($k=1;$k<=$#data2;$k++) {
225: if ($data2[$k]==$data1[0]) { $rvalue++; }
226: }
227: if ($rvalue==0) { $rvalue=$#data2-$#data1; }
228: $rvalue;
229: } @objsort;
230:
231: my @outres=();
232: undef @outres;
233:
234: for ($k=0;$k<=$#objsort;$k++) {
235: $outres[$k]=$theseres[(split(/\:/,$objsort[$k]))[0]];
236: }
237: return @outres;
1.16 www 238: }
239:
1.3 www 240: # --------------------------------------------------------- Build up RAT screen
241: sub ratedt {
242: my ($r,$url)=@_;
1.1 www 243: $r->print(<<ENDDOCUMENT);
244:
245: <html>
1.2 harris41 246: <head>
247: <script language="JavaScript">
248: var flag=0;
249: </script>
250: </head>
1.1 www 251: <frameset rows="1,50,*" border=0>
252: <frame name=server src="$url/loadonly/ratserver" noresize noscroll>
253: <frame name=code src="/adm/rat/code.html">
254: <frame name=mapout src="/adm/rat/map.html">
255: </frameset>
256: </html>
257:
258: ENDDOCUMENT
1.3 www 259: }
260:
1.8 www 261: # ---------------------------------------------------------------- Make buttons
262:
263: sub buttons {
264: my $adv=shift;
265: my $output='<form method=post>';
266: if ($adv==1) {
267: $output.='<input type=submit name=forceadv value="Edit">';
268: } else {
269: unless ($adv==2) {
270: $output.='<input type=submit name=forcesmp value="Simple Edit">';
271: }
272: $output.='<input type=submit name=forceadv value="Advanced Edit">';
273: }
274: return $output.'</form><hr>';
275: }
276:
1.20 www 277: # ----------------------------------------------------------- Paste into target
278: # modifies @order, @resources
279:
280: sub pastetarget {
281: my ($after,@which)=@_;
282: my @insertorder=();
283: foreach (@which) {
284: if (defined($_)) {
285: my ($name,$url)=split(/\=/,$_);
1.21 www 286: $name=&Apache::lonnet::unescape($name);
287: $url=&Apache::lonnet::unescape($url);
288: if ($url) {
289: my $idx=$#resources+1;
290: $insertorder[$#insertorder+1]=$idx;
291: my $ext='false';
292: if ($url=~/^http\:\/\//) { $ext='true'; }
293: $url=~s/\:/\:/g;
294: $resources[$idx]=$name.':'.$url.':'.$ext.':normal:res';
295: }
1.20 www 296: }
297: }
298: my @oldorder=splice(@order,$after,$#insertorder+1,@insertorder);
1.21 www 299: @order=(@order,@oldorder);
300: }
301:
302: # ------------------------------------------------ Get start and finish correct
303: # modifies @resources
304:
305: sub startfinish {
306: foreach (@order) {
307: my ($name,$url,$ext)=split(/\:/,$resources[$_]);
1.22 ! www 308: if ($url=~/http\&colon\:\/\//) { $ext='true'; }
1.21 www 309: $resources[$_]=$name.':'.$url.':'.$ext.':normal:res';
310: }
311: my ($name,$url,$ext)=split(/\:/,$resources[0]);
312: $resources[0]=$name.':'.$url.':'.$ext.':start:res';
313: my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);
314: $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';
1.20 www 315: }
316:
1.22 ! www 317: # ------------------------------------------------------------------- Store map
! 318:
! 319: sub storemap {
! 320: my $fn=shift;
! 321: &startfinish();
! 322: my $output='graphdef<:>no';
! 323: my $k=1;
! 324: for (my $i=0; $i<=$#order; $i++) {
! 325: if (defined($resources[$order[$i]])) {
! 326: $output.='<&>objcont<:>'.$order[$i].'<:>'.$resources[$order[$i]];
! 327: }
! 328: if (defined($order[$i+1])) {
! 329: if (defined($resources[$order[$i+1]])) {
! 330: $output.='<&>objlinks<:>'.$k.'<:>'.
! 331: $order[$i].':'.$order[$i+1].':0';
! 332: $k++;
! 333: }
! 334: }
! 335: }
! 336: $output=~s/http\&colon\:\/\///g;
! 337: $ENV{'form.output'}=$output;
! 338: return
! 339: &Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,''));
! 340: }
! 341:
1.20 www 342: # ------------------------------------------------------- Simple edit processor
343:
1.3 www 344: sub smpedt {
1.22 ! www 345: my ($r,$url,$errtext)=@_;
1.8 www 346: my $buttons=&buttons(2);
1.12 www 347:
348: # ---------------------------------------------------------- Process form input
349:
350: my @importselect=();
351: my @targetselect=();
352: undef @importselect;
353: undef @targetselect;
354: if (defined($ENV{'form.import'})) {
355: if (ref($ENV{'form.import'})) {
1.13 www 356: @importselect=sort($ENV->{'form.import'});
1.12 www 357: } else {
358: @importselect=($ENV{'form.import'});
359: }
360: }
361: if (defined($ENV{'form.target'})) {
362: if (ref($ENV{'form.target'})) {
1.13 www 363: @targetselect=sort($ENV->{'form.target'});
1.12 www 364: } else {
365: @targetselect=($ENV{'form.target'});
366: }
367: }
1.13 www 368: # ============================================================ Process commands
1.12 www 369:
1.14 www 370: my $targetdetail=$ENV{'form.targetdetail'};
371: my $importdetail=$ENV{'form.curimpdetail'};
1.13 www 372:
373: # ---------------------------------------------------- Importing from groupsort
1.16 www 374: if (($ENV{'form.importdetail'}) && (!$ENV{'form.impfortarget'})) {
1.13 www 375:
1.14 www 376: $importdetail='';
1.13 www 377: my @curimport=split(/\&/,$ENV{'form.curimpdetail'});
378:
379: my $lastsel;
380:
381: if (defined($importselect[-1])) {
382: $lastsel=$importselect[-1];
383: } else {
384: $lastsel=$#curimport;
385: }
386:
387: for (my $i=0;$i<=$lastsel;$i++) {
388: my ($name,$url)=split(/\=/,$curimport[$i]);
389: if ($url) {
1.18 www 390: $importdetail.='&'.$name.'='.$url;
1.13 www 391: }
392: }
393:
394: $importdetail.='&'.$ENV{'form.importdetail'};
395:
396: for (my $i=$lastsel+1;$i<=$#curimport;$i++) {
397: my ($name,$url)=split(/\=/,$curimport[$i]);
398: if ($url) {
1.18 www 399: $importdetail.='&'.$name.'='.$url;
1.13 www 400: }
401: }
402: $importdetail=~s/\&+/\&/g;
403: $importdetail=~s/^\&//;
404:
1.14 www 405: # ------------------------------------------------------------------- Clear all
406: } elsif ($ENV{'form.clear'}) {
407: $importdetail='';
408: # ------------------------------------------------------------ Discard selected
409: } elsif ($ENV{'form.discard'}) {
410: $importdetail='';
411: my @curimport=split(/\&/,$ENV{'form.curimpdetail'});
412: foreach (@importselect) {
413: $curimport[$_]='';
414: }
415: for (my $i=0;$i<=$#curimport;$i++) {
416: my ($name,$url)=split(/\=/,$curimport[$i]);
417: if ($url) {
1.18 www 418: $importdetail.='&'.$name.'='.$url;
1.14 www 419: }
420: }
1.17 www 421: # --------------------------------------------------------- Loading another map
422: } elsif ($ENV{'form.loadmap'}) {
423: $importdetail='';
424: my @curimport=split(/\&/,$ENV{'form.curimpdetail'});
425:
426: my $lastsel;
427:
428: if (defined($importselect[-1])) {
429: $lastsel=$importselect[-1];
430: } else {
431: $lastsel=$#curimport;
432: }
433:
434: for (my $i=0;$i<=$lastsel;$i++) {
435: my ($name,$url)=split(/\=/,$curimport[$i]);
436: if ($url) {
1.18 www 437: $importdetail.='&'.$name.'='.$url;
1.17 www 438: }
439: }
440:
441: foreach (
442: &attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {
443: my ($name,$url)=split(/\:/,$_);
444: if ($url) {
445: $importdetail.='&'.&Apache::lonnet::escape($name).'='.
446: &Apache::lonnet::escape($url);
447: }
448: }
449:
450: for (my $i=$lastsel+1;$i<=$#curimport;$i++) {
451: my ($name,$url)=split(/\=/,$curimport[$i]);
452: if ($url) {
1.18 www 453: $importdetail.='&'.$name.'='.$url;
1.17 www 454: }
455: }
456: $importdetail=~s/\&+/\&/g;
457: $importdetail=~s/^\&//;
458:
1.20 www 459: # ------------------------------------------------ Groupimport/search to target
460: } elsif ($ENV{'form.importdetail'}) {
461: my $lastsel;
462:
463: if (defined($targetselect[-1])) {
464: $lastsel=$targetselect[-1];
465: } else {
466: $lastsel=$#order;
467: }
1.21 www 468: &pastetarget($lastsel,split(/\&/,$ENV{'form.importdetail'}));
1.22 ! www 469: &storemap(&Apache::lonnet::filelocation('',$url));
1.20 www 470: # ------------------------------------------------------------------------- Cut
471: } elsif ($ENV{'form.cut'}) {
472: # ----------------------------------------------------------------------- Paste
473: } elsif ($ENV{'form.paste'}) {
474: # ------------------------------------------------
1.13 www 475: }
1.12 www 476: # ------------------------------------------------------------ Assemble windows
1.20 www 477:
1.13 www 478: my $idx=-1;
479: my $importwindow=join("\n",map {
480: $idx++;
481: if ($_) {
1.15 www 482: my ($name,$url)=split(/\=/,$_);
483: unless ($name) { $name=(split(/\//,$url))[-1]; }
484: unless ($name) { $name='EMPTY'; }
1.13 www 485: '<option value="'.$idx.'">'.&Apache::lonnet::unescape($name).
486: '</option>';
487: }
488: } split(/\&/,$importdetail));
1.12 www 489:
1.13 www 490: $idx=0;
1.11 www 491: my $targetwindow=join("\n",map {
1.13 www 492: my ($name,$url)=split(/\:/,$resources[$_]);
1.15 www 493: unless ($name) { $name=(split(/\//,$url))[-1]; }
494: unless ($name) { $name='EMPTY'; }
1.13 www 495: $targetdetail.='&'.&Apache::lonnet::escape($name).'='.
496: &Apache::lonnet::escape($url);
497: $idx++;
1.20 www 498: '<option value="'.$idx.'">'.$name.'</option>';
1.11 www 499: } @order);
500:
1.8 www 501: # ----------------------------------------------------- Start simple RAT screen
1.3 www 502: $r->print(<<ENDSMPHEAD);
503: <html>
1.6 www 504: <head>
505: <script>
506: var srch;
507: var srchflag=-1; // 1 means currently open
508: // 0 means closed (but has been open)
509: // -1 means never yet opened/defined
510: var srchmode='';
511:
512: var idx;
513: var idxflag=-1; // 1 means currently open
514: // 0 means closed (but has been open)
515: // -1 means never yet opened/defined
516: var idxmode='';
517:
518: // ------------------------------------------------------ Clears indexer window
519: function idxclear() {
520: idx.document.clear();
521: }
522:
523: // ------------------------------------------------------- Clears search window
524: function srchclear() {
525: srch.document.clear();
526: }
527:
528: // ------------------------------------------------------ Closes indexer window
529: function idxclose() {
530: if (idx && !idx.closed) {
531: idxflag=0;
532: idx.close();
533: }
534: }
535:
536: // ------------------------------------------------------- Closes search window
537: function srchclose() {
538: if (srch && !srch.closed) {
539: srchflag=0;
540: srch.close();
541: }
542: }
543:
544: // -------------------------------------------------------- Open indexer window
545: function idxopen(mode) {
546: var options="scrollbars=1,resizable=1,menubar=0";
547: idxmode=mode;
548: idxflag=1;
549: idx=open("/res/?launch=1&mode=simple&catalogmode="+mode,"idxout",options);
550: idx.focus();
551: }
552:
553: // --------------------------------------------------------- Open search window
554: function srchopen(mode) {
555: var options="scrollbars=1,resizable=1,menubar=0";
556: srchmode=mode;
557: srchflag=1;
558: srch=open("/adm/searchcat?launch=1&mode=simple&catalogmode="+mode,"srchout",options);
559: srch.focus();
560: }
561: // ----------------------------------------------------- launch indexer browser
562: function groupsearch() {
563: srchcheck('groupsearch');
564: }
565:
566: function groupimport() {
567: idxcheck('groupimport');
568: }
569: // ------------------------------------------------------- Do srch status check
570: function srchcheck(mode) {
571: if (!srch || srch.closed || srchmode!=mode) {
572: srchopen(mode);
573: }
574: srch.focus();
575: }
576:
577: // -------------------------------------------------------- Do idx status check
578: function idxcheck(mode) {
579: if (!idx || idx.closed || idxmode!=mode) {
580: idxopen(mode);
581: }
582: idx.focus();
583: }
1.15 www 584:
585:
586: var editbrowser;
587: function openbrowser(formname,elementname,only,omit) {
588: var url = '/res/?';
589: if (editbrowser == null) {
590: url += 'launch=1&';
591: }
592: url += 'catalogmode=interactive&';
593: url += 'mode=edit&';
594: url += 'form=' + formname + '&';
595: if (only != null) {
596: url += 'only=' + only + '&';
597: }
598: if (omit != null) {
599: url += 'omit=' + omit + '&';
600: }
601: url += 'element=' + elementname + '';
602: var title = 'Browser';
603: var options = 'scrollbars=1,resizable=1,menubar=0';
604: options += ',width=700,height=600';
605: editbrowser = open(url,title,options,'1');
606: editbrowser.focus();
607: }
1.19 www 608:
609: function openview(entry) {
610: var url=unescape((entry.split('='))[1]);
1.20 www 611: var parts=new Array;
612: parts=url.split(':');
613: url=parts.join(':');
1.19 www 614: if (url) { open(url,'cat'); }
615: }
616:
617: function viewtarget() {
618: openview((document.forms.simpleedit.targetdetail.value.split('&'))
619: [document.forms.simpleedit.target.selectedIndex+1]);
620: }
621:
622: function viewimport() {
623: openview((document.forms.simpleedit.curimpdetail.value.split('&'))
624: [document.forms.simpleedit.import.selectedIndex+1]);
625: }
626:
1.6 www 627: </script>
628: </head>
1.3 www 629: <body bgcolor='#FFFFFF'>
1.8 www 630: $buttons
1.7 www 631: <font color=red>$errtext</font>
1.13 www 632: <form name=simpleedit method=post>
1.11 www 633: <input type=hidden name=forcesmp value=1>
634: <table>
1.12 www 635: <tr><th width="40%">Import</th>
636: <th> </th>
637: <th width="40%">Target</th></tr>
638: <tr><td bgcolor="#FFFFCC">
639: <input type=button onClick="javascript:groupsearch()" value="Group Search">
1.13 www 640: <input type=button onClick="javascript:groupimport();" value="Group Import">
1.15 www 641: after selected
1.14 www 642: <hr>
1.15 www 643: <input type=text size=20 name=importmap>
644: <input type=button
645: onClick="javascript:openbrowser('simpleedit','importmap','sequence,page','')"
646: value="Browse"><input type=submit name=loadmap value="Load Map"><hr>
1.14 www 647: <input type=submit name="discard" value="Discard Selected">
648: <input type=submit name="clear" value="Clear All">
1.12 www 649: <input type=button onClick="javascript:viewimport()" value="View">
1.16 www 650:
1.12 www 651: </td><td> </td><td bgcolor="#FFFFCC">
1.16 www 652:
653: <input type=button onClick=
654: "javascript:impfortarget.value=1;groupsearch()" value="Group Search">
655: <input type=button onClick=
656: "javascript:impfortarget.value=1;groupimport();" value="Group Import">
657: after selected
658: <hr><input type=button onClick="javascript:viewtarget()" value="View">
1.12 www 659: </td></tr>
1.16 www 660:
1.12 www 661: <tr><td bgcolor="#FFFFCC"><select name="import" multiple>
662: $importwindow
663: </select>
1.11 www 664: </td>
1.12 www 665: <td bgcolor="#FFFFAA" align="center">
666: Cut selected<br>
1.11 www 667: <input type=submit name=cut value='<<<'><p>
1.12 www 668: <hr>
669: Paste after selected<br>
1.11 www 670: <input type=submit name=paste value='>>>'>
671: </td>
1.12 www 672: <td bgcolor="#FFFFCC"><select name="target" multiple>
1.11 www 673: $targetwindow
674: </select>
1.12 www 675: </table>
1.13 www 676: <input type=hidden name=importdetail value="">
677: <input type=hidden name=curimpdetail value="$importdetail">
1.12 www 678: <input type=hidden name=targetdetail value="$targetdetail">
1.16 www 679: <input type=hidden name=impfortarget value="0">
1.12 www 680: </form>
681: </body></html>
1.3 www 682: ENDSMPHEAD
683: }
684:
1.11 www 685: # ----------------------------------------------------------------- No such dir
1.4 www 686: sub nodir {
687: my ($r,$dir)=@_;
688: $dir=~s/^\/home\/\w+\/public\_html//;
689: $r->print(<<ENDNODIR);
690: <html>
691: <body bgcolor='#FFFFFF'>
692: <h1>No such directory: $dir</h1>
693: </body>
694: </html>
695: ENDNODIR
696: }
697:
1.8 www 698: # ---------------------------------------------------------------- View Handler
699:
700: sub viewmap {
1.17 www 701: my ($r,$url,$adv,$errtext)=@_;
1.8 www 702: $r->print('<html><body bgcolor="#FFFFFF">'.&buttons($adv));
1.10 www 703: if ($errtext) {
704: $r->print($errtext.'<hr>');
705: }
1.17 www 706: foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {
1.9 www 707: if (defined($_)) {
708: my ($title,$url)=split(/\:/,$_);
709: $title=~s/\&colon\;/\:/g;
710: $url=~s/\&colon\;/\:/g;
1.15 www 711: unless ($title) { $title=(split(/\//,$url))[-1] };
712: unless ($title) { $title='<i>Empty</i>'; }
1.9 www 713: if ($url) {
714: $r->print('<a href="'.&Apache::lonratsrv::qtescape($url).'">');
715: }
716: $r->print(&Apache::lonratsrv::qtescape($title));
717: if ($url) { $r->print('</a>'); }
718: $r->print('<br>');
719: }
720: }
1.8 www 721: $r->print('</body></html>');
722: }
723:
1.3 www 724: # ================================================================ Main Handler
725:
726: sub handler {
727: my $r=shift;
728: $r->content_type('text/html');
729: $r->send_http_header;
730:
731: return OK if $r->header_only;
732:
733: my $url=$r->uri;
734: my $fn=&Apache::lonnet::filelocation('',$url);
735:
1.4 www 736: my ($dir)=($fn=~/^(.+)\/[^\/]+$/);
737: unless (-e $dir) {
738: &nodir($r,$dir);
739: return OK;
740: }
1.8 www 741:
742: # ------------------------------------------- Determine which tools can be used
1.3 www 743: my $adv=0;
744:
745: unless ($ENV{'form.forcesmp'}) {
746: if ($ENV{'form.forceadv'}) {
747: $adv=1;
748: } elsif (my $fh=Apache::File->new($fn)) {
749: my $allmap=join('',<$fh>);
750: $adv=($allmap=~/\<map[^\>]+mode\s*\=\s*(\'|\")rat/is);
751: }
752: }
753:
1.8 www 754: my $errtext='';
755: my $fatal=0;
756:
757: # -------------------------------------------------------------------- Load map
758: ($errtext,$fatal)=&mapread($fn,$errtext);
759:
760: if ($fatal==1) { $adv=1; }
761:
762: # ----------------------------------- adv==1 now means "graphical MUST be used"
763:
764: if ($ENV{'form.forceadv'}) {
1.3 www 765: &ratedt($r,$url);
1.8 www 766: } elsif ($ENV{'form.forcesmp'}) {
1.22 ! www 767: &smpedt($r,$url,$errtext);
1.3 www 768: } else {
1.17 www 769: &viewmap($r,$url,$adv,$errtext);
1.3 www 770: }
1.1 www 771: return OK;
772: }
773:
774: 1;
775: __END__
776:
777:
778:
779:
780:
781:
782:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonratedt.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat