projects / webpac2 / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 49d6d18)
r8858@llin: dpavlin | 2005-11-14 13:18:02 +0100
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 14 Nov 2005 16:15:27 +0000 (16:15 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 14 Nov 2005 16:15:27 +0000 (16:15 +0000)
 show error on non-existing records, show template edit textarea

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@49 07558da8-63fa-0310-ba24-9fe276d99e06

web/browse.cgi patch | blob | history

diff --git a/web/browse.cgi b/web/browse.cgi
index 202785a..54b3283 100755 (executable)
--- a/web/browse.cgi
+++ b/web/browse.cgi
@@ -3,6 +3,7 @@
 use Cwd qw/abs_path/;
 use CGI::Carp qw(fatalsToBrowser);
 use CGI::Simple;
+use File::Slurp;
 
 use lib '../lib';
 
@@ -13,6 +14,7 @@ my $abs_path = abs_path($0);
 $abs_path =~ s#/[^/]*$#/../#;
 
 my $db_path = $abs_path . '/db/';
+my $template = 'html_ffzg.tt';
 
 my $db = new WebPAC::DB(
        path => $db_path,
@@ -36,20 +38,20 @@ if ($q->path_info =~ m#xml#) {
 
        my @ds = $db->load_ds($rec);
 
-       if (@ds) {
+       if (@ds && $#ds > 0) {
                print qq{<response>
-<action type='html' target='divRecord' errorCode='' errorMessage='' >
+<action type='html' target='div_record' errorCode='' errorMessage='' >
                }, $out->apply(
-                       template => 'html_ffzg.tt',
+                       template => $template,
                        data => \@ds,
                ), qq{
 
 <script type='text/javascript'>
 <!--
-       var el = iwfGetById('divRecordNr');
+       var el = iwfGetById('div_record_nr');
        if (el) el.innerHTML = '# <b>$rec</b>';
-       //iwfShow('divRecord');
-       iwfOpacity('divRecord', 100);
+       //iwfShow('div_record');
+       iwfOpacity('div_record', 100);
 //-->
 </script>
 
@@ -58,11 +60,38 @@ if ($q->path_info =~ m#xml#) {
 };
                exit;
        } else {
-               print qq{
-                       <b>Record $rec not found!</b>
-               };
+               print qq{<response>
+<action type='html' target='div_record' errorCode='' errorMessage='' >
+
+<b>Record $rec not found!</b>
+<script type='text/javascript'>
+<!--
+       var el = iwfGetById('div_record_nr');
+       if (el) el.innerHTML = '<strike>$rec</strike>';
+//-->
+</script>
+
+</action>
+</response>
+};
+               exit;
        }
 
+} elsif ($q->path_info =~ m#template#) {
+
+               my $tmpl = read_file($out->{'include_path'} . '/' . $template);
+               $tmpl = $q->escapeHTML($tmpl);
+
+               print qq{<response>
+<action type='html' target='div_template' errorCode='' errorMessage='' >
+<textarea name="tt_template" cols="80" rows="10">
+$tmpl
+</textarea>
+<br/><input type="button" name="save" value="Save">
+</action>
+</response>
+};
+
 } else {
        print qq{
 <html>
@@ -78,15 +107,14 @@ var rec = $rec ;
 var url = '$self';
 
 function update_status(text) {
-       var el = iwfGetById('divRecordNr');
+       var el = iwfGetById('div_record_nr');
        if (el) el.innerHTML = text;
 }
-       
 
 function load_rec(nr) {
        update_status(nr+'...');
-       iwfRequest( url+'/xml/?rec='+nr, 'divRecord' );
-       iwfOpacity('divRecord', 30);
+       iwfRequest( url+'/xml/?rec='+nr, 'div_record' );
+       iwfOpacity('div_record', 30);
 }
 
 function inc_rec() {
@@ -106,24 +134,39 @@ function reload_rec() {
        return false;
 }
 
+function init_page() {
+       load_rec(rec);
+       // load template
+       iwfRequest( url+'/template/', 'div_template' );
+}
+
 </script>
 </head>
-<body onload="load_rec($rec);">
+<body onload="init_page();">
 
 db_path = <tt>$db_path</tt><br/>
 
+<div id="iwfLog" style="display: none;">
+</div>
+
 <div style="background: #e0e0e0; padding: 0.5em; display: block;">
        <a href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">&#8678;</a>&nbsp;
-       <span id="divRecordNr"> none </span>
+       <span id="div_record_nr"> none </span>
 
        <a href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">&#8680;</a>&nbsp;
        <a href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">&#8634;</a>&nbsp;
+       <a href="#" onClick="iwfRefreshLog(); return false;">&#9636;</a>&nbsp;
 </div>
 
-<div id="divRecord">
+<div id="div_template">
+<span style="color: #808080;"> no template loaded yet. </span>
+</div>
+
+<div id="div_record" style="display: block;">
 <span style="color: #808080;"> no record loaded yet. </span>
 </div>
 
+
 </body>
 </html>};
 
Unnamed repository; edit this file 'description' to name the repository.