Annotation of rat/lonratedt.pm, revision 1.13
1.1 www 1: # The LearningOnline Network with CAPA
2: # Edit Handler for RAT Maps
1.5 www 3: #
1.13 ! www 4: # $Id: lonratedt.pm,v 1.12 2002/05/13 15:36:05 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.3 www 129: # --------------------------------------------------------- Build up RAT screen
130: sub ratedt {
131: my ($r,$url)=@_;
1.1 www 132: $r->print(<<ENDDOCUMENT);
133:
134: <html>
1.2 harris41 135: <head>
136: <script language="JavaScript">
137: var flag=0;
138: </script>
139: </head>
1.1 www 140: <frameset rows="1,50,*" border=0>
141: <frame name=server src="$url/loadonly/ratserver" noresize noscroll>
142: <frame name=code src="/adm/rat/code.html">
143: <frame name=mapout src="/adm/rat/map.html">
144: </frameset>
145: </html>
146:
147: ENDDOCUMENT
1.3 www 148: }
149:
1.8 www 150: # ---------------------------------------------------------------- Make buttons
151:
152: sub buttons {
153: my $adv=shift;
154: my $output='<form method=post>';
155: if ($adv==1) {
156: $output.='<input type=submit name=forceadv value="Edit">';
157: } else {
158: unless ($adv==2) {
159: $output.='<input type=submit name=forcesmp value="Simple Edit">';
160: }
161: $output.='<input type=submit name=forceadv value="Advanced Edit">';
162: }
163: return $output.'</form><hr>';
164: }
165:
1.3 www 166: sub smpedt {
1.8 www 167: my ($r,$errtext)=@_;
168: my $buttons=&buttons(2);
1.12 www 169:
170: # ---------------------------------------------------------- Process form input
171:
172: my @importselect=();
173: my @targetselect=();
174: undef @importselect;
175: undef @targetselect;
176: if (defined($ENV{'form.import'})) {
177: if (ref($ENV{'form.import'})) {
1.13 ! www 178: @importselect=sort($ENV->{'form.import'});
1.12 www 179: } else {
180: @importselect=($ENV{'form.import'});
181: }
182: }
183: if (defined($ENV{'form.target'})) {
184: if (ref($ENV{'form.target'})) {
1.13 ! www 185: @targetselect=sort($ENV->{'form.target'});
1.12 www 186: } else {
187: @targetselect=($ENV{'form.target'});
188: }
189: }
1.13 ! www 190: # ============================================================ Process commands
1.12 www 191:
1.13 ! www 192: my $targetdetail='';
! 193: my $importdetail='';
! 194:
! 195: # ---------------------------------------------------- Importing from groupsort
! 196: if ($ENV{'form.importdetail'}) {
! 197:
! 198: my @curimport=split(/\&/,$ENV{'form.curimpdetail'});
! 199:
! 200: my $lastsel;
! 201:
! 202: if (defined($importselect[-1])) {
! 203: $lastsel=$importselect[-1];
! 204: } else {
! 205: $lastsel=$#curimport;
! 206: }
! 207:
! 208: for (my $i=0;$i<=$lastsel;$i++) {
! 209: my ($name,$url)=split(/\=/,$curimport[$i]);
! 210: if ($url) {
! 211: $importdetail.='&'.&Apache::lonnet::escape($name).'='.
! 212: &Apache::lonnet::escape($url);
! 213: }
! 214: }
! 215:
! 216: $importdetail.='&'.$ENV{'form.importdetail'};
! 217:
! 218: for (my $i=$lastsel+1;$i<=$#curimport;$i++) {
! 219: my ($name,$url)=split(/\=/,$curimport[$i]);
! 220: if ($url) {
! 221: $importdetail.='&'.&Apache::lonnet::escape($name).'='.
! 222: &Apache::lonnet::escape($url);
! 223: }
! 224: }
! 225: $importdetail=~s/\&+/\&/g;
! 226: $importdetail=~s/^\&//;
! 227:
! 228: # --------------------------------------------------------
! 229: }
1.12 www 230:
231: # ------------------------------------------------------------ Assemble windows
232:
1.13 ! www 233: my $idx=-1;
! 234: my $importwindow=join("\n",map {
! 235: $idx++;
! 236: if ($_) {
! 237: my ($name)=split(/\=/,$_);
! 238: unless ($name) { $name='UNKNOWN'; }
! 239: '<option value="'.$idx.'">'.&Apache::lonnet::unescape($name).
! 240: '</option>';
! 241: }
! 242: } split(/\&/,$importdetail));
1.12 www 243:
1.13 ! www 244: $idx=0;
1.11 www 245: my $targetwindow=join("\n",map {
1.13 ! www 246: my ($name,$url)=split(/\:/,$resources[$_]);
1.11 www 247: unless ($name) { $name='UNKNOWN'; }
1.13 ! www 248: $targetdetail.='&'.&Apache::lonnet::escape($name).'='.
! 249: &Apache::lonnet::escape($url);
! 250: $idx++;
! 251: '<option value="'.$idx.'_'.$_.'">'.$name.'</option>';
1.11 www 252: } @order);
253:
1.8 www 254: # ----------------------------------------------------- Start simple RAT screen
1.3 www 255: $r->print(<<ENDSMPHEAD);
256: <html>
1.6 www 257: <head>
258: <script>
259: var srch;
260: var srchflag=-1; // 1 means currently open
261: // 0 means closed (but has been open)
262: // -1 means never yet opened/defined
263: var srchmode='';
264:
265: var idx;
266: var idxflag=-1; // 1 means currently open
267: // 0 means closed (but has been open)
268: // -1 means never yet opened/defined
269: var idxmode='';
270:
271: // ------------------------------------------------------ Clears indexer window
272: function idxclear() {
273: idx.document.clear();
274: }
275:
276: // ------------------------------------------------------- Clears search window
277: function srchclear() {
278: srch.document.clear();
279: }
280:
281: // ------------------------------------------------------ Closes indexer window
282: function idxclose() {
283: if (idx && !idx.closed) {
284: idxflag=0;
285: idx.close();
286: }
287: }
288:
289: // ------------------------------------------------------- Closes search window
290: function srchclose() {
291: if (srch && !srch.closed) {
292: srchflag=0;
293: srch.close();
294: }
295: }
296:
297: // -------------------------------------------------------- Open indexer window
298: function idxopen(mode) {
299: var options="scrollbars=1,resizable=1,menubar=0";
300: idxmode=mode;
301: idxflag=1;
302: idx=open("/res/?launch=1&mode=simple&catalogmode="+mode,"idxout",options);
303: idx.focus();
304: }
305:
306: // --------------------------------------------------------- Open search window
307: function srchopen(mode) {
308: var options="scrollbars=1,resizable=1,menubar=0";
309: srchmode=mode;
310: srchflag=1;
311: srch=open("/adm/searchcat?launch=1&mode=simple&catalogmode="+mode,"srchout",options);
312: srch.focus();
313: }
314: // ----------------------------------------------------- launch indexer browser
315: function groupsearch() {
316: srchcheck('groupsearch');
317: }
318:
319: function groupimport() {
320: idxcheck('groupimport');
321: }
322: // ------------------------------------------------------- Do srch status check
323: function srchcheck(mode) {
324: if (!srch || srch.closed || srchmode!=mode) {
325: srchopen(mode);
326: }
327: srch.focus();
328: }
329:
330: // -------------------------------------------------------- Do idx status check
331: function idxcheck(mode) {
332: if (!idx || idx.closed || idxmode!=mode) {
333: idxopen(mode);
334: }
335: idx.focus();
336: }
337: </script>
338: </head>
1.3 www 339: <body bgcolor='#FFFFFF'>
1.8 www 340: $buttons
1.7 www 341: <font color=red>$errtext</font>
1.13 ! www 342: <form name=simpleedit method=post>
1.11 www 343: <input type=hidden name=forcesmp value=1>
344: <table>
1.12 www 345: <tr><th width="40%">Import</th>
346: <th> </th>
347: <th width="40%">Target</th></tr>
348: <tr><td bgcolor="#FFFFCC">
349: <input type=button onClick="javascript:groupsearch()" value="Group Search">
1.13 ! www 350: <input type=button onClick="javascript:groupimport();" value="Group Import">
1.12 www 351: <input type=button onClick="javascript:viewimport()" value="View">
352: </td><td> </td><td bgcolor="#FFFFCC">
353: <input type=button onClick="javascript:viewtarget()" value="View">
354: </td></tr>
355: <tr><td bgcolor="#FFFFCC"><select name="import" multiple>
356: $importwindow
357: </select>
1.11 www 358: </td>
1.12 www 359: <td bgcolor="#FFFFAA" align="center">
360: Cut selected<br>
1.11 www 361: <input type=submit name=cut value='<<<'><p>
1.12 www 362: <hr>
363: Paste after selected<br>
1.11 www 364: <input type=submit name=paste value='>>>'>
365: </td>
1.12 www 366: <td bgcolor="#FFFFCC"><select name="target" multiple>
1.11 www 367: $targetwindow
368: </select>
1.12 www 369: </table>
1.13 ! www 370: <input type=hidden name=importdetail value="">
! 371: <input type=hidden name=curimpdetail value="$importdetail">
1.12 www 372: <input type=hidden name=targetdetail value="$targetdetail">
373: </form>
374: </body></html>
1.3 www 375: ENDSMPHEAD
376: }
377:
1.11 www 378: # ----------------------------------------------------------------- No such dir
1.4 www 379: sub nodir {
380: my ($r,$dir)=@_;
381: $dir=~s/^\/home\/\w+\/public\_html//;
382: $r->print(<<ENDNODIR);
383: <html>
384: <body bgcolor='#FFFFFF'>
385: <h1>No such directory: $dir</h1>
386: </body>
387: </html>
388: ENDNODIR
389: }
390:
1.8 www 391: # ---------------------------------------------------------------- View Handler
392:
393: sub viewmap {
1.10 www 394: my ($r,$adv,$errtext)=@_;
1.8 www 395: $r->print('<html><body bgcolor="#FFFFFF">'.&buttons($adv));
1.10 www 396: if ($errtext) {
397: $r->print($errtext.'<hr>');
398: }
1.9 www 399: foreach (@resources) {
400: if (defined($_)) {
401: my ($title,$url)=split(/\:/,$_);
402: $title=~s/\&colon\;/\:/g;
403: $url=~s/\&colon\;/\:/g;
404: unless ($title) { $title='<i>Unknown</i>'; }
405: if ($url) {
406: $r->print('<a href="'.&Apache::lonratsrv::qtescape($url).'">');
407: }
408: $r->print(&Apache::lonratsrv::qtescape($title));
409: if ($url) { $r->print('</a>'); }
410: $r->print('<br>');
411: }
412: }
1.8 www 413: $r->print('</body></html>');
414: }
415:
1.3 www 416: # ================================================================ Main Handler
417:
418: sub handler {
419: my $r=shift;
420: $r->content_type('text/html');
421: $r->send_http_header;
422:
423: return OK if $r->header_only;
424:
425: my $url=$r->uri;
426: my $fn=&Apache::lonnet::filelocation('',$url);
427:
1.4 www 428: my ($dir)=($fn=~/^(.+)\/[^\/]+$/);
429: unless (-e $dir) {
430: &nodir($r,$dir);
431: return OK;
432: }
1.8 www 433:
434: # ------------------------------------------- Determine which tools can be used
1.3 www 435: my $adv=0;
436:
437: unless ($ENV{'form.forcesmp'}) {
438: if ($ENV{'form.forceadv'}) {
439: $adv=1;
440: } elsif (my $fh=Apache::File->new($fn)) {
441: my $allmap=join('',<$fh>);
442: $adv=($allmap=~/\<map[^\>]+mode\s*\=\s*(\'|\")rat/is);
443: }
444: }
445:
1.8 www 446: my $errtext='';
447: my $fatal=0;
448:
449: # -------------------------------------------------------------------- Load map
450: ($errtext,$fatal)=&mapread($fn,$errtext);
451:
452: if ($fatal==1) { $adv=1; }
453:
454: # ----------------------------------- adv==1 now means "graphical MUST be used"
455:
456: if ($ENV{'form.forceadv'}) {
1.3 www 457: &ratedt($r,$url);
1.8 www 458: } elsif ($ENV{'form.forcesmp'}) {
459: &smpedt($r,$errtext);
1.3 www 460: } else {
1.10 www 461: &viewmap($r,$adv,$errtext);
1.3 www 462: }
1.1 www 463: return OK;
464: }
465:
466: 1;
467: __END__
468:
469:
470:
471:
472:
473:
474:
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