6 use CGI::Carp qw(fatalsToBrowser);
15 use WebPAC::Output::TT;
17 my $abs_path = abs_path($0);
18 $abs_path =~ s#/[^/]*$#/../#;
20 my $db_path = $abs_path . '/db/';
21 my $template = 'html_ffzg.tt';
23 my $iconv_utf8 = new Text::Iconv('ISO-8859-2', 'UTF-8');
24 my $iconv_loc = new Text::Iconv('UTF-8', 'ISO-8859-2');
26 my $db = new WebPAC::DB(
32 my $out = new WebPAC::Output::TT(
33 include_path => "$abs_path/conf/output/tt",
34 filters => { foo => sub { shift } },
37 my $q = new CGI::Simple;
38 my $self = $q->url( '-path_info'=>1, '-query'=>0, '-full'=>0 );
40 my $rec = $q->param('rec') || 1;
42 print $q->header( -charset => 'utf-8' );
44 if ($q->path_info =~ m#xml#) {
46 my @ds = $db->load_ds($rec);
48 if (@ds && $#ds > 0) {
50 <action type='html' target='div_record' errorCode='' errorMessage='' >
52 template => $template,
56 <script type='text/javascript'>
58 var el = iwfGetById('div_record_nr');
59 if (el) el.innerHTML = '# <b>$rec</b>';
60 //iwfShow('div_record');
61 iwfOpacity('div_record', 100);
71 <action type='html' target='div_record' errorCode='' errorMessage='' >
73 <b>Record $rec not found!</b>
74 <script type='text/javascript'>
76 var el = iwfGetById('div_record_nr');
77 if (el) el.innerHTML = '<strike>$rec</strike>';
87 } elsif ($q->path_info =~ m#template#) {
91 if ($q->param('save_template')) {
93 my $tmpl = $q->param('tt_template') || die "no template?";
94 my $tmpl_file = $out->{'include_path'} . '/' . $template;
95 write_file($tmpl_file . '.new', $iconv_loc->convert($tmpl)) || die "can't save $tmpl_file: $!";
96 rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";
99 <action type='html' target='div_status' errorCode='' errorMessage='' >
113 my $tmpl = read_file($out->{'include_path'} . '/' . $template) || die "can't read template $template: $!";
114 $tmpl = $q->escapeHTML($iconv_utf8->convert($tmpl));
117 <action type='html' target='div_template' errorCode='' errorMessage='' >
118 <pre>}, Dumper($q->Vars), qq{</pre>
120 <form name="frmEditor" action="$self" method="post"
121 iwfTarget="div_status"
124 <textarea name="tt_template" cols="80" rows="10" style="display: block;">
129 <input type="button" name="save_template" value="Save" onclick="javascript:iwfRequest(this);" />
130 <input type="checkbox" name="checkin_template" id="checkin_checkbox" label="checkin" />
131 <span id="div_status" style="color: #808080;">idle</span>
133 <input type='hidden' value='hidden post value' name='hidValue' />
146 <title>WebPAC simple browse interface</title>
147 <script type='text/javascript' src='iwf/iwfcore.js'></script>
148 <script type='text/javascript' src='iwf/iwfgui.js'></script>
149 <script type='text/javascript' src='iwf/iwfxml.js'></script>
150 <script type='text/javascript' src='iwf/iwfajax.js'></script>
151 <script type='text/javascript'>
156 function update_status(text) {
157 var el = iwfGetById('div_record_nr');
158 if (el) el.innerHTML = text;
161 function load_rec(nr) {
162 update_status(nr+'...');
163 iwfRequest( url+'/xml/?rec='+nr, 'div_record' );
164 iwfOpacity('div_record', 30);
179 function reload_rec() {
184 function init_page() {
187 iwfRequest( url+'/template/', 'div_template' );
192 <body onload="init_page();">
194 db_path = <tt>$db_path</tt><br/>
195 template = <tt>$template</tt><br/>
197 <div id="iwfLog" style="display: none;">
200 <div style="background: #e0e0e0; padding: 0.5em; display: block;">
201 <a href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">⇦</a>
202 <span id="div_record_nr"> none </span>
204 <a href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">⇨</a>
205 <a href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">↺</a>
206 <a href="#" onClick="iwfRefreshLog(); return false;">▤</a>
210 <div id="div_template">
211 <span style="color: #808080;"> no template loaded yet. </span>
214 <div id="div_record" style="display: block;">
215 <span style="color: #808080;"> no record loaded yet. </span>