--- rat/lonratedt.pm 2002/05/13 19:38:32 1.14 +++ rat/lonratedt.pm 2002/05/13 21:26:05 1.15 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.14 2002/05/13 19:38:32 www Exp $ +# $Id: lonratedt.pm,v 1.15 2002/05/13 21:26:05 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -252,8 +252,9 @@ sub smpedt { my $importwindow=join("\n",map { $idx++; if ($_) { - my ($name)=split(/\=/,$_); - unless ($name) { $name='UNKNOWN'; } + my ($name,$url)=split(/\=/,$_); + unless ($name) { $name=(split(/\//,$url))[-1]; } + unless ($name) { $name='EMPTY'; } ''; } @@ -262,7 +263,8 @@ sub smpedt { $idx=0; my $targetwindow=join("\n",map { my ($name,$url)=split(/\:/,$resources[$_]); - unless ($name) { $name='UNKNOWN'; } + unless ($name) { $name=(split(/\//,$url))[-1]; } + unless ($name) { $name='EMPTY'; } $targetdetail.='&'.&Apache::lonnet::escape($name).'='. &Apache::lonnet::escape($url); $idx++; @@ -352,6 +354,30 @@ function idxcheck(mode) { } idx.focus(); } + + + var editbrowser; + function openbrowser(formname,elementname,only,omit) { + var url = '/res/?'; + if (editbrowser == null) { + url += 'launch=1&'; + } + url += 'catalogmode=interactive&'; + url += 'mode=edit&'; + url += 'form=' + formname + '&'; + if (only != null) { + url += 'only=' + only + '&'; + } + if (omit != null) { + url += 'omit=' + omit + '&'; + } + url += 'element=' + elementname + ''; + var title = 'Browser'; + var options = 'scrollbars=1,resizable=1,menubar=0'; + options += ',width=700,height=600'; + editbrowser = open(url,title,options,'1'); + editbrowser.focus(); + } @@ -366,8 +392,12 @@ $buttons -
after selected +after selected
+ +
@@ -423,7 +453,8 @@ sub viewmap { my ($title,$url)=split(/\:/,$_); $title=~s/\&colon\;/\:/g; $url=~s/\&colon\;/\:/g; - unless ($title) { $title='Unknown'; } + unless ($title) { $title=(split(/\//,$url))[-1] }; + unless ($title) { $title='Empty'; } if ($url) { $r->print(''); }