[BACK]Return to lonratedt.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.86 and 1.94

version 1.86, 2006/12/20 22:42:48 version 1.94, 2009/04/23 17:31:25
Line 29 Line 29
   
 package Apache::lonratedt;  package Apache::lonratedt;
   
 =pod  
   
 =head1 NAME  
   
 Apache::lonratedt: simple resource assembly tool  
   
 =head1 SYNOPSIS  
   
 lonratedt provides the routines and the handler for the Advanced  
     Resource Assembly Tool (RAT), and ties the various pieces together  
     with Javascript.  
   
 =head1 OVERVIEW  
   
 =head2 Map Representation  
   
 =begin latex  
   
 %  
 \begin{figure}  
 \begin{center}\includegraphics[%  
   width=0.55\paperwidth,bb = 0 0 200 100, draft, type=eps]{Map_Example}\end{center}  
   
   
 \caption{\label{Map_In_Advanced_Editor}Example of a Map in the Advanced Editor}  
 \end{figure}  
 %  
 \begin{figure}  
 \begin{lyxcode}  
 <map>  
   
 ~~<resource~id=\char`\"{}1\char`\"{}  
   
 ~~~~src=\char`\"{}/res/msu/korte/phy231welcome.html\char`\"{}  
   
 ~~~~type=\char`\"{}start\char`\"{}  
   
 ~~~~title=\char`\"{}Start\char`\"{}>  
   
 ~~~~</resource>  
   
 ~~<resource~id=\char`\"{}2\char`\"{}  
   
 ~~~~src=\char`\"{}\char`\"{}~type=\char`\"{}finish\char`\"{}  
   
 ~~~~title=\char`\"{}Finish\char`\"{}>  
   
 ~~~~</resource>  
   
 ~~<resource~id=\char`\"{}6\char`\"{}  
   
 ~~~~src=\char`\"{}/res/msu/korte/tests/units.problem\char`\"{}  
   
 ~~~~type=\char`\"{}mandatory\char`\"{}  
   
 ~~~~title=\char`\"{}Physical~Units~Test\char`\"{}>  
   
 ~~~~</resource>  
   
 ~~<resource~id=\char`\"{}9\char`\"{}  
   
 ~~~~src=\char`\"{}/res/msu/korte/chapters/onedim.sequence\char`\"{}  
   
 ~~~~title=\char`\"{}Motion~in~One~Dimension\char`\"{}>  
   
 ~~~~</resource>  
   
 ~~<resource~id=\char`\"{}11\char`\"{}  
   
 ~~~~src=\char`\"{}/res/msu/bauer/bridges/units.sequence\char`\"{}  
   
 ~~~~title=\char`\"{}Physical~Units~Refresher\char`\"{}>  
   
 ~~~~</resource>  
   
 ~~<condition~id=\char`\"{}19\char`\"{}  
   
 ~~~~type=\char`\"{}stop\char`\"{}  
   
 ~~~~value=\char`\"{}user.assessments{[}this./res/msu/korte/tests/units.problem{]}.status=solved\char`\"{}>  
   
 ~~~~</condition>  
   
 ~~<link~from=\char`\"{}1\char`\"{}~to=\char`\"{}6\char`\"{}></link>  
   
 ~~<link~from=\char`\"{}6\char`\"{}~to=\char`\"{}9\char`\"{}~condition=\char`\"{}19\char`\"{}></link>  
   
 ~~<link~from=\char`\"{}6\char`\"{}~to=\char`\"{}11\char`\"{}></link>  
   
 ~~<link~from=\char`\"{}11\char`\"{}~to=\char`\"{}6\char`\"{}></link>  
   
 ~~</map>  
 \end{lyxcode}  
   
 \caption{\label{XML}XML for Map in Figure \ref{Map_In_Advanced_Editor}}  
 \end{figure}  
   
 =end latex  
   
 Fig. "XML for Map in Figure" shows the XML representation of the  
 resource map shown in Fig. "Example of a Map in the Advanced Editor",  
 which is the format in which maps are stored. In the figure, however,  
 additional graphical map layout information generated by the Advanced  
 Resource Assembly Tool is not displayed. This graphical information is  
 optional to re-generate the same graphical layout when the map is  
 brought up again in the Resource Assembly Tool, and is not needed for  
 any other system functionality.  
   
 Maps can be generated by tools other than the Resource Assembly  
 Tool. In particular, an author might have some other representation of  
 a course sequence, which can be converted into a map using scripts. If  
 this map then were to be brought up in the Resource Assembly Tool, the  
 Tool would automatically generate a graphical layout for it. Each  
 entry of the map (resources, conditions and links) is stored in a  
 separate tag.  
   
 Resources and conditionsX<conditions> have to have unique ID  
 numbers. These numbers are automatically generated by the Resource  
 Assembly Tool when the entry is first created, or added to the entries  
 when a map generated outside the Resource Assembly Tool is first  
 retrieved. They can also be assigned by custom scripts or added in by  
 hand.  
   
 In the XML example, entry 1 is the start resource of the map. When  
 this map is accessed, the source (src) URL of this tag will be the  
 first resource rendered. Entry 2 is the finish resource of this  
 map. This resource will be the last resource in the sequence of  
 resources. Entry 6 is a problem resource with the given URL and title,  
 as well as the priority "mandatory". Entry 19 is a condition, which is  
 used by the link between entries 6, the problem, and 9, a  
 sequence. I<The final syntax for conditions has not yet been  
 determined.>  
   
 =cut  
   
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonnet;  use Apache::lonnet;
Line 173  use Apache::lonlocal; Line 38  use Apache::lonlocal;
 use LONCAPA::map();  use LONCAPA::map();
 use File::Copy;  use File::Copy;
 use LONCAPA;  use LONCAPA;
   use HTML::Entities();
   
 # --------------------------------------------------------- Build up RAT screen  # --------------------------------------------------------- Build up RAT screen
 sub ratedt {  sub ratedt {
Line 210  ENDDOCUMENT Line 75  ENDDOCUMENT
   
 sub buttons {  sub buttons {
     my $adv=shift;      my $adv=shift;
     my $output='<form method=post>';           my $output='<form method="post">';     
     if ($adv==1) {      if ($adv==1) {
  $output.='<input type=submit name=forceadv value="'.&mt('Edit').'">'.   $output.='<input type="submit" name="forceadv" value="'.&mt('Edit').'" />'.
     &Apache::loncommon::help_open_topic('Sequence_Advanced_Editor_Creation');;      &Apache::loncommon::help_open_topic('Sequence_Advanced_Editor_Creation');
     } else {      } else {
         unless ($adv==2) {          unless ($adv==2) {
            $output.='<input type=submit name=forcesmp value="'.&mt('Simple Edit').'">'.             $output.='<input type="submit" name="forcesmp" value="'.&mt('Simple Edit').'" />'.
     &Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation');      &Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation');
         }          }
  $output.='<input type=submit name=forceadv value="'.&mt('Advanced Edit').'">'.   $output.='<input type="submit" name="forceadv" value="'.&mt('Advanced Edit').'" />'.
     &Apache::loncommon::help_open_topic('Sequence_Advanced_Editor_Creation');      &Apache::loncommon::help_open_topic('Sequence_Advanced_Editor_Creation');
     }      }
     return $output.'</form><hr>';      return $output.'</form><hr />';
 }  }
   
 # ----------------------------------------------------------------- Edit script  # ----------------------------------------------------------------- Edit script
Line 274  function idxopen(mode) { Line 139  function idxopen(mode) {
    var options="scrollbars=1,resizable=1,menubar=0,location=1,toolbar=1";     var options="scrollbars=1,resizable=1,menubar=0,location=1,toolbar=1";
    idxmode=mode;     idxmode=mode;
    idxflag=1;     idxflag=1;
    idx=open('$resurl/?launch=1&mode=$mode&catalogmode='+mode,'idxout',options);     idx=open('$resurl/?inhibitmenu=yes&launch=1&mode=$mode&catalogmode='+mode,'idxout',options);
    idx.focus();     idx.focus();
 }  }
   
Line 282  function idxopen(mode) { Line 147  function idxopen(mode) {
 function groupopen(url,recover,bookmarks) {  function groupopen(url,recover,bookmarks) {
    var options="scrollbars=1,resizable=1,menubar=0";     var options="scrollbars=1,resizable=1,menubar=0";
    idxflag=1;     idxflag=1;
    idx=open("/adm/groupsort?mode=$mode&recover="+recover+"&readfile="+url+"&bookmarks="+bookmarks,"idxout",options);     idx=open("/adm/groupsort?inhibitmenu=yes&mode=$mode&recover="+recover+"&readfile="+url+"&bookmarks="+bookmarks,"idxout",options);
    idx.focus();     idx.focus();
 }  }
   
Line 291  function srchopen(mode) { Line 156  function srchopen(mode) {
    var options="scrollbars=1,resizable=1,menubar=0";     var options="scrollbars=1,resizable=1,menubar=0";
    srchmode=mode;     srchmode=mode;
    srchflag=1;     srchflag=1;
    srch=open("/adm/searchcat?launch=1&mode=$mode&catalogmode="+mode,"srchout",options);     srch=open("/adm/searchcat?inhibitmenu=yes&launch=1&mode=$mode&catalogmode="+mode,"srchout",options);
    srch.focus();     srch.focus();
 }  }
 // ----------------------------------------------------- launch indexer browser  // ----------------------------------------------------- launch indexer browser
Line 326  function idxcheck(mode) { Line 191  function idxcheck(mode) {
         if (editbrowser == null) {          if (editbrowser == null) {
             url += 'launch=1&';              url += 'launch=1&';
         }          }
           url += 'inhibitmenu=yes&';
         url += 'catalogmode=interactive&';          url += 'catalogmode=interactive&';
         url += 'mode=edit&';          url += 'mode=edit&';
         url += 'form=' + formname + '&';          url += 'form=' + formname + '&';
Line 359  sub smpedt { Line 225  sub smpedt {
        unless ($fatal) {         unless ($fatal) {
    $targetmsg='<b>'.&mt('Saved.').'</b><br />';     $targetmsg='<b>'.&mt('Saved.').'</b><br />';
        } else {         } else {
    $targetmsg='<b>'.&mt('An error occured while saving.').'</b><br />';     $targetmsg='<b>'.&mt('An error occurred while saving.').'</b><br />';
        }         }
    }     }
    if ($env{'form.revert'}) {     if ($env{'form.revert'}) {
Line 370  sub smpedt { Line 236  sub smpedt {
    }     }
    if (-e $tmpfn) {     if (-e $tmpfn) {
       $targetmsg=        $targetmsg=
         '<b><font color="red">'.&mt('You are working with an unsaved version of your map.').'</font></b><br>';          '<span class="LC_warning">'.&mt('You are working with an unsaved version of your map.').'</span><br />';
       my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,'');        my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,'');
    }     }
 # ---------------------------------------------------------- Process form input  # ---------------------------------------------------------- Process form input
Line 602  sub smpedt { Line 468  sub smpedt {
        my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$_]);         my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$_]);
        unless ($name) {  $name=(split(/\//,$url))[-1]; }         unless ($name) {  $name=(split(/\//,$url))[-1]; }
        unless ($name) { $name='EMPTY'; }         unless ($name) { $name='EMPTY'; }
          $name = &LONCAPA::map::qtescape($name);
          $url  = &LONCAPA::map::qtescape($url);
        $targetdetail.='&'.&escape($name).'='.         $targetdetail.='&'.&escape($name).'='.
                   &escape($url);                    &escape($url);
        $idx++;         $idx++;
        $name=~s/\&colon;/\:/g;         $name = &HTML::Entities::encode($name,'\'"<>&');
        '<option value="'.$idx.'">'.$name.'</option>';         '<option value="'.$idx.'">'.$name.'</option>';
    } @LONCAPA::map::order);     } @LONCAPA::map::order);
   
Line 642  sub smpedt { Line 510  sub smpedt {
    function openview(entry) {     function openview(entry) {
        var url=unescape((entry.split('='))[1]);         var url=unescape((entry.split('='))[1]);
        var parts=new Array;         var parts=new Array;
        parts=url.split('&colon;');  
        url=parts.join(':');  
        if (url) { open(url,'cat'); }         if (url) { open(url,'cat'); }
    }     }
   
Line 662  sub smpedt { Line 528  sub smpedt {
        var entry=(document.forms.simpleedit.targetdetail.value.split('&'))         var entry=(document.forms.simpleedit.targetdetail.value.split('&'))
                 [selidx];                  [selidx];
        var oldname=unescape((entry.split('='))[0]);         var oldname=unescape((entry.split('='))[0]);
        var nameparts=oldname.split('&colon;');  
        oldname=unescape(nameparts.join(':'));  
        nameparts=oldname.split('&#34;');  
        oldname=unescape(nameparts.join('"'));  
        nameparts=oldname.split('&#39;');  
        oldname=unescape(nameparts.join("'"));  
        newtitle=prompt('$lt{'nt'}',oldname);         newtitle=prompt('$lt{'nt'}',oldname);
        if (newtitle) {         if (newtitle) {
            document.forms.simpleedit.renameres.value=1;             document.forms.simpleedit.renameres.value=1;
Line 689  ENDJS Line 549  ENDJS
     $r->print(<<ENDSMPHEAD);      $r->print(<<ENDSMPHEAD);
 $start_page  $start_page
 $buttons  $buttons
 <font color=red>$errtext</font>  <span class="LC_error">$errtext</span>
 <form name=simpleedit method=post>  <form name="simpleedit" method="post">
 <input type=hidden name=forcesmp value=1>  <input type="hidden" name="forcesmp" value="1" />
 <input type=hidden name=renameres value=0>  <input type="hidden" name="renameres" value="0" />
 <input type=hidden name=renametitle value=''>  <input type="hidden" name="renametitle" value="" />
 <input type=hidden name=renameidx value=0>  <input type="hidden" name="renameidx" value="0" />
 <table>  <table>
     <tr><th width="40%">$lt{'ta'}</th>      <tr><th width="40%">$lt{'ta'}</th>
 <th>&nbsp;</th>  <th>&nbsp;</th>
 <th width="40%">File: $url</th></tr>  <th width="40%">File: $url</th></tr>
 <tr><td bgcolor="#FFFFCC">  <tr><td bgcolor="#FFFFCC">
 <input type=button onClick="javascript:groupsearch()" value="$lt{'se'}">  <input type="button" onClick="javascript:groupsearch()" value="$lt{'se'}" />
 <input type=button onClick="javascript:groupimport();" value="$lt{'im'}">  <input type="button" onClick="javascript:groupimport();" value="$lt{'im'}" />
 $lt{'as'}  $lt{'as'}
 <hr>  <hr />
 <input type=text size=20 name=importmap>  <input type="text" size="20" name="importmap" />
 <input type=button   <input type="button" 
 onClick="javascript:openbrowser('simpleedit','importmap','sequence,page','')"  onClick="javascript:openbrowser('simpleedit','importmap','sequence,page','')"
 value="Select Map"><input type=submit name=loadmap value="$lt{'lm'}"><hr>  value="Select Map" /><input type="submit" name="loadmap" value="$lt{'lm'}" /><hr />
 <input type=submit name="discard" value="$lt{'ds'}">  <input type="submit" name="discard" value="$lt{'ds'}" />
 <input type=submit name="clear" value="$lt{'ca'}">  <input type="submit" name="clear" value="$lt{'ca'}" />
 <input type=button onClick="javascript:viewimport()" value="$lt{'vi'}">  <input type="button" onClick="javascript:viewimport()" value="$lt{'vi'}" />
   
     </td><td>&nbsp;</td><td bgcolor="#FFFFCC">      </td><td>&nbsp;</td><td bgcolor="#FFFFCC">
   
 <input type=button onClick=  <input type="button" onClick=
 "javascript:impfortarget.value=1;groupsearch()" value="$lt{'se'}">  "javascript:impfortarget.value=1;groupsearch()" value="$lt{'se'}" />
 <input type=button onClick=  <input type="button" onClick=
 "javascript:impfortarget.value=1;groupimport();" value="$lt{'im'}">  "javascript:impfortarget.value=1;groupimport();" value="$lt{'im'}" />
 <input type=button onClick=  <input type="button" onClick=
 "javascript:impfortarget.value=1;groupopen(0,1,1);" value="$lt{'bk'}">  "javascript:impfortarget.value=1;groupopen(0,1,1);" value="$lt{'bk'}" />
 <input type=button onClick=  <input type="button" onClick=
 "javascript:impfortarget.value=1;groupopen('$url',1,0);" value="$lt{'reco'}">  "javascript:impfortarget.value=1;groupopen('$url',1,0);" value="$lt{'reco'}" />
 $lt{'as'}  $lt{'as'}
 <hr>  <hr />
 <input type=submit name="moveup" value="$lt{'mu'}">  <input type="submit" name="moveup" value="$lt{'mu'}" />
 <input type=submit name="movedown" value="$lt{'md'}">  <input type="submit" name="movedown" value="$lt{'md'}" />
 <input type=button onClick="javascript:renametarget()" value="$lt{'re'}">  <input type="button" onClick="javascript:renametarget()" value="$lt{'re'}" />
 <hr>$targetmsg  <hr />$targetmsg
 <input type=submit name="revert" value="$lt{'rv'}">  <input type="submit" name="revert" value="$lt{'rv'}" />
 <input type=submit name="save" value="$lt{'sa'}">  <input type="submit" name="save" value="$lt{'sa'}" />
 <input type=button onClick="javascript:viewtarget()" value="$lt{'vi'}">  <input type="button" onClick="javascript:viewtarget()" value="$lt{'vi'}" />
 </td></tr>  </td></tr>
   
 <tr><td bgcolor="#FFFFCC"><select name="importsel" size=10 multiple>  <tr><td bgcolor="#FFFFCC"><select name="importsel" size="10" multiple="multiple">
 $importwindow  $importwindow
 </select>  </select>
 </td>  </td>
 <td bgcolor="#FFFFAA" align="center">  <td bgcolor="#FFFFAA" align="center">
 $lt{'cs'}<br>  $lt{'cs'}<br />
 <input type=submit name=cut value='<<<'><p>  <input type="submit" name="cut" value="<<<" /><p>
 <hr>  <hr />
 $lt{'ps'}<br>  $lt{'ps'}<br />
 <input type=submit name=copy value='<--'><p>  <input type="submit" name="copy" value="<--" /><p>
 <hr>  <h /r>
 $lt{'pas'}<br>  $lt{'pas'}<br />
 <input type=submit name=paste value='-->'>  <input type="submit" name="paste" value="-->" />
 </td>  </td>
 <td bgcolor="#FFFFCC"><select name="target" size=10 multiple>  <td bgcolor="#FFFFCC"><select name="target" size="10" multiple="multiple">
 $targetwindow  $targetwindow
 </select>  </select>
 </table>  </table>
 <input type=hidden name=importdetail value="">  <input type="hidden" name="importdetail" value="" />
 <input type=hidden name=curimpdetail value="$importdetail">  <input type="hidden" name="curimpdetail" value="$importdetail" />
 <input type=hidden name=targetdetail value="$targetdetail">  <input type="hidden" name="targetdetail" value="$targetdetail" />
 <input type=hidden name=impfortarget value="0">  <input type="hidden" name="impfortarget" value="0" />
 </form>  </form>
 $end_page  $end_page
 ENDSMPHEAD  ENDSMPHEAD
Line 780  sub viewmap { Line 640  sub viewmap {
       &Apache::loncommon::help_open_menu('','',6,'RAT').        &Apache::loncommon::help_open_menu('','',6,'RAT').
       &buttons($adv));        &buttons($adv));
     if ($errtext) {      if ($errtext) {
  $r->print($errtext.'<hr />');   $r->print('<div class="LC_error">'
                    .$errtext
                    .'</div>'
                    .'<hr />'
           );
     }      }
     my $idx=0;      my $idx=0;
     $r->print('<h1>'.$url.'</h1>');      $r->print('<h1>'.$url.'</h1>');
     if ($adv) {      if ($adv) {
  $r->print('<p><b><font color="red">'.&mt('Map contents are not shown in order.').'</font></b></p><br />');   $r->print('<p class="LC_warning">'
                    .&mt('Map contents are not shown in order.')
                    .'</p><br />'
           );
     }      }
     $r->print( '<table border="0" cellspacing="2" cellpadding="4">'.      $r->print(&Apache::loncommon::start_data_table()
                '<tr bgcolor="#DDDDDD"><th>'.&mt('Type').'</th>'.               .&Apache::loncommon::start_data_table_header_row()
                '<th>'.&mt('Title in map').'</th>'.               .'<th>'.&mt('Type').'</th>'
                '<th>'.&mt('Filename of resource').'</th>'.               .'<th>'.&mt('Title in map').'</th>'
                '<th>'.&mt('Link to published resource').'</th>'.               .'<th>'.&mt('Filename of resource').'</th>'
                '<th>'.&mt('Link to resource in Construction Space').'</th>'.               .'<th>'.&mt('Link to published resource').'</th>'
                '</tr>');               .'<th>'.&mt('Link to resource in Construction Space').'</th>'
     my @backgroundColors = ("#FFFFFF", "#F6F6F6");               .&Apache::loncommon::end_data_table_header_row()
       );
     foreach (&LONCAPA::map::attemptread(&Apache::lonnet::filelocation('',$url))) {      foreach (&LONCAPA::map::attemptread(&Apache::lonnet::filelocation('',$url))) {
  if (defined($_)) {   if (defined($_)) {
             $idx++;              $idx++;
     my ($title,$url,$cond)=split(/\:/,$_);      my ($title,$url,$cond)=split(/\:/,$_);
     if ($cond eq 'cond') { next; }      if ($cond eq 'cond') { next; }
             $title=~s/\&colon\;/\:/g;              $title= &LONCAPA::map::qtescape($title);
             $url=~s/\&colon\;/\:/g;              $url  = &LONCAPA::map::qtescape($url);
             unless ($title) { $title=(split(/\//,$url))[-1] };              unless ($title) { $title=(split(/\//,$url))[-1] };
             unless ($title) { $title='<i>'.&mt('Empty').'</i>'; }              unless ($title) { $title='<i>'.&mt('Empty').'</i>'; }
             my $resurl = &LONCAPA::map::qtescape($url);              my $resurl = $url;
             my $resfilepath = $Apache::lonnet::perlvar{'lonDocRoot'}.$resurl;              my $resfilepath = $Apache::lonnet::perlvar{'lonDocRoot'}.$resurl;
             my $filename;               my $filename; 
             if ($resurl =~ m#/([^/]+)$#) {              if ($resurl =~ m#/([^/]+)$#) {
Line 812  sub viewmap { Line 680  sub viewmap {
             }              }
             my $cstrurl = $resurl;              my $cstrurl = $resurl;
             $cstrurl =~ s#^/res/[^/]+/([^/]+)/#/priv/$1/#;              $cstrurl =~ s#^/res/[^/]+/([^/]+)/#/priv/$1/#;
             my $bgcol = $idx%2;               $r->print(&Apache::loncommon::start_data_table_row()
             $r->print('<tr bgcolor='.$backgroundColors[$bgcol].'><td>'.                       .'<td>'
                       '<img src="'.&Apache::loncommon::icon($resfilepath).                       .'<img src="'.&Apache::loncommon::icon($resfilepath).'" />'
                       '" /></td><td>'.&LONCAPA::map::qtescape($title).                       .'</td>'
                       '</td><td>'.$filename.'</td><td>');                       .'<td>'
                        .&HTML::Entities::encode(&LONCAPA::map::qtescape($title))
                        .'</td>'
                        .'<td>'.$filename.'</td>'
                        .'<td>'
               );
             if ($url) {              if ($url) {
  $r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>');   $r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>');
               } else {
                   $r->print('&nbsp;');
             }              }
             $r->print('</td><td>');              $r->print('</td><td>');
             if ($url) {              if ($url) {
                $r->print('<a href="'.$cstrurl.'">'.                 $r->print('<a href="'.$cstrurl.'">'.
                          &mt('Construction space').'</a>');                           &mt('Construction space').'</a>');
               } else {
                   $r->print('&nbsp;');
             }              }
             $r->print('</td></tr>'."\n");              $r->print('</td>'
                        .&Apache::loncommon::end_data_table_row()
               );
         }          }
     }      }
     $r->print('</table>');      $r->print(&Apache::loncommon::end_data_table());
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
   
Line 893  __END__ Line 772  __END__
   
   
   
   =pod
   
   =head1 NAME
   
   Apache::lonratedt: simple resource assembly tool
   
   =head1 SYNOPSIS
   
   lonratedt provides the routines and the handler for the Advanced
       Resource Assembly Tool (RAT), and ties the various pieces together
       with Javascript.
   
   =head1 OVERVIEW
   
   =head2 Map Representation
   
   =begin latex
   
   %
   \begin{figure}
   \begin{center}\includegraphics[%
     width=0.55\paperwidth,bb = 0 0 200 100, draft, type=eps]{Map_Example}\end{center}
   
   
   \caption{\label{Map_In_Advanced_Editor}Example of a Map in the Advanced Editor}
   \end{figure}
   %
   \begin{figure}
   \begin{lyxcode}
   <map>
   
   ~~<resource~id=\char`\"{}1\char`\"{}
   
   ~~~~src=\char`\"{}/res/msu/korte/phy231welcome.html\char`\"{}
   
   ~~~~type=\char`\"{}start\char`\"{}
   
   ~~~~title=\char`\"{}Start\char`\"{}>
   
   ~~~~</resource>
   
   ~~<resource~id=\char`\"{}2\char`\"{}
   
   ~~~~src=\char`\"{}\char`\"{}~type=\char`\"{}finish\char`\"{}
   
   ~~~~title=\char`\"{}Finish\char`\"{}>
   
   ~~~~</resource>
   
   ~~<resource~id=\char`\"{}6\char`\"{}
   
   ~~~~src=\char`\"{}/res/msu/korte/tests/units.problem\char`\"{}
   
   ~~~~type=\char`\"{}mandatory\char`\"{}
   
   ~~~~title=\char`\"{}Physical~Units~Test\char`\"{}>
   
   ~~~~</resource>
   
   ~~<resource~id=\char`\"{}9\char`\"{}
   
   ~~~~src=\char`\"{}/res/msu/korte/chapters/onedim.sequence\char`\"{}
   
   ~~~~title=\char`\"{}Motion~in~One~Dimension\char`\"{}>
   
   ~~~~</resource>
   
   ~~<resource~id=\char`\"{}11\char`\"{}
   
   ~~~~src=\char`\"{}/res/msu/bauer/bridges/units.sequence\char`\"{}
   
   ~~~~title=\char`\"{}Physical~Units~Refresher\char`\"{}>
   
   ~~~~</resource>
   
   ~~<condition~id=\char`\"{}19\char`\"{}
   
   ~~~~type=\char`\"{}stop\char`\"{}
   
   ~~~~value=\char`\"{}user.assessments{[}this./res/msu/korte/tests/units.problem{]}.status=solved\char`\"{}>
   
   ~~~~</condition>
   
   ~~<link~from=\char`\"{}1\char`\"{}~to=\char`\"{}6\char`\"{}></link>
   
   ~~<link~from=\char`\"{}6\char`\"{}~to=\char`\"{}9\char`\"{}~condition=\char`\"{}19\char`\"{}></link>
   
   ~~<link~from=\char`\"{}6\char`\"{}~to=\char`\"{}11\char`\"{}></link>
   
   ~~<link~from=\char`\"{}11\char`\"{}~to=\char`\"{}6\char`\"{}></link>
   
   ~~</map>
   \end{lyxcode}
   
   \caption{\label{XML}XML for Map in Figure \ref{Map_In_Advanced_Editor}}
   \end{figure}
   
   =end latex
   
   Fig. "XML for Map in Figure" shows the XML representation of the
   resource map shown in Fig. "Example of a Map in the Advanced Editor",
   which is the format in which maps are stored. In the figure, however,
   additional graphical map layout information generated by the Advanced
   Resource Assembly Tool is not displayed. This graphical information is
   optional to re-generate the same graphical layout when the map is
   brought up again in the Resource Assembly Tool, and is not needed for
   any other system functionality.
   
   Maps can be generated by tools other than the Resource Assembly
   Tool. In particular, an author might have some other representation of
   a course sequence, which can be converted into a map using scripts. If
   this map then were to be brought up in the Resource Assembly Tool, the
   Tool would automatically generate a graphical layout for it. Each
   entry of the map (resources, conditions and links) is stored in a
   separate tag.
   
   Resources and conditionsX<conditions> have to have unique ID
   numbers. These numbers are automatically generated by the Resource
   Assembly Tool when the entry is first created, or added to the entries
   when a map generated outside the Resource Assembly Tool is first
   retrieved. They can also be assigned by custom scripts or added in by
   hand.
   
   In the XML example, entry 1 is the start resource of the map. When
   this map is accessed, the source (src) URL of this tag will be the
   first resource rendered. Entry 2 is the finish resource of this
   map. This resource will be the last resource in the sequence of
   resources. Entry 6 is a problem resource with the given URL and title,
   as well as the priority "mandatory". Entry 19 is a condition, which is
   used by the link between entries 6, the problem, and 9, a
   sequence. I<The final syntax for conditions has not yet been
   determined.>
   
   =cut
   
   
   
Removed from v.1.86  
changed lines
  Added in v.1.94

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>